اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

اخواني هل يوجد لخليه معينه تعطي وميض اي تشب لون معين وتطفي او تشب لون أخضر وأحمر مثلا

وهذا لأن يوجد هناك تواريخ معينة تهمني في عملي فأريد من هذه الخلية ان تنبهني بها وعندما انتهي من ذلك التاريخ أي تعدي تاريخ الجهاز ترجع الخلية الى طبيعتا مثل باقي الخلايا.

وشكرا

قام بنشر

- المثال السابق لعمل وميض بشكل عام لخليه . ويمكنك من خلال التنسيق الشرطي لخليه أن تجعل لونها يتغير حسب الشرط الذي تريده .

- أختر الخليه ثم من " تنسيق " أختر " تنسيق شرطي " وأختر ما تشاء

قام بنشر

- أشكر إنتظاركما ... ولأخي " الطاير " لا يوجد بديل عن الكود لتلبية الغرض

  • 2 weeks later...
قام بنشر (معدل)

السلام عليكم،

ما بعد الصبر إلا الفرج .. شوفوا أخواني الملف المرفق .. وأن شاء الله يكون هو ما تريدون.

FLASHING_CELLS.rar

تم تعديل بواسطه LoveCandle
قام بنشر

LoveCandle

اشكر ك جزيـــــــــــــــــــــــــل الشكر وبارك الله فيك ...... على صبرك علينا وهذا هو المطلوب بنسبه لي ...........

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

اخواني هل يوجد لخليه معينه تعطي وميض اي تشب لون معين وتطفي او تشب لون أخضر وأحمر مثلا

وهذا لأن يوجد هناك تواريخ معينة تهمني في عملي فأريد من هذه الخلية ان تنبهني بها وعندما انتهي من ذلك التاريخ أي تعدي تاريخ الجهاز ترجع الخلية الى طبيعتا مثل باقي الخلايا.

وشكرا

<{POST_SNAPBACK}>

جرب من قائمة تنسيق و اختر الامر تنسيق شرطي

اعتقد ان في ذلك رد علي سؤالك

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

<{POST_SNAPBACK}>

السلام عليكم،

لم تظهر لدي أي مشاكل في الملف نهائياً .. والكود الموجود ليس له أي علاقة بفتح أو إغلاق الملف .. ربما حدث هذه المشلكة معك لأن لديك مصنفات أخرى مفتوحة في الوقت ذاته .. أنصحك بأن تفتح الملف لوحده .. وأخبرني

قام بنشر
الأخ / LoveCandle

إذا تكرمت ما هو التنسيق الذي استخدمته ؟

<{POST_SNAPBACK}>

السلام عليكم،

أخي أبو يوسف .. لم أستخدم أي تنسيق .. كل ما رأيته كان ناتجاً عن الكود التالي:

Public Sub Blink()
Dim rngCell As Range
Dim rngRegion As Range
Dim appTime As Double
Set rngRegion = Sheets(1).Range("D7,D11,E8,E10,F9,G8,G10,H7,H11")
For Each rngCell In rngRegion
With rngCell
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 2, 3, 2)
End With
Next rngCell
appTime = Now() + TimeValue("00:00:01")
Application.OnTime appTime, "Blink"
End Sub

وإذا لم يظهر لديك ما كان ظاهراً في الملف المرفق .. فأرجوا إرفاق الملف الذي تريد وضع الكود فيه لكي نقوم بالازم.

  • 1 year later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information