Note: The other languages of the website are Google-translated. Back to English

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (23)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز لن يوقف الوميض يتعطل. ما الخطأ الذي افعله؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن تطبيق هذا النص الوامض على شرط. على سبيل المثال ، إذا تم الوصول إلى تاريخ أو اقترب في ورقة عمل واحدة ، فستومض خلية في ورقة غلاف / قائمة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكن أن تجعل خلية عشوائية تومض في نطاق معين؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العمل ... عظيم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أقوم بتضمين هذا الرمز في ما يلي حتى لا أحتاج إلى أزرار ولكن الوميض يبدأ تلقائيًا عند فتح المصنف؟

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

'رمز هنا

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا دايل ،
يرجى وضع هذا الرمز في نافذة 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" ، الجدول: = خطأ
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
إنها تعمل بشكل جيد ولكن عندما أقوم بحماية الورقة الخاصة بي ، فإن الوميض لا يعمل لإظهار تصحيح الأخطاء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يرجى تجربة الكود التالي.

رابط بدء فرعي ()
خافت 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" ، صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل. جيد
ولكن بعد حماية صفحتي LOCK & Hidden (باستثناء الخلية الوامضة) لا يعمل.
أي شخص الرجاء مساعدتي في حل هذه المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مانتب جان
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تغيير هذا إلى الورقة 1؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سام،
إذا كنت تريد جعل الخلية A1 في الورقة 1 أو ورقة عمل أخرى يومض ، يرجى إضافة "ورقة 1!" أو اسم ورقة عمل أخرى قبل عنوان الخلية. انظر أدناه سطر الرمز:

تعيين xCell = Range ("Sheet1! A1")
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحتاج إلى مساعدة في جداول بيانات Google ..

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

هل هو ممكن؟ ممكن تساعد pleaseeeeeeeeeeeeeee
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا مكا ،
آسف لا أستطيع مساعدتك في ذلك. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند حماية الورقة لا يعمل هذا الرمز
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل،

الرجاء المساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية عمل وامض خلية معينة تحتوي على نص معين فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني إنشاء وميض للورقة الزمنية الخاصة بي. حيث تحتوي الخلية على وقت يزيد عن 10 ساعات. يرجى اقتراح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جاس ،
قد يحل رمز 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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحتاج إلى فعل الشيء نفسه بالنسبة لقيمة الخلية المكررة في العمود المحدد حيث ستومض قيمة الخلية إذا ظهرت القيمة المكررة في Excel
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أنا أبحث عن حل لوميض / وميض مجموعة من الخلايا تقترب من موعد مستقبلي ، على سبيل المثال في أسبوع واحد. أعني أن تاريخ تسليم أمر الشراء هو 30 أغسطس. أرغب في بدء وميض الخلايا بحلول 25 أغسطس وما بعده وحتى بعد 30 أغسطس حتى يتم تسليمها.
هل يمكن لأحد أن يعطيني حلاً؟
شكرا لكم,
سانجيف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا سانجيف راغافان ،
يمكن أن يقدم لك رمز 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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك كريستال. دعني أحاول وأعود إليك.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة