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

لجعل خلية معينة بارزة في ورقة العمل الخاصة بك ، ماذا عن وميض نص هذه الخلية؟ ستوضح لك هذه المقالة طريقة وميض نص خلية محددة في 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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

التعليقات (23)

لا يوجد تقييم. كن أول من يقيم!

كين

منذ حوالي 5 سنوات

#18083

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هذا الرمز لن يوقف الوميض يتعطل. ما الخطأ الذي افعله؟

رد

جيف كولبيرتسون

منذ حوالي 5 سنوات

#18738

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل يمكن تطبيق هذا النص الوامض على شرط. على سبيل المثال ، إذا تم الوصول إلى تاريخ أو اقترب في ورقة عمل واحدة ، فستومض خلية في ورقة غلاف / قائمة

رد

ادم

منذ حوالي 5 سنوات

#20624

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف يمكن أن تجعل خلية عشوائية تومض في نطاق معين؟

رد

تبليغ

رافي

منذ حوالي 4 سنوات

#23438

تم تصغير هذا التعليق بواسطة المشرف على الموقع

العمل ... عظيم

رد

دايل

منذ حوالي 4 سنوات

#24494

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف أقوم بتضمين هذا الرمز في ما يلي حتى لا أحتاج إلى أزرار ولكن الوميض يبدأ تلقائيًا عند فتح المصنف؟

مصنف فرعي خاص_ فتح ()

'رمز هنا

نهاية الفرعية

رد

كريستال دايل

منذ حوالي 4 سنوات

#24495

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا دايل ،
يرجى وضع هذا الرمز في نافذة ThisWorkbook.

ضع في نافذة "ThisWorkbook"
مصنف فرعي خاص_ فتح ()
ستاربلينك
نهاية الفرعية

ضع الكود أدناه في نافذة الوحدة النمطية. ثم احفظ المصنف كمصنف Excel Macro ممكن. آمل أن أتمكن من المساعدة. شكرا على تعليقك.

ابدأ بالوميض
StarBlink الفرعية ()
خافت xCell كمجموعة
خافت xTime كمتغير
تعيين xCell = Range ("A1")
باستخدام ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Font
إذا كان xCell.Font.Color = vbRed ثم
xCell.Font.Color = vbWhite
آخر
xCell.Font.Color = vbRed
إنهاء حالة
انتهت ب
xTime = الآن + TimeSerial (0 ، 0 ، 1)
Application.OnTime xTime، "" & ThisWorkbook.Name & "! StarBlink" ، صحيح
نهاية الفرعية
توقف عن الوميض
Sub StopBlink ()
xTime = الآن + TimeSerial (0 ، 0 ، 1)
Application.OnTime EarliestTime: = xTime ، الإجراء: = "" & ThisWorkbook.Name & "! StarBlink" ، الجدول: = خطأ
نهاية الفرعية

رد

تبليغ

راشد إمام

منذ حوالي 4 سنوات

#26065

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
إنها تعمل بشكل جيد ولكن عندما أقوم بحماية الورقة الخاصة بي ، فإن الوميض لا يعمل لإظهار تصحيح الأخطاء.

رد

كريستال راشد إمام

منذ حوالي 3 سنوات

#26066

تم تصغير هذا التعليق بواسطة المشرف على الموقع

يوم جيد،
يرجى تجربة الكود التالي.

رابط بدء فرعي ()
خافت xCell كمجموعة
خافت xTime كمتغير
على خطأ استئناف التالي
تعيين xCell = Range ("A1")
على خطأ استئناف التالي

إذا كان xCell.Font.Color = vbRed ثم
xCell.Font.Color = vbWhite
آخر
xCell.Font.Color = vbRed
إنهاء حالة
xTime = الآن + TimeSerial (0 ، 0 ، 1)
Application.OnTime xTime، "" & ThisWorkbook.Name & "'! StartBlink" ، صحيح
نهاية الفرعية

رد

تبليغ

شركة الاصيل

منذ حوالي 4 سنوات

#26067

تم تصغير هذا التعليق بواسطة المشرف على الموقع

عمل. جيد
ولكن بعد حماية صفحتي LOCK & Hidden (باستثناء الخلية الوامضة) لا يعمل.
أي شخص الرجاء مساعدتي في حل هذه المشكلة.

رد

تبليغ

ساناريانتو

منذ حوالي 3 سنوات

#27147

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مانتب جان

رد

سام

منذ حوالي 3 سنوات

#28279

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف يمكنني تغيير هذا إلى الورقة 1؟

رد

كريستال سام

منذ حوالي 3 سنوات

#28280

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سام،
إذا كنت تريد جعل الخلية A1 في الورقة 1 أو ورقة عمل أخرى يومض ، يرجى إضافة "ورقة 1!" أو اسم ورقة عمل أخرى قبل عنوان الخلية. انظر أدناه سطر الرمز:

تعيين xCell = Range ("Sheet1! A1")

رد

تبليغ

مكة

منذ حوالي 3 سنوات

#29958

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، أحتاج إلى مساعدة في جداول بيانات Google ..

أحتاج إلى صف كامل ليومض إذا كان F3: F1001 يحتوي على "STAT". يجب أن يكون الصف بأكمله باللون البرتقالي ولكن أيضًا يومض حتى يتم تحديد خانة اختيار العمود W3: W1001.

هل هو ممكن؟ ممكن تساعد pleaseeeeeeeeeeeeeee

رد

كريستال مكة

منذ حوالي 3 سنوات

#29959

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا مكا ،
آسف لا أستطيع مساعدتك في ذلك. شكرا لك على تعليقك.

رد

تبليغ

شرينيفاس أيه كيه

منذ حوالي 2 سنوات

#31974

تم تصغير هذا التعليق بواسطة المشرف على الموقع

عند حماية الورقة لا يعمل هذا الرمز

رد

كوني

منذ حوالي 2 سنوات

#32735

تم تصغير هذا التعليق بواسطة المشرف على الموقع

لا يعمل،

الرجاء المساعدة

رد

شاليم

منذ حوالي سنة واحدة

#34828

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيفية عمل وامض خلية معينة تحتوي على نص معين فقط؟

رد

JASS

منذ حوالي 2 أشهر

#38750

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف يمكنني إنشاء وميض للورقة الزمنية الخاصة بي. حيث تحتوي الخلية على وقت يزيد عن 10 ساعات. يرجى اقتراح

رد

كريستال JASS

منذ حوالي 2 أشهر

#38786

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا جاس ،
قد يحل رمز VBA التالي مشكلتك. يرجى محاولة إعطائها.
لا تنس تغيير اسم الورقة ونطاق الساعات في الكود.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub

رد

تبليغ

كيش

قبل حوالي 1 شهر

#39299

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا ، أحتاج إلى فعل الشيء نفسه بالنسبة لقيمة الخلية المكررة في العمود المحدد حيث ستومض قيمة الخلية إذا ظهرت القيمة المكررة في Excel

رد

سانجيف راغافان

قبل حوالي 1 شهر

#39636

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
أنا أبحث عن حل لوميض / وميض مجموعة من الخلايا تقترب من موعد مستقبلي ، على سبيل المثال في أسبوع واحد. أعني أن تاريخ تسليم أمر الشراء هو 30 أغسطس. أرغب في بدء وميض الخلايا بحلول 25 أغسطس وما بعده وحتى بعد 30 أغسطس حتى يتم تسليمها.
هل يمكن لأحد أن يعطيني حلاً؟
شكرا لكم,
سانجيف.

رد

كريستال سانجيف راغافان

منذ حوالي أسبوعين

#39776

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا سانجيف راغافان ،
يمكن أن يقدم لك رمز VBA التالي خدمة. في الكود ، تحتاج إلى التغيير الورقة 5! D2: D5 إلى اسم الورقة والنطاق الذي تريد وميضه.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub

رد

تبليغ