ملكرو-4

كود البرنامج

Public Sub sort5()

Dim a(5), C, cup

'Reading Loop

For C = 1 To 5

    a(C) = Cells(C, 1)

Next C

'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

'Writing Loop

For C = 1 To 5

    Cells(C, 3) = a(C)

Next C

End Sub