كيفية وميض أو فلاش نص من خلية محددة في إكسيل؟

لجعل خلية معينة بارزة في ورقة العمل الخاصة بك ، ماذا عن وميض نص هذه الخلية؟ ستوضح لك هذه المقالة طريقة وميض نص خلية محددة في Excel.

نص وامض أو وامض لخلية محددة برمز VBA

نص وامض أو وامض لخلية محددة برمز VBA

يرجى القيام بما يلي وميض نص خلية محددة في Excel.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ الكود التالي والصقه في نافذة Code.

كود فبا: نص وامض لخلية محددة في إكسيل

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

ملاحظة: في رمز VBA هذا ، تشير الورقة 2 و A1 إلى أن النص الموجود في الخلية A1 من الورقة 2 سيومض في المصنف الحالي.

3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

أنت الآن بحاجة إلى زر لبدء وإيقاف الوميض.

4. انقر المطور > إدراج > زر (التحكم في النموذج). انظر لقطة الشاشة:

5. ارسم زرًا في ورقة العمل ، ثم ملف تعيين ماكرو ينبثق مربع الحوار ، الرجاء الضغط StartBlink في ال الماكرو الاسم مربع ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

6. انقر بزر الماوس الأيمن فوق الزر المدرج ، ثم انقر فوق تحرير النص من قائمة النقر بزر الماوس الأيمن. ثم قم بتغيير نص الزر إلى النص الذي تحتاجه مثل بدء / إيقاف الوميض.

من الآن فصاعدًا ، عند النقر فوق الزر ، يبدأ نص الخلية A1 في الوميض. وعند النقر فوق الزر مرة أخرى ، يتوقف نص الخلية A1 عن الوميض.

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

18 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
shalim · 5 months ago
how to make flashing specific cell containing specific Text only ?
- Reply
To post as a guest, your comment is unpublished.
connie · 1 years ago
not working,

Please help
- Reply
To post as a guest, your comment is unpublished.
Shreenivas AK · 1 years ago
when protect the sheet this code not working
- Reply
To post as a guest, your comment is unpublished.
mekka · 2 years ago
hi, i need help in google sheets..

I need an entire row to blink if F3:F1001 contains the "STAT". the entire row should be in orange but also blinking until the the column W3:W1001's checkbox is ticked.

is it possible? can you help? pleaseeeeeeeeeeeeeee
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi mekka,
  Sorry can't help you with that. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
baburaj.sasco@gmail.com · 2 years ago
How can I put a condition to blink certain cells if its value is below a limit, say below 30, without using the button. Also, i will be using a protected sheet. Thanks in advance for your help.
- Reply
To post as a guest, your comment is unpublished.
Sam · 2 years ago
How do i change this to sheet 1?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Sam,
  If you want to make cell A1 in Sheet1 or other specific worksheet blinking, please add "Sheet1!" or other worksheet name before the cell address. See the below code line:
  
  Set xCell = Range("Sheet1!A1")
  
  Reply
To post as a guest, your comment is unpublished.
SUNARYANTO · 2 years ago
MANTEB GAN
- Reply
To post as a guest, your comment is unpublished.
alassail.survey@gmail.com · 2 years ago
Working. good
But after protecting my sheet LOCK & Hidden ( except blinking cell ) it's not working.
Anyone plz help me solve this issue.
- Reply
To post as a guest, your comment is unpublished.
Rashid Imam · 2 years ago
Hi,
it's working well but when I am protecting my sheet then blinking is not working showing debug msg.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Good day,
  Please try the following code.
  
  Sub StartBlink()
  Dim xCell As Range
  Dim xTime As Variant
  On Error Resume Next
  Set xCell = Range("A1")
  On Error Resume Next
  
  If xCell.Font.Color = vbRed Then
  xCell.Font.Color = vbWhite
  Else
  xCell.Font.Color = vbRed
  End If
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Dayle · 3 years ago
How do I include this code in the following so I don't need buttons but the blinking starts automatically on the workbook opening?

Private Sub Workbook_Open()

' code here

End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Hi Dayle,
  Please put this code into the ThisWorkbook window.
  
  'Put in“ThisWorkbook”window
  Private Sub Workbook_Open()
  StarBlink
  End Sub
  
  Put the below code into the Module window. And then save the workbook as an Excel Macro-enabled Workbook. Hope I can help. Thanks for your comment.
  
  'Start blinking
  Sub StarBlink()
  Dim xCell As Range
  Dim xTime As Variant
  Set xCell = Range("A1")
  With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
  If xCell.Font.Color = vbRed Then
  xCell.Font.Color = vbWhite
  Else
  xCell.Font.Color = vbRed
  End If
  End With
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
  End Sub
  'Stop blinking
  Sub StopBlink()
  xTime = Now + TimeSerial(0, 0, 1)
  Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Rafi · 3 years ago
Working... Great
- Reply
To post as a guest, your comment is unpublished.
Hana · 4 years ago
How can it make a random cell blink in a certain range?
- Reply
To post as a guest, your comment is unpublished.
Geoff Culbertson · 4 years ago
Could this blinking text be applied to a condition. i.e. if a date is reached or is approaching on one worksheet, a cell on a cover/menu sheet flashes
- Reply
To post as a guest, your comment is unpublished.
Ken · 4 years ago
This code will not stop the blinking it get stuck. What am I doing wrong?
- Reply

تسجيل الدخول إلى حسابك

استعادة كلمة المرور