وميض خلايا

[XXX_WALID_XXX]

السلام عليكم اهل المنتدى الكرام

طلبى ببساطه اريد شرح (بالتفصيل) كيف اجعل خليه معينه تومض اذا صارت قيمتها اقل من 1 صحيح

وشكرا لكم وجزاكم الله خيرا

ولو امكن عمل ذلك عن طريق التنسيق الشرطى اكون شاكر جدا

[توكل]

أخي الكريم إليك هذا الملف من عمل أحد الإخوة الكرام في هذا المنتدى، وعلى ما أذكر أنه الأخ محمد طاهر.

يمكنك الإستفادة منه بإدراج دالة IF الشرطية في الخلايا التي تريدها أن توميض

للتذكير فقط هذا الملف عمل في عام 2005 م على ما أذكر

الملف المرفق

FLASHING_CELLS.rar

[XXX_WALID_XXX]

شكرا اخى الغريب1

لكن ارسلت لك ملف لتوضيح المطلوب

ففى الملف ستجد عمود به قيم سالبه وموجبه وصفر

الذى اريده اذا ظهر فى العمود اى قيمه اقل من او تساوى 1 تومض الخليه

وشكرا لكم ولكل من اهتم بالامر

_______________________.rar

[XXX_WALID_XXX]

ما شاء الله تعالى

25قراءة ولا يوجد غير رد وحيد من الغريب

طيب.... ما زال الامل فى الاخوة باقى

الرجاء الاهتمام الامر هام بالنسبة لى

وجزاكم الله تعالى خيرا :')

[محمد عسكر]

السلام عليكم

الأخ : XXX_WALID_XXX

يمكن ان تجعل الخليه تتحول الى لون معين فى حاله او شروط معينه و هذا عن طريق التنسيق الشرطى الطبيعى

و ذلك يسمح بحوالى 3 شروط فى الإكسل العادى و اكثر من ذلك فى اوفيس 2007

و لكن ما تريده من فلاش و وميض فهذا لا يمكن ان يكون بالاكسل العادى بل يجب ان يستخدم له فيجوال بيسك للإكسل ( V B A )

و اتذكر ان هناك مشاركه لوميض الخلايا

تحياتى

[أبوعبد الله]

أخي العزيز / XXX_WALID_XXX

أرجو الاطلاع على الملف المرفق وقد تم عمل المطلوب بكود VB ذلك أنه كما أسلف أخي الحبيب محمد عسكر لا يمكن تنفيذ ذلك باستخدام التنسيق الشرطي والله أعلم ، بالملف المرفق شرح لتفاصيل الفكرة أرجو أن تناسبك .

تقبل تحياتي

أبو عبدالله

FLASH_CELL_IF_LESS_THAN_ZERO.rar

[احمدزمان]

السلام عليكم

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

محمد عسكر و ابو عبدالله

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

[عادل حنفي]

اخي ابو عبد الله

سلمت يداك

عمل اكثر من رائع

تحياتي

تم تعديل يونيو 2, 2008 بواسطه aah_aah2008

[أبوعبد الله]

أخي الحبيب / أحمد يعقوب

أخي الحبيب / aah_aah2008

لكم كل الشكر والامتنان

أبو عبدالله

[MrExcel]

الاخ ابو عبدالله

من باب الامانة العلمية في استخدام الاكواد

او ان اذكر ان هذا الكود موجود في موقع

http://personal-computer-tutor.com/abc3/v20/chad20.htm

ارجو ان تتقبل ملاحظتي هذه بصدر رحب و بكل سعة

و دمتم بود

[محمد عسكر]

السلام عليكم

شكرا للأخ / اكسيلجى على الإضافه و على النموذج ( الذى كنت اتحدث عنه انه فى المنتد ى)

و لى للاخ و ليد اضافه :

اعتقد انه من الأفضل ان لا تستخدم هذا الكود لانه يكون ثقيل عل الجهاز و يؤثر على فعاليه و سرعه الإكسل لانه يعتمد على التغير كل ثانيه

هذا ما اراه . و لكن كان يجب ان ترى كيف يمكن تنفيذ هذا الأمر بالواقع .

تحيات

[توكل]

الإخوة الأكارم

جزاكم الله كل خير، حاولت أن أطبق الكود السابق بحيث يختار أعلى ثلاثة قيم من النطاق المحدد ولكن يبدو أنني لم أنجح فهل أجد عندكم حلاً بستخدام دالة LARGE

دمتم بخير

[ابو اسامة العينبوسي]

السلام عليكم

على عجاله

حتى يتسنى اكمال كود الايقاف

كما يمكن عمل اللون لكل قيمه يختلف عن الاخر

** اذا كنت تريد تلوينها فقط دون الوميض ممكن ذلك عن طريق التنسيق الشرطي

=H14=LARGE($H$14:$H$26,1)

للقيمه الثانيه

=H14=LARGE($H$14:$H$26,2)

للقيمه الثالثه

=H14=LARGE($H$14:$H$26,3)

FLASH_Large_3.rar

تم تعديل يونيو 3, 2008 بواسطه ابو اسامة العينبوسي

[توكل]

جزاك الله خيراً أخي الكريم وزادك الله علماً ومعرفة، ورفع قدرك بين عباده

[توكل]

معذرة من الإخوة الأكارم جزاهم الله كل خير

تم إضافة مؤقت للكود السابق لصبح الكود الجديد كالتالي

Dim count As Integer

Sub Blink()
Dim c As Range
Dim x As Range

If count = 10 Then

End

End If


Set x = Range("L9:L39")
For Each c In Range("L9:L39").Cells
  If c.Interior.ColorIndex = -4142 Then
       xxxxx = Application.WorksheetFunction.Min(x)
       If c.Value = xxxxx Then
       c.Interior.ColorIndex = 3
    End If
    Else
            c.Interior.ColorIndex = 0
        End If

 Next c
  BlinkTime = Now() + 1 / 86400
 Application.OnTime BlinkTime, "Blink"
 count = count + 1


End Sub