Come far lampeggiare la cella in rosso in Excel?
In generale, evidenziamo le celle con sfondi diversi per distinguerle dagli altri, ma qui, in questo articolo, presento un codice VBA in grado di far lampeggiare le celle specifiche con sfondo rosso in sospeso in Excel.
Fai lampeggiare la cella in rosso con VBA
Fai lampeggiare la cella in rosso con VBA
Per far lampeggiare le celle per attirare l'attenzione degli utenti, ecco un codice VBA.
1. Abilitare il foglio su cui si desidera far lampeggiare le celle e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, quindi incolla sotto il codice VBA nel file Moduli script. Vedi screenshot:
VBA: fa lampeggiare la cella in 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. Stampa F5 chiave e a Kutools for Excel viene visualizzata la finestra di dialogo per selezionare le celle che si desidera rendere flash, vedere screenshot:
4. Clic OK. Ora la cella selezionata è stata lampeggiante con sfondo rosso.
Suggerimenti:
(1) Nel codice VBA, puoi cambiare il colore di sfondo (xColore = 3), velocità di lampeggiamento (xSpeed = 0.6) e lampeggiare volte (Fai fino a xCount = 20) come vuoi.
(2) Questo codice VBA non aggiungerà lo sfondo flash alla selezione vuota.
(3) Questo sfondo flash verrà rimosso automaticamente al termine degli spazi vuoti.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
