ماكرو-7

المرحلة الثالثة و الرابعة من الترتيب

كود البرنامج

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(2)

 '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(3)

 '3rd process Loop

For C = 4 To 5

     If a(3) > a(C) Then

          cup = a(3): a(3) = a(C): a(C) = cup

      End If

 Next C

 Call PrinTo(4)

  '4th process Loop

For C = 5 To 5

     If a(4) > a(C) Then

          cup = a(4): a(4) = a(C): a(C) = cup

      End If

 Next C

 Call PrinTo(5)

End Sub

Function PrinTo(n)

'Writing Loop

For C = 1 To 5

    Cells(C, n) = a(C)

Next C

End Function