Testo lampeggiante può disegnare l'occhio ad una particolare cella di foglio di calcolo , o intervallo di celle , e avvisare l'utente alle informazioni importanti . Sebbene sia possibile modificare il testo a molti colori e caratteri in Microsoft Excel , il programma non ha una funzione built-in che fa lampeggiare il testo . Con Visual Basic, Applications Edition (VBA ) , tuttavia, è possibile personalizzare Excel per soddisfare le vostre esigenze - e che comprende la creazione di un modulo di programmazione che farà lampeggiare il testo . Istruzioni
1
Aprire l'editor di Visual Basic premendo "Alt" e " F11 " insieme.
2
Fare clic su " Inserisci" e poi cliccare su " New Module. "
3
Copia e incolla il seguente codice nella finestra vuota del modulo :
RunWhen pubblica As Double
Sub StartBlink ( ) per
con ThisWorkbook.Worksheets ( " Foglio1 " ) . Range (" A1") . Font
. ColorIndex = 3 Then ' Red Testo
. ColorIndex = 2' Bianco Testo
< p > Else
. ColorIndex = 3 ' Red Testo
End If End With
RunWhen = ora + TimeSerial ( 0,0,1 )
Application.OnTime RunWhen , "' " & ThisWorkbook.Name & " ' ! StartBlink " , vero
End Sub Sub
StopBlink ( ) per < p > ThisWorkbook.Worksheets ( " Foglio1 " ) . Range (" A1") . Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen , "' " & ThisWorkbook.Name & "' ! StartBlink " , , False
End Sub
4
Modificare la terza riga del codice per il numero del foglio attuale e numero di cellulare che si desidera a lampeggiare . L'indirizzo della cella può essere un intervallo . Ad esempio , per rendere le celle B1 attraverso batter B10 , sostituire " A1 " con " B1 : . B10 "
5
Clicca " Questa cartella di lavoro " dalla lista nella barra laterale sinistra
< br . > 6
Tagliare e incollare il codice seguente nella finestra vuota del modulo :
private Sub Workbook_Open ( ) per
StartBlink
End Sub
privato sub Workbook_BeforeClose ( Cancel As Boolean ) per
StopBlink
End sub
7
Premere " F5 " per eseguire la routine .