أبو أنس حاجب قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 السلام عليكم ورحمة الله وبركاته,,, ا ارجو المساعدة في المرفق بالتعديل فيه حتى يتم تنفيذ الكود اذا تحقق شرط معين على سبيل المثال اذا كانت الخلية A1 اصغر او تساوي صفر فيعمل الكود وتومض الخلية والا فلا تومض. ولكم الشكر والتقدير كود يجعل خلية تومض.rar
أ / محمد صالح قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 تفضل أخي الكريم عدل كود الموديول إلى ما يلي: 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 1
الـعيدروس قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 تفضل امسح الكود الذي في المودويل واستعيضه بهذا 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
الـعيدروس قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 السلام عليكم استاذي الحبيب محمد صالح العذر منك والسموحه كنا نكتب المشاركة لم نرى مشاركتكم الطيبه بارك الله فيك وزادك من علمة وفضلة
أ / محمد صالح قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 بارك الله لك على حلك أخي العيدروس حل موفق ............. ولا يهمك أخي الكريم المهم أن نتعاون جميعا في الوصول للحل 1
أبو أنس حاجب قام بنشر ديسمبر 16, 2011 الكاتب قام بنشر ديسمبر 16, 2011 السلام عليكم ورحمة الله وبركاته.. السادة الاساتذة الافاضل محمد صالح والعيدروس لا اقول اكثر من انتظروا الفضل والكرم من صاحب الفضل والكرم الله رب العالمين في الدنيا والاخرة باذنه تعالى. أبو أنس
محمد يحياوي قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 الاخ الكريم لاحظ هذا الرابط -------------------------
abouelhassan قام بنشر ديسمبر 16, 2011 قام بنشر ديسمبر 16, 2011 استاذنا ابو نصار استاذنا محمد صالح استاذنا محمد يحياوى كل التقدير وفائق الاحترام
أبو أنس حاجب قام بنشر ديسمبر 17, 2011 الكاتب قام بنشر ديسمبر 17, 2011 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل محمد يحياوى كل التقدير والاحترام وحفظك الله أبو أنس
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.