Come fare per far lampeggiare una cella di rosso in Excel?

In generale, evidenziamo le celle con sfondi diversi per distinguerle dalle altre. Tuttavia, in questo articolo, vi presenterò un codice VBA che fa lampeggiare specifiche celle con uno sfondo rosso per farle risaltare in Excel.

Far lampeggiare una cella di rosso con VBA

Far lampeggiare una cella di rosso con VBA

Per far lampeggiare le celle e attirare l'attenzione degli utenti, ecco un codice VBA.

1. Abilitate il foglio in cui desiderate far lampeggiare le celle e premete i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Cliccate su Inserisci > Modulo, quindi incollate il seguente codice VBA nello script del Modulo. Vedere screenshot:

VBA: Far lampeggiare una cella di rosso

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. Premete F5 tasto, e una Kutools per Excel finestra di dialogo si aprirà per selezionare le celle che si desidera far lampeggiare, vedere screenshot:

4. Cliccate OK. Ora la cella selezionata lampeggerà con uno sfondo rosso.

Suggerimenti:

(1) Nel codice VBA, potete cambiare il colore di sfondo (xColor = 3), la velocità di lampeggio (xSpeed = 0.6) e il numero di lampeggi (Do Until xCount = 20) come desiderate.

(2) Questo codice VBA non aggiungerà lo sfondo lampeggiante a una selezione vuota.

(3) Questo sfondo lampeggiante verrà rimosso automaticamente dopo che il numero di lampeggi sarà terminato.