جدول الضرب بالحلقات التكرارية المتداخلة Multiplication Table Using Nested Loops

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بإنشاء جدول الضرب باستخدام الحلقات التكرارية المتداخلة ، وهذا الكود يوضح أهمية تعلم استخدام الحلقات التكرارية ومدى قوتها.

إليكم الكود الذي يؤدي المطلوب :

Sub MultiplicationTable()
    Dim I As Byte, II As Byte
    
    With Sheets("Sheet1")
        For I = 1 To 12
            For II = 1 To 12
                .Cells(I, II) = I & "*" & II & "=" & I * II
            Next II
        Next I
    End With
End Sub

وهذه صورة من الناتج بعد تنفيذ الكود :

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء