Come far lampeggiare ripetutamente una forma in Excel?

Se desideri far lampeggiare continuamente una forma in un foglio di lavoro, questo articolo ti mostrerà come fare.

Fai lampeggiare una forma ripetutamente con il codice VBA

Fai lampeggiare una forma ripetutamente con il codice VBA

Nel foglio di lavoro, per creare un effetto di forma lampeggiante, procedi nel seguente modo.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia e incolla il codice VBA nella finestra del Codice.

Codice VBA: fai lampeggiare una forma ripetutamente nel foglio di lavoro

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Note:

3. Premi insieme i tasti Alt + Q per uscire dalla finestra Microsoft Visual Basic for Applications.

4. Inserisci un pulsante nel foglio di lavoro cliccando su Sviluppatore > Inserisci > Pulsante (Controllo modulo) come mostrato nello screenshot qui sotto.

5. Nella finestra di dialogo Assegna macro che appare, seleziona Flash nella casella Nome macro, quindi clicca sul pulsante OK.

6. Quindi cambia il testo visualizzato sul pulsante come necessario. In questo caso, cambio il testo visualizzato in Avvia lampeggio come mostrato nello screenshot qui sotto.

7. Ripeti i passaggi 4 e 5 sopra per inserire un nuovo pulsante e assegnare la macro StopIt a questo pulsante.

8. Cambia il testo visualizzato di questo nuovo pulsante.

A questo punto puoi vedere che due pulsanti associati a diverse macro sono stati inseriti nel foglio di lavoro. Vedi screenshot:

Da ora in poi, quando si fa clic sul pulsante Avvia lampeggio, la forma inizia a lampeggiare con colori diversi. Se vuoi interrompere il lampeggio, fai clic sul pulsante Interrompi lampeggio.

Articolo correlato:

• Come far lampeggiare o flashare il testo di una cella specificata in Excel?