اريد ان اغير لون الخلية في الاكسل كل 20 ثانية ارجو المساعدة و بسرعة

[عبدالله القزاز]

اريد ان اغير لون الخلية في الاكسل كل 20 ثانية ارجو المساعدة و بسرعة

[رجب جاويش]

السلام عليكم

تفضل أخى

Sub ragab()
Application.OnTime Now + TimeValue("00:00:20"), "clor"
End Sub

Sub clor()
Randomize
x = Int(Rnd(1) * 255 + 1)
y = Int(Rnd(1) * 255 + 1)
Z = Int(Rnd(1) * 255 + 1)
Range("A1").Interior.Color = RGB(x, y, Z)
Call ragab
Exit Sub
End Sub

Sub Auto_Open()
    Call ragab
End Sub

تغيير لون خلية كل 20 ثانية.rar

[احمد الحاوي]

الاستاذ المبدع رجب جاويش 

كل يوم نتعلم على يديك ابداعا جديدا

جزاك الله خيرا 

[رجب جاويش]

أخى الفاضل / احمد الحاوي

جزاك الله كل خير أخى الفاضل  على هذه الكلمات الطيبة

[عبدالله القزاز]

أخى الفاضل / احمد الحاوي

جزاك الله كل خير أخى الفاضل  على هذه الكلمات الطيبة

عليكم السلام استاذ رجب ... اشكرك جدا على الاهتمام ... لكن اني بحاجة الى اظهار عداد ثواني في الخلية لكي اتمكن من اعداد تنسيق شرطي بلون الخلية كل عشرون ثانية

اي نفس فكرة الاشارة المرورية ,,, احتاج فقط الى خلية فيها عداد ثواني متحرك

[عبدالله القزاز]

عليكم السلام استاذ رجب ... اشكرك جدا على الاهتمام ... لكن اني بحاجة الى اظهار عداد ثواني في الخلية لكي اتمكن من اعداد تنسيق شرطي بلون الخلية كل عشرون ثانية

اي نفس فكرة الاشارة المرورية ,,, احتاج فقط الى خلية فيها عداد ثواني متحرك

[ابوصلاح]

 

الاستاذ المبدع رجب جاويش 

كل يوم نتعلم على يديك ابداعا جديدا

جزاك الله خيرا 

 

 

 

السلام عليكم

تفضل أخى

Sub ragab()
Application.OnTime Now + TimeValue("00:00:20"), "clor"
End Sub

Sub clor()
Randomize
x = Int(Rnd(1) * 255 + 1)
y = Int(Rnd(1) * 255 + 1)
Z = Int(Rnd(1) * 255 + 1)
Range("A1").Interior.Color = RGB(x, y, Z)
Call ragab
Exit Sub
End Sub

Sub Auto_Open()
    Call ragab
End Sub

رائع جدا استاذنا الفاضل "رجب جاويش"