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

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

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

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


用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-2019和365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能30天免費試用。 60天退款保證。
kte選項卡201905

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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 每天將您的工作效率提高50%,並減少數百次鼠標單擊!
officetab底部
按評論排序
留言 (23)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
此代碼不會停止它卡住的閃爍。 我究竟做錯了什麼?
網站主持人對此評論進行了最小化
是否可以將此閃爍的文本應用於條件。 即,如果一個工作表上的某個日期已到或即將到來,則封面/菜單表上的一個單元格會閃爍
網站主持人對此評論進行了最小化
它如何使隨機單元格在一定範圍內閃爍?
網站主持人對此評論進行了最小化
工作...很棒
網站主持人對此評論進行了最小化
如何在下麵包含此代碼,以便我不需要按鈕但在工作簿打開時會自動開始閃爍?

私人子工作簿_打開()

'這裡的代碼

END SUB
網站主持人對此評論進行了最小化
嗨,戴爾,
請將此代碼放入 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
網站主持人對此評論進行了最小化
嗨,
它運行良好,但是當我保護我的工作表時,閃爍無法顯示調試消息。
網站主持人對此評論進行了最小化
美好的一天,
請嘗試以下代碼。

子 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
網站主持人對此評論進行了最小化
在職的。 好的
但是在保護了我的表 LOCK & Hidden(除了閃爍的單元格)之後,它就不起作用了。
任何人請幫我解決這個問題。
網站主持人對此評論進行了最小化
曼特甘
網站主持人對此評論進行了最小化
我如何將其更改為表 1?
網站主持人對此評論進行了最小化
你好山姆,
如果要使 Sheet1 或其他特定工作表中的單元格 A1 閃爍,請添加“Sheet1!” 或單元格地址之前的其他工作表名稱。 請參見下面的代碼行:

設置 xCell = Range("Sheet1!A1")
網站主持人對此評論進行了最小化
嗨,我需要谷歌表格的幫助..

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

是否可以? 你能幫我嗎? 拜託了啊啊啊啊啊
網站主持人對此評論進行了最小化
嗨,梅卡,
抱歉不能幫你。 感謝您的評論。
網站主持人對此評論進行了最小化
當保護工作表時,此代碼不起作用
網站主持人對此評論進行了最小化
不工作,

請幫忙
網站主持人對此評論進行了最小化
如何使閃爍的特定單元格僅包含特定文本?
網站主持人對此評論進行了最小化
如何為我的時間表創建閃爍閃爍。單元格包含超過 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 月 XNUMX 日之前開始閃爍單元格,甚至在 XNUMX 月 XNUMX 日之後直到它交付。
有人可以給我一個解決方案嗎?
謝謝你,
桑吉夫。
網站主持人對此評論進行了最小化
嗨桑吉夫拉加萬,
下面的 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   字符
推薦地點