كود تكرار بشرط

[aboesa]

السلام عليكم ورحمة الله وبركاته. ممكن كود تكرار كل ٢٠ صف يكتب كلمة مثل الصدق حتى نهاية صف في الورقه. 

يعني يكتب كلمة الصدق كل ٢٠ صف حتى النهايه. طبعا في الاكسل. 

[محمد هشام.]

 قم بتعديلها بما يناسبك 

Sub TEST()
Dim i As Integer
For i = 1 To 100 Step 50
    Cells(i, 1).Value = "الصدق"
Next i
End Sub
''''''''''''''''''''''
Sub test2()
Dim X As Integer
star = 1  ' اول خلية
fin = 500 'اخر خلية
    For X = star To fin Step 50
        Range("A" & X).Value = "الصدق"
    Next X
End Sub

 

تم تعديل فبراير 1 بواسطه محمد هشام.

[abouelhassan]

جرب

Sub كتابة_الصدق_كل_20_صف()
    Dim صف As Integer
    Dim الصدق As String
    الصدق = "الصدق"
    
    ' تحديد صفوف للكتابة فيها
    For صف = 1 To ActiveSheet.Rows.Count Step 20
        ' كتابة الكلمة في الخلية A في الصف الحالي
        Cells(صف, 1).Value = الصدق
    Next صف
End Sub

 

[aboesa]

في 1‏/2‏/2024 at 23:37, محمد هشام. said:

 قم بتعديلها بما يناسبك 

Sub TEST()
Dim i As Integer
For i = 1 To 100 Step 50
    Cells(i, 1).Value = "الصدق"
Next i
End Sub
''''''''''''''''''''''
Sub test2()
Dim X As Integer
star = 1  ' اول خلية
fin = 500 'اخر خلية
    For X = star To fin Step 50
        Range("A" & X).Value = "الصدق"
    Next X
End Sub

 

 

بارك الله فيكم وجعله في ميزان حسناتكم. جميع الحلول رائعة وشغاله.