ماكرو-6

المرحلة الثانية من المعالجة

مقارنة العدد الثانى

اضافة بارامتر للدالة يحدد عمود الطباعة

كود البرنامج

Dim a(5), C

Public Sub sort7()

Dim cup

'Reading Loop

For C = 1 To 5

    a(C) = Cells(C, 1)

Next C

'1st process Loop

For C = 2 To 5

     If a(1) > a(C) Then

          cup = a(1): a(1) = a(C): a(C) = cup

      End If

 Next C

 Call PrinTo(3)

 '2nd process Loop

For C = 3 To 5

     If a(2) > a(C) Then

          cup = a(2): a(2) = a(C): a(C) = cup

      End If

 Next C

 Call PrinTo(4)

End Sub

Function PrinTo(n)

'Writing Loop

For C = 1 To 5

    Cells(C, n) = a(C)

Next C

End Function