Làm thế nào để làm cho ô nhấp nháy màu đỏ trong Excel?

Nhìn chung, chúng ta sẽ làm nổi bật các ô có nền khác nhau để phân biệt chúng với các ô khác. Tuy nhiên, trong bài viết này, tôi sẽ giới thiệu một mã VBA làm cho các ô cụ thể nhấp nháy với nền đỏ để nổi bật trong Excel.

Làm cho ô flash chuyển sang màu đỏ với VBA

Làm cho ô flash chuyển sang màu đỏ với VBA

Để làm cho các ô nhấp nháy và thu hút sự chú ý của người dùng, đây là mã VBA.

1. Bật trang tính bạn muốn nhấp nháy các ô và nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào Mô-đun kịch bản. Xem ảnh chụp màn hình:

VBA: Làm cho ô flash màu đỏ

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

3. nhấn F5 chìa khóa và một Kutools cho Excel hộp thoại bật ra để chọn các ô bạn muốn tạo đèn flash, xem ảnh chụp màn hình:

4. nhấp chuột OK. Bây giờ ô được chọn đã được nhấp nháy với nền màu đỏ.

Lời khuyên:

(1) Trong mã VBA, bạn có thể thay đổi màu nền (xMàu = 3), tốc độ nhấp nháy (xSpeed ​​= 0.6) và thời gian chớp mắt (Làm cho đến khi xCount = 20) như bạn muốn.

(2) Mã VBA này sẽ không thêm nền flash vào vùng chọn trống.

(3) Nền flash này sẽ tự động bị xóa sau khi kết thúc thời gian trống.