الخلية النابضة (من روائع الأعمال)

[ياسر خليل أبو البراء]

السلام عليكم

إخواني الأحباب في المنتدى والصرح العملاق

 

أقدم لكم عملا رائعا بكل ما تحمل كل رائع من معنى ، وهو لأحد عباقرة الإكسيل الذين تعرفت عليهم وهو الأخ (جعفر طرباق ) من المغرب

ولكن للأسف الشديد ليس له تواجد بيننا ...

 

هذه الشخصية العبقرية .. شخصية فذة في مجال البرمجة والأكواد ...

وكل أعماله التي رأيتها تعبر عن ذلك...

 

وكم أتمنى أن يتواجد بيننا هنا .. !!!

 

أعتذر عن المقدمة الطويلة عن صاحب العمل ، ولكني أكن له كل الحب والتقدير والاحترام ..

 

في المرفق النطاق A1:B20 إذا تم إدخال قيمة أكبر من 1000 تنبض الخلية لمدة ثانيتين

أرجو أن ينال الملف إعجابكم

Pulsating Cell.rar

[ابو الآء]

بارك الله فيك اخى الفاضل

هل من الممكن تجميع اعماله وملفاته فى موضوع واحد لسهوله الرجوع اليها 

عارف عمل متعب بس والله لو النت عندى كويس كنت جمعتهم 

[ياسر خليل أبو البراء]

مشكور أبو الاء على مرورك الكريم

سأقوم بتقديم ما يمكنني تقديمه من أعماله ، فهو بحق يستحق أكثر من ذلك

[ابو فارس2013]

احترامي وتقديري لكاتب الموضوع وللمبرمج المذكور

[ابو الآء]

بارك الله فيك استاذى الحبيب

[ياسر خليل أبو البراء]

احترامي وتقديري لكاتب الموضوع وللمبرمج المذكور

مشكور أخي عادل علر مرورك العطر .. شرفتني بردك على موضوعي الذي ليس يخصني!

[علي المصري]

فكرة رائعة ما استاذنا الرائع ياسرخليل

جزاك الله خيرا

[ياسر خليل أبو البراء]

فكرة رائعة ما استاذنا الرائع ياسرخليل

جزاك الله خيرا

بارك الله فيك أخي الغالي علي المصري

ومشكور على إطرائك الجميل

[صلاح الصغير]

ا / ابو الاء

فكرة التجميع التي تقوم بها كثيرا ما تعجبنى لانها اسهل فى تحصيل المعلومة

[محمود_الشريف]

أخى فى الله

الأستاذ القدير // ياسر خليل

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

والشكر موصول للأستاذ القدير // جعفر

وتقبل منى وافر الاحترام والتقدير

[ياسر خليل أبو البراء]

تسلم أستاذ محمود وأشكرك على تشجيعك المستمر لي ولغيري

[الصـقر]

الكبير كبير استاذ / ياسر خليل

والعلامه / جعفر طرباق

بصراحه حاولت فهم الكود لكن يبدو باقى وقت من الزمن غير معلوم  ههههههههههههه حتى حاولت تغير الوقت الى 10 ثوان بدلا من 2 فشلت طبعا

حاولت النبض يكون باللون الاحمر (متفهمنيش غلط ) لكن الفشل مصاحبنى بكل شئ هههههههههههههههههههههههههههههههههههههه

تلميذ بقى وقال للقلم اكتب كلام استاذ طبعا كلام كبير اعجاز معرفتش اغيرة

تسلم يا كبير ومنتظر المزيد

اخوك / حسام

تم تعديل نوفمبر 16, 2014 بواسطه حسام عيسى

[ابو خالد التقني]

السلام عليكم 

 

 

شكرا على هذه الاضافة الرائعة 

 

ولكن لم تعمل على اكسيل 2013

[ياسر خليل أبو البراء]

الأخ الفاضل حسام أنا بقول مندخلش ع الأكواد تقوم تحاول تعدل عليها والله إنت قلبك جامد

الأخ محمد .. لا أدري لماذا أنا منصب 2013 عندي في البيت وشغال 100%

ممكن إعدادات الماكرو محتاجة للتدقيق .. علم علامة صح على Trust access VBA

[جلال الجمال_ابو أدهم]

اخى/ ياسر خليل
بارك الله فيك

[ياسر خليل أبو البراء]

مشكور أخي في الله جلال على مرورك العطر على الموضوع اللي مش موضوعي

[الجموعي]

 كل الشكر أخي ياسر خليل على مشاركتك لنا لهذا الكود

والشكر موصول أيضا لصاحب الكود الأخ (جعفر طرباق )

[ياسر خليل أبو البراء]

 كل الشكر أخي ياسر خليل على مشاركتك لنا لهذا الكود

والشكر موصول أيضا لصاحب الكود الأخ (جعفر طرباق )

بارك الله فيك أخي الحبيب على مرورك الكريم ..تقبل تحياتي

[الجموعي]

 

الكبير كبير استاذ / ياسر خليل

والعلامه / جعفر طرباق

بصراحه حاولت فهم الكود لكن يبدو باقى وقت من الزمن غير معلوم  ههههههههههههه حتى حاولت تغير الوقت الى 10 ثوان بدلا من 2 فشلت طبعا

حاولت النبض يكون باللون الاحمر (متفهمنيش غلط ) لكن الفشل مصاحبنى بكل شئ هههههههههههههههههههههههههههههههههههههه

تلميذ بقى وقال للقلم اكتب كلام استاذ طبعا كلام كبير اعجاز معرفتش اغيرة

تسلم يا كبير ومنتظر المزيد

اخوك / حسام

 

 

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

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim d, a
                'هنا يتم إدخال الخلايا للوميض
        If Not Intersect(Target, Range("A1:B20")) Is Nothing Then
                If Target.Count > 1 Then Exit Sub
                'هنا يتم إدخال أعلى قيمة للوميض الخلية
                If Target > 1000 And IsNumeric(Target) Then
                 'من هنا يتم تغيير ثواني الوميض الخلية
                    Call Pulsate(Target, 2) 'Pulsate 2 Seconds.
                End If
        End If
End Sub

[الصـقر]

استاذى الفاضل / الجموعى 

شكرا لحضرتك شرح مبسط ورائع بالفعل  ادركت تغيير وقت الوميض اليوم [اصل انا بفضل تعبان ( هههههههههههههه)  طبعا دى حته للاستاذ / ياسر خليل ] لحد ما افهم الكود وازاى اعدل عليها واستفيد منه واسخره فى اعمال اخرى 

شاكر جدا لحضرتك 

تقبل احترامى وتقديرى 

[حليم ناصر]

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