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 SubNote:
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:
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in