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

[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 هي المرادة

[ابو اسامة العينبوسي]

شكرا لك

[أبووسم]

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

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

))))

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

بارك الله فيك

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

[الجزيرة]

شكرا أخي سيف الدين

وللمعلومية يوجد موضوع بالمنتدى عن ما ذكرت ( من أيام العزيز / حسام نور )

[ناصر سعيد]

شكرا

[

تم تعديل ديسمبر 18, 2006 بواسطه nasersaeed

[وسام حسن]

مشكور على البرنامج ونرجو إضافة كود في حالة وجود أكثر من خلية وليس خلية واحدة

[علي السحيب]

راجع الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=9113

[أبو أنس حاجب]

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

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

[أبو جديد]

الف الف شكر لك على هذه الفائدة الطيبة