اذهب الي المحتوي
أوفيسنا

جعل خلية هامة تومض


seif eldin

الردود الموصى بها

السلام عليكم أخوتي

كيف تجعل الخلية تومض ؟ هي بالنسبة لي جديدة علي وقد يكون بعضكم يعرفها

ولكن قد تكون مفيدة

من محرر الفيجوال بيزك أختر ادراج ثم مديول

ثم ألصق الكود التالي

Public appTime As Date

Public Sub Blink()

With Sheets(1).Range("A1").Interior

If .ColorIndex = 2 Then

.ColorIndex = 3

Else

.ColorIndex = 2

End If

End With

appTime = Now() + TimeValue("00:00:01")

Application.OnTime appTime, "Blink"

End Sub

حيث خلية a1 هي المرادة

رابط هذا التعليق
شارك

((( كيف تجعل الخلية تومض ؟ هي بالنسبة لي جديدة علي وقد يكون بعضكم يعرفها

ولكن قد تكون مفيدة

))))

مشكوووووووور يا سيف الدين

بارك الله فيك

انا من زمان أدور لهذا الكود وكنت على صدد اطرح ها الموضوع ولكن سبقتني بشرحة فشكرا لك

رابط هذا التعليق
شارك

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

لاغيبك علينا يا أستاذ على السحيب انشاء الله تكون في صحة وعافية.

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information