كود تايمر تنازلي vba

[ahmede]

اريد ان اعرف الخطأ في كود التايمر التنازلي مرفق البرنامج

Timer.rar

[عبدالسلام ابوالعوافي]

Sub nexttick()
    Range("B1").Value = Range("B1").Value - TimeValue("00:00:01")
    If Range("B1").Value <= TimeValue("00:00:01") Then
        sheet3.Shapes("textbox1").Fill.forcolor.RGB = RGB(255, 0, 0)
    Else
        ActiveSheet.Shapes("TextBox 1").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    starttimer
End Sub

 

[ياسر العربى]

الخطأ في حاجتين

Sub nexttick()
    sheet3.Range("B1").Value = sheet3.Range("B1").Value - TimeValue("00:00:01")
    If sheet3.Range("B1").Value <= TimeValue("00:00:01") Then
        sheet3.Shapes("textbox1").Fill.ForeColor.RGB = RGB(255, 0, 0)
    Else
        sheet3.Shapes("textbox1").Fill.ForeColor.RGB = RGB(255, 255, 255)
    End If
    starttimer
End Sub

اولا اسم الشيت ورقة3  وبالكود Sheet3 اما نغير الشيت لنفس الاسم او نغير الاسم بالكود لاسم الشيت الفعلي او نلغى اسم الشيت نهائيا طالما هنتعامل من داخل نفس الشيت كما

وضح الاخ الكريم عبد السلام ابو العوافي

ثانيا خطأ املائي في كلمة

forcolor 

والاصل تكتب هكذا 

ForeColor

 

 

[ahmede]

شكرا لردودكم قد تم التنفيذ

تم تعديل يونيو 14, 2016 بواسطه ahmede

[ياسر العربى]

جرب المرفق اشتغل كان بها لو مشتغلش ونفس الرسالة يبقي  تتأكد ان مفيش زرار في لوحة المفاتيح معلق غير كدا تقول نوع الاوفيس عندك ايه وجرب الطريقة دي مؤقتا

ندخل للمسار دا

 C:\Program Files\MS Office\XLSTART

نمسح الملف دا

GWXL97.XLA

نشغل البرنامج تاني

 

Timer.rar