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

هل ممكن خليه تعطي وميض


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

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

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

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

وشكرا

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

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

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

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

  • 2 weeks later...

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

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

FLASHING_CELLS.rar

تم تعديل بواسطه 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