Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come fare parole Blink in Excel

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

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

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 .

 

software © www.354353.com