المساعدة في هذا الكود لخلية تومض ولكن بشرط

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

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

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

ولكم الشكر والتقدير

كود يجعل خلية تومض.rar

[أ / محمد صالح]

تفضل أخي الكريم

عدل كود الموديول إلى ما يلي:

Public appTime As Date

Public Sub Blink()

If Sheets(1).Range("A1") <= 0 Then

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"

Else

Sheets(1).Range("A1").Interior.ColorIndex = 2

End If

End Sub

ثم اضغط دبل كلك على sheet1 ثم الصق هذا الكود

Private Sub Worksheet_Activate()

Call Blink

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

Call Blink

End Sub

[الـعيدروس]

تفضل

امسح الكود الذي في المودويل

واستعيضه بهذا

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

Public Sub ALI()

Application.OnTime appTime, "Blink", , False

End Sub

وهذا الكود حطه في حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$1" Then Exit Sub

If Target.Value <= 0 Then

Call Blink

Else

Call ALI

Exit Sub

End If

End Sub

وهذا المرفق

كود يجعل خلية تومض _ali.rar

[الـعيدروس]

السلام عليكم

استاذي الحبيب محمد صالح

العذر منك والسموحه

كنا نكتب المشاركة لم نرى مشاركتكم الطيبه

بارك الله فيك وزادك من علمة وفضلة

[أ / محمد صالح]

بارك الله لك على حلك أخي العيدروس

حل موفق

.............

ولا يهمك أخي الكريم المهم أن نتعاون جميعا في الوصول للحل

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

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

السادة الاساتذة الافاضل

محمد صالح والعيدروس

لا اقول اكثر من انتظروا الفضل والكرم من صاحب الفضل والكرم الله رب العالمين في الدنيا والاخرة باذنه تعالى.

أبو أنس

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

الاخ الكريم لاحظ هذا الرابط -------------------------

[abouelhassan]

استاذنا ابو نصار استاذنا محمد صالح استاذنا محمد يحياوى

كل التقدير وفائق الاحترام

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

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

الاستاذ الفاضل محمد يحياوى

كل التقدير والاحترام وحفظك الله

أبو أنس