كيفية جعل الشكل يومض أو يومض مرارًا وتكرارًا في Excel؟
إذا كنت تريد إنشاء شكل يومض مرارًا وتكرارًا في ورقة عمل ، فيمكن أن تساعدك إحدى الطرق الواردة في هذه المقالة.
اجعل شكلًا يومض مرارًا وتكرارًا باستخدام رمز VBA
اجعل شكلًا يومض مرارًا وتكرارًا باستخدام رمز VBA
في ورقة العمل ، لجعل الشكل يومض ، يرجى القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق كود فبا في نافذة الكود.
كود فبا: جعل شكل يومض مرارا وتكرارا في ورقة العمل
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End Sub
ملاحظة:
3. اضغط على قديم + Q مفاتيح معًا للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
4. أدخل زر في ورقة العمل عن طريق النقر المطور > إدراج > زر (التحكم في النموذج) كما هو موضح أدناه لقطة الشاشة.
5. في ظهرت تعيين ماكرو مربع الحوار، حدد Flash في ال اسم الماكرو مربع ، ثم انقر فوق OK .
6. ثم قم بتغيير نص العرض على الزر حسب حاجتك. في هذه الحالة ، أقوم بتغيير نص العرض إلى بدء الوميض كما هو موضح أدناه.
7. كرر الخطوتين 4 و 5 أعلاه لإدخال زر جديد وتعيين ملف توقف عن ذلك الماكرو لهذا الزر.
8. قم بتغيير نص العرض لهذا الزر الجديد.
ثم يمكنك رؤية زرين يتم تخصيصهما باستخدام وحدات ماكرو مختلفة تم إدراجهما في ورقة العمل. انظر لقطة الشاشة:
من الآن فصاعدًا ، عند النقر فوق الزر بدء الوميض ، يبدأ الشكل في الوميض بألوان مختلفة. إذا كنت ترغب في إيقاف الفلاش ، يرجى النقر فوق زر إيقاف الوميض.
مقالة ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!