提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何使Excel中的單元格閃爍紅色?

一般來說,我們重點介紹不同背景的單元格,讓他們從其他單元出發,但在這篇文章中,我介紹了一個VBA代碼,可以使具有紅色背景的特定單元格在Excel中突出顯示。

使用VBA將單元格閃爍為紅色


選擇特定單元格 (根據一個或兩個標準選擇單元格/行/列)

doc選擇特定的單元格

箭頭藍色右泡 使用VBA將單元格閃爍為紅色


為了使細胞閃爍以吸引用戶的注意力,這裡是一個VBA代碼。

Kutools for Excel, 與以上 120 方便的Excel功能,提高工作效率,節省工作時間。

1。 啟用想要使單元格閃爍的表單,然後按 Alt + F11鍵 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後粘貼到VBA代碼下面 模塊 腳本。 看截圖:

VBA:使單元格閃爍紅色

Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
    Dim xColor As Integer
    Dim xCount As Integer
    Dim xSpeed As Double
    Dim xStart As Double
    Dim xDelay As Double
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value > 4 Then
            xColor = 3
            xSpeed = 0.6
            Do Until xCount = 20
                DoEvents
                xStart = Timer
                xDelay = xStart + xSpeed
                Do Until Timer > xDelay
                    DoEvents
                    xRg.Interior.ColorIndex = xColor
                Loop
                xStart = Timer
                xDelay = xStart + xSpeed
                Do Until Timer > xDelay
                    DoEvents
                    xRg.Interior.ColorIndex = xlNone
                Loop
                xCount = xCount + 1
            Loop
        End If
    Next
End Sub

doc Flash單元格1

3。 按 F5 關鍵和a Kutools for Excel 彈出對話框以選擇要製作閃光燈的單元格,請參閱屏幕截圖:
doc Flash單元格2

4。 點擊 OK。 現在所選單元格已經以紅色背景閃爍。

提示:

(1)在VBA代碼中,您可以更改背景顏色 (xColor = 3),眨眼速度 (xSpeed = 0.6) 和眨眼間 (直到xCount = 20) 如你所願。

(2)此VBA代碼不會將閃光背景添加到空白選區。

(3)這個閃光背景將在空白時間結束後自動刪除。

doc下載1



推薦的Excel生產力工具

Kutools for Excel幫助您提前完成工作,並從人群中脫穎而出

  • 超過300強大的高級功能,專為1500工作場景設計,通過70%提高生產力,讓您有更多時間照顧家庭和享受生活。
  • 不再需要記憶公式和VBA代碼,從現在起讓你的大腦休息一下。
  • 成為3分鐘的Excel專家,複雜和重複的操作可以在幾秒鐘內完成,
  • 每天減少成千上萬的鍵盤和鼠標操作,現在告別職業病。
  • 110,000高效人才和300 +世界知名公司的選擇。
  • 60-day full功能免費試用。 60天退款保證。 2多年的免費升級和支持。

將選項卡式瀏覽和編輯帶到Microsoft Office,遠比瀏覽器的選項卡強大

  • Office選項卡專為Word,Excel,PowerPoint和其他Office應用程序設計:Publisher,Access,Visio和Project。
  • 在同一窗口的新選項卡中打開並創建多個文檔,而不是在新窗口中。
  • 通過50%提高您的工作效率,每天為您減少數百次鼠標點擊!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.