اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

ا ارجو المساعدة في المرفق بالتعديل فيه حتى يتم تنفيذ الكود اذا تحقق شرط معين على سبيل المثال اذا كانت الخلية 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

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

تفضل

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

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


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

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

السلام عليكم

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

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

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

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

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

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

حل موفق

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

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

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

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

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

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

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

أبو أنس

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

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

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

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

أبو أنس

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

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

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



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

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

Important Information