ماكرو-5

برنامج رقم - 6

استخدام الدوال

جعل المتغيرات مرئية خارج مجال البرنامج

كود البرامج

Dim a(5), C

Public Sub sort6()

Dim 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

 Call PrinTo

End Sub

Function PrinTo()

'Writing Loop

For C = 1 To 5

    Cells(C, 3) = a(C)

Next C

End Function