محتاج كود يقوم باظهار الارقام بشكل متسلسل

[sabah2022]

السلام عليكم

محتاج كود

يقوم باظهار الارقام بشكل متسلسل وكل 3 ثواني يظهر رقم اخر  وكما موضح بالملف المرفق

جزيتم خير - وسلمكم الله وعافكم

عد الارقام تسلسل كل 3 ثواني يظهر رقم ثاني.xlsx

[محمد هشام.]

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

تفضل جرب 

Sub compter()
Dim i&
Dim sh As Worksheet: Set sh = Worksheets("ورقة1")
a = [j2]
b = [k2]
On Error Resume Next
For i = a To b
If IsNumeric(b) = True And a >= 1 Then
[A1] = a
Application.Wait (Now + TimeValue("00:00:03"))
a = a + 1
Else
    Exit Sub
       End If
          Next i
On Error GoTo 0

End Sub

تم تعديل يوليو 22, 2023 بواسطه محمد هشام.

[sabah2022]

تمام هو المطلوب

جزيت خير