كيفية جعل وميض الخلية أحمر في إكسيل؟
بشكل عام ، نبرز الخلايا ذات الخلفيات المختلفة لجعلها خارجة عن الآخرين ، ولكن هنا ، في هذه المقالة ، أقدم رمز VBA يمكن أن يجعل الخلايا المحددة تومض بخلفية حمراء لتبرز في Excel.
جعل وميض الخلية باللون الأحمر باستخدام VBA
جعل وميض الخلية باللون الأحمر باستخدام VBA
لجعل الخلايا تومض وميض لجذب انتباه المستخدمين ، إليك رمز VBA.
1. قم بتمكين الورقة التي تريد وميض الخلايا ، واضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ثم قم بلصق رمز VBA أدناه في ملف وحدة النصي. انظر لقطة الشاشة:
VBA: اجعل وميض الخلية أحمر
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. صحافة F5 مفتاح و كوتولس ل إكسيل ينبثق مربع الحوار لاختيار الخلايا التي تريد عمل فلاش ، انظر الصورة:
4. انقر OK. الآن الخلية المحددة تومض بخلفية حمراء.
نصيحة:
(1) في كود فبا ، يمكنك تغيير لون الخلفية (xاللون = 3)سرعة الوميض (xSpeed = 0.6) ومرات وميض (حتى xCount = 20) كما تريد.
(2) رمز VBA هذا لن يضيف خلفية فلاش للاختيار الفارغ.
(3) ستتم إزالة خلفية الفلاش هذه تلقائيًا بعد انتهاء الأوقات الفارغة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
