تعديل على كود العداد التنازلى

[فوزى فوزى]

كل عام وحضراتكم بخير بمناسبة حلول شهر رمضان الكريم المبارك اعاده الله عليكم باليمن والخير والبركات بعد اذنكم مطلوب تعديل على كود العداد التنازلى عند الضغط على الزر يقوم بالعد من رقم 5 الى ان ينتهى الى الرقم واحد المطلوب عندما يصل العداد الى رقم واحد يبداء يعد من جديد بدون ما اقوم بضغط على الزر مرة ثانية المطلوب الثانى يحسب عدد مرات العد بمعنى عندما يعد العداد من 5 الى واحد يكتب رقم 1 فى الخلية B2 وعندما يقوم العداد بالعد مرة ثانية من 5 الى واحد يكتب فى الخلية B2 رقم 2 وهكذا كل مرة يعد فيها العداد يحتسب عدد مرات العداد وكل عام وحضراتكم بخير

عداد.xlsm

[lionheart]

Sub Test_Timer()
    Dim i As Long, k As Long
    Range("B3").Value = 0
    Do Until Range("B3").Value = 4
        Range("B3").Value = Range("B3").Value + 1
        For i = 5 To 1 Step -1
            Application.ScreenUpdating = True
            Range("E3").Value = i
            DoEvents
            For k = 1 To 100000000
            Next k
        Next i
        Application.Wait Now + TimeValue("00:00:01")
    Loop
End Sub

 

[فوزى فوزى]

 استاذ قلب الاسد انت انسان رائع بارك الله لك فى ذريتك وجعله الله فى ميزان حسناتك

 

[محمد حسن المحمد]

من لم يشكر الناس لم يشكر الله 

جزاكم الله خيرا وأحسن إليكم جميعاً.. آمين

تقبلوا تحياتي العطرة..

والسلام عليكم ورحمة الله وبركاته 💐🏵️🌸