ماكرو-8

دمج المراحل الأربعة

كود البرنامج

Dim a(5), C, B

Public Sub sort8()

Dim cup

'Reading Loop

For C = 1 To 5

    a(C) = Cells(C, 1)

Next C

'1st process Loop

For B = 1 To 4

For C = B + 1 To 5

     If a(B) > a(C) Then

          cup = a(B): a(B) = a(C): a(C) = cup

      End If

 Next C

 Call PrinTo(B + 1)

 Next B

End Sub

Function PrinTo(n)

'Writing Loop

For C = 1 To 5

    Cells(C, n) = a(C)

Next C

End Function