如何在Excel中閃爍或閃爍指定單元格的文本？

為了使某個單元格在工作表中突出顯示，如何使該單元格的文本閃爍？本文將向您展示使Excel中指定單元格的文本閃爍的方法。

用VBA代碼閃爍或閃爍指定單元格的文本

請執行以下操作以閃爍Excel中指定單元格的文本。

1。按其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。在裡面 Microsoft Visual Basic for Applications 窗口中，單擊插入 > 模塊。然後將以下代碼複製並粘貼到“代碼”窗口中。

VBA代碼：在Excel中閃爍指定單元格的文本

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代碼中，Sheet2和A1表示Sheet1單元格A2中的文本在當前工作簿中將閃爍。

3。按其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

現在，您需要一個按鈕來開始和停止閃爍。

4。點擊 開發人員 > 插入 > 按鈕（表單控件）。看截圖：

5.在工作表中繪製一個按鈕，然後 分配宏 彈出對話框，請點擊 開始閃爍 在宏名稱框，然後單擊 OK 按鈕。看截圖：

6.右鍵單擊插入的按鈕，然後單擊 編輯文字 從右鍵單擊菜單中。然後將按鈕文本更改為所需的文本，例如“開始/停止閃爍”。

從現在開始，單擊按鈕時，單元格A1的文本開始閃爍。當再次單擊該按鈕時，單元格A1的文本停止閃爍。

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購...

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...

留言 (26)

還沒有評分。成為第一位評論！

肯

大約6年前

#18083

網站主持人對此評論進行了最小化

此代碼不會停止它卡住的閃爍。我究竟做錯了什麼？

傑夫·卡爾伯森

大約5年前

#18738

網站主持人對此評論進行了最小化

是否可以將此閃爍的文本應用於條件。即，如果一個工作表上的某個日期已到或即將到來，則封面/菜單表上的一個單元格會閃爍

亞當

大約5年前

#20624

網站主持人對此評論進行了最小化

它如何使隨機單元格在一定範圍內閃爍？

即時報告

拉菲

大約5年前

#23438

網站主持人對此評論進行了最小化

工作...很棒

代爾

大約4年前

#24494

網站主持人對此評論進行了最小化

如何在下麵包含此代碼，以便我不需要按鈕但在工作簿打開時會自動開始閃爍？

私人子工作簿_打開（）

'這裡的代碼

END SUB

水晶代爾

大約4年前

#24495

網站主持人對此評論進行了最小化

嗨，戴爾，
請將此代碼放入 ThisWorkbook 窗口。

'放入“ThisWorkbook”窗口
私人子工作簿_打開（）
星閃
END SUB

將以下代碼放入模塊窗口。然後將工作簿另存為啟用 Excel 宏的工作簿。希望我能幫上忙。謝謝你的評論。

'開始閃爍
子星閃爍（）
將 xCell 調暗為範圍
將 xTime 調暗為變體
設置 xCell = Range("A1")
With 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", , True
END SUB
'停止閃爍
子停止閃爍（）
xTime = 現在 + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
END SUB

即時報告

拉希德伊瑪目

大約4年前

#26065

網站主持人對此評論進行了最小化

嗨，
它運行良好，但是當我保護我的工作表時，閃爍無法顯示調試消息。

水晶拉希德伊瑪目

大約3年前

#26066

網站主持人對此評論進行了最小化

美好的一天，
請嘗試以下代碼。

子 StartBlink()
將 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", , True
END SUB

即時報告

阿爾攻擊公司

大約4年前

#26067

網站主持人對此評論進行了最小化

在職的。好的
但是在保護了我的表 LOCK & Hidden（除了閃爍的單元格）之後，它就不起作用了。
任何人請幫我解決這個問題。

即時報告

蘇納揚托

大約4年前

#27147

網站主持人對此評論進行了最小化

曼特甘

山姆

大約3年前

#28279

網站主持人對此評論進行了最小化

我如何將其更改為表 1？

水晶山姆

大約3年前

#28280

網站主持人對此評論進行了最小化

你好山姆，
如果要使 Sheet1 或其他特定工作表中的單元格 A1 閃爍，請添加“Sheet1！” 或單元格地址之前的其他工作表名稱。請參見下面的代碼行：

設置 xCell = Range("Sheet1!A1")

即時報告

麥加

大約3年前

#29958

網站主持人對此評論進行了最小化

嗨，我需要谷歌表格的幫助..

如果 F3:F1001 包含“STAT”，我需要整行閃爍。整行應該是橙色的，但也會閃爍，直到選中列 W3:W1001 的複選框。

是否可以？你能幫我嗎？拜託了啊啊啊啊啊

水晶麥加

大約3年前

#29959

網站主持人對此評論進行了最小化

嗨，梅卡，
抱歉不能幫你。感謝您的評論。

即時報告

什里尼瓦 AK

大約3年前

#31974

網站主持人對此評論進行了最小化

當保護工作表時，此代碼不起作用

康妮

大約2年前

#32735

網站主持人對此評論進行了最小化

不工作，

請幫忙

沙利姆

大約 1 年前

#34828

網站主持人對此評論進行了最小化

如何使閃爍的特定單元格僅包含特定文本？

JASS

大約7個月前

#38750

網站主持人對此評論進行了最小化

如何為我的時間表創建閃爍閃爍。單元格包含超過 10 小時的時間。請建議

水晶 JASS

大約7個月前

#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

即時報告

LOKESH

大約6個月前

#39299

網站主持人對此評論進行了最小化

嗨，我需要對所選列中的重複單元格值執行相同操作，如果重複值出現在 excel 中，單元格值將閃爍

桑吉夫·拉格萬

大約5個月前

#39636

網站主持人對此評論進行了最小化

你好，
我正在尋找解決方案來閃爍/閃爍接近未來日期的一系列單元格，比如在一周內。我的意思是採購訂單的交貨日期是 30 月 25 日。我想在 30 月 XNUMX 日之前開始閃爍單元格，甚至在 XNUMX 月 XNUMX 日之後直到它交付。
有人可以給我一個解決方案嗎？
謝謝你，
桑吉夫。

水晶桑吉夫·拉格萬

大約5個月前

#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

即時報告