Jak sprawić, by komórka migała na czerwono w programie Excel?

Ogólnie rzecz biorąc, wyróżniamy komórki z różnymi tłami, aby odróżnić je od innych, ale tutaj, w tym artykule, przedstawiam kod VBA, który może sprawić, że określone komórki będą migać na czerwonym tle, aby wyróżnić się w programie Excel.

Spraw, aby komórka migała na czerwono za pomocą VBA

---

Spraw, aby komórka migała na czerwono za pomocą VBA

Aby komórki migały, aby przyciągnąć uwagę użytkowników, oto kod VBA.

1. Włącz arkusz, dla którego chcesz flashować komórki, i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do pliku Moduł scenariusz. Zobacz zrzut ekranu:

VBA: Spraw, aby komórka migała na czerwono

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. naciśnij F5 klucz i a Kutools dla programu Excel wyskakuje okno dialogowe do wybierania komórek, które chcesz flashować, zobacz zrzut ekranu:

4. kliknij OK. Teraz wybrana komórka miga na czerwonym tle.

Porady:

(1) W kodzie VBA możesz zmienić kolor tła (xKolor = 3), prędkość migania (xSpeed ​​= 0.6) i mrugając razy (Do xCount = 20) jak chcesz.

(2) Ten kod VBA nie doda tła flash do pustego zaznaczenia.

(3) To flashowe tło zostanie automatycznie usunięte po zakończeniu pustego czasu.