السلام عليكم و رحمة الله تعالى و بركاته
الأستاذ عبد الله طلب طريقة استعمال الحلقات التكرارية بالعد التنازلي
و هذا يعني استعمالها بدون دوال إضافية مثل الدوال الشرطية
للحلقات التكرارية ستة أشكال و قد شرحتها جميعها في هذه السلسلة: دروس VBA أكسس
و هذا حل لسؤال الأخ عبد الله بخمسة أشكال من الحلقات التكرارية:
الأول: الدالة For
Dim i As Integer, k As Integer
k = 4
For i = k To 1 Step -1
MsgBox i
Next i
الثاني: الدالة Do While
Dim i As Integer
i = 4
Do While i >= 1
MsgBox i
i = i - 1
Loop
الثالث: الدالة Do Until
Dim i As Integer
i = 4
Do Until i < 1
MsgBox i
i = i - 1
Loop
الرابع: الدالة Do.....Loop Until
Dim i As Integer
i = 4
Do
MsgBox i
i = i - 1
Loop Until i < 1
الخامس: الدالة Do.....Loop While
Dim i As Integer
i = 4
Do
MsgBox i
i = i - 1
Loop While i >= 1