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

النهاردة هتكلم عن حاجة ناس كتير شرحوها ، وشرحوها بشكل ممتاز ، ودا خلاني مش عارف أشرح إزاي ، لأن اللي شرحوها وفوا شرحها صراحة ..

هنتكلم عن الحلقات (بس مش حلقات افتح الباب) الحلقات اللي هنتكلم عنها الحلقات التكرارية ، ومن اسمها هي عبارة عن حلقات بتتكرر (إضافة عظيمة!)

اسمها بالإنجليزي Loops ودي مهمة جداً في عالم الأكواد ، محدش يقدر يستغنى عنها تقريباً ..

نفترض إني دخلت الفصل (بما إني معلم) ولسه دي أول مرة أتعرف على الطلبة اللي في الفصل ..يا ترى أنا عندي استعداد أخلى طالب طالب يقوم وأنا أقوله قول اسمك والطالب اللي بعديه قول اسمك .. أعتقد إن ريقي هينشف ودماغي هتصدع ودا طبعا مش يرضيكم (مش كدا ولا ايه) ..أنا من النوع الكسول فكل اللي هعمله هعمل تكرار من أول طالب في الفصل لآخر طالب ، وأعطي الأمر مرة واحدة ..

من أول طالب إلى آخر طالب
      قووووول اسمك يا حبيبي
الطالب التالي

Sub Loops()
    Dim X As Long
    For X = 1 To 60
        'Say your name
    Next X
End Sub

ناخد أول مثال بجد عشان نقدر نتعلم إزاي نستفيد من الحلقات التكرارية ::

لنفترض أننا عايزين نرقم النطاق A1:A10 بالأرقام من 1 إلى 10يعني الخلية A1 = 1 والخلية A2=2 وهكذا ..طبعا الموضوع بسيط جدا

Sub NumberRange()
    Range("A1").Value = 1
    Range("A2").Value = 2
    Range("A3").Value = 3
    Range("A4").Value = 4
    Range("A5").Value = 5
    Range("A6").Value = 6
    Range("A7").Value = 7
    Range("A8").Value = 8
    Range("A9").Value = 9
    Range("A10").Value = 10
End Sub

كود في منتهى الروعة .. شايف حسام بيضحك ويقولي عايزك ترقم النطاق من A1:A100 (وابتسم ابتسامة فيها شماته !!)

نفكر شوية .. بقول نفكر شوية

Range("A ").Value =

Sub NumberRange()
    Dim X As Long
    For X = 1 To 10
        Range("A" & X).Value = X
    Next X
End Sub

Sub NumberRange()

For X = 1 To 10

Range("A" & X).Value = X

Range("A1").Value = 1

Next X

عارف إني طولت في النقطة اللي فاتت ، بس كان لازم أطول فيها ، عشان أنا فاضي ومفيش ورايا شغل ، فقلت أصدعكم شوية

اسلام
ياسر
عماد
حسام
عيسى
اسلام
اسلام
خليل
عبدالله
اسلام

Sub CountName()
    Dim X As Long
    Dim Counter As Long
    For X = 1 To 10
        If Range("A" & X).Value = "اسلام" Then Counter = Counter + 1
    Next X
    MsgBox Counter
End Sub

Counter = Counter + 1

58
41
88
40
50
40
98
94
60
35

Sub LoopsTest()
    Dim X As Long
    For X = 6 To 15
        If Cells(X, 1).Value >= 50 Then
            Cells(X, 2).Value = "ناجح"
        Else
            Cells(X, 2).Value = "راسب"
        End If
    Next X
End Sub

=COLUMN()

Sub ColumnsLoop()
    Dim X As Long
    For X = 1 To 15 Step 2
        Cells(4, X).Formula = "=COLUMN()"
    Next X
End Sub

ويا رب ميكونش فيه حد جاله دووووووووخة من كتر اللف .. والله أنا اللي دوخت

أستودعكم الله .. دمتم في رعاية الله

تقبلوا تحياتي .. دمتم بود
...................................................................................................................................................................................
واخطف المايك من أستاذ ياسر ، بس خلاص كفاية كدا ، والسلام عليكم ورحمة الله وبركاته
...................................................................................................................................................................................