قيمة متغير في جملة دوران (عنوان معدل)

[kmaal]

السلام عليكم

Dim i As Integer

Dim h As Integer

For i = 1 To 8

المطلوب أخواني الأكارم :

اريد H يساوي 1 عندما يكون i حتى 4

أما إذا i أكبر من أربعة فإن H يساوي 2

وشكراً جزيلاً

[عبدالله باقشير]

السلام عليكم

Sub ماكرو1()


Dim i As Integer

Dim h As Integer


For i = 1 To 8

    Select Case i

        Case 1 To 4: h = 1

        Case Else: h = 2

    End Select

    MsgBox h

Next

End Sub

[الزير]

تم الابلاغ عنه كعنوان مخالف ليتسنى للمشرفين الكرام تعديله