كيف أجعل الخلية تومض إذا تحققت أحد الشروط

[أبو هديل]

السلام عليكم

لدي ملف أعمال أقوم بها حسب التواريخ التي في تتغير بتغير مرور الايام وهي كثيرة

وضعت للخلايا التي تحتوي على هذه التواريخ تنسيق بحيث يتغير لونها إلأى الاحمر عند تاريخ معيل لكل خلية مختلف عن باقي الخلايا

سؤالي هل يمكن أن أضع كود معين يجعل الخلية تومض Flashing عند تحقق وصول الشرط فيها عند تاريخ معين .. وبالطبع يختلف ذلك التاريخ من خلية إلى أخرى

أو كذلك تومض الخلية إذا تحقق فيها شرط وجود رقم معين بداخلها

أو حتى وقت معين بالساعة

وجدت هذا الكود للأخ محمد حجازي يحفظه ربي لإظهار صوت إذا تحقق شرط معين

Private Declare Function sndPlaySound Lib _

"winmm.dll" Alias "sndPlaySoundA" _

(ByVal lpszSoundName As String, ByVal _

uFlags As Long) As Long

Function sound(MyCells As String)

Dim MyPath As String

If MyCells = "ناجح" Then

sound = True

MyPath = Workbooks("MyFile.xls").Path & "\SoundFile.wav"

sndPlaySound MyPath, &H10

Else

sound = False

End If

End Function

ولكنني أريد ما اسلفت ذكره جزاكم الله عنا كل خير

[أبو هديل]

السلام عليكم

ألا يوجد رد للموضوع ؟!

[شيروان]

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

اعتقد ان سؤالك متعدد الاطراف، لو استطعت تقسيمه استطعت ان تحله باستخدام Conditional formatting

مثلا ما يتعلق بوجود رقم معين في خلية معينة

حدد الخلية التي تريد

اذهب الى قائمة Format ومن ثم Conditional formating

اختر الشرط Equal to وحدد الرقم الذي تريد في الخلية المقابلة له واختر نوع خاص من الفورمات مثلا يكون لون الخلية او لون الكتابة حمراء

[abo yasser]

ياليت توضيح من الاخوان كيف اضع الكود حق الصوت بخلية

وكذلك تعريب لكلام الاخ شيروان

تحياتي