Ako si vyrobiť Text Flash v programe Excel

Excel nefiguruje blikajúci alebo blikajúci text , ako voľba písma . Použitie programu Excel vstavané v jazyku Visual Basic for Applications , však, môžete použiť kód , aby Zmena farby textu každej časti , vytvára blikajúce efekt . Pokyny dovolená 1

Otvorte súbor programu Microsoft Excel 2010 , v ktorom chcete , aby sa text blesk . Stlačte tlačidlo " Alt " a " F11 " otvoriť konzolu VBA .
2

Pravým tlačidlom myši kliknite na " ThisWorkbook " vstup na ľavej strane konzoly VBA . Presuňte kurzor myši na " Vložiť " a vyberte " modul " .
3

Double - kliknite na " ThisWorkbook " voľba . Skopírujte nasledujúci kód a vložte ho do prázdneho priestoru na pravej strane obrazovky :

Private Sub Workbook_Open ( )

Blink

End Sub

Private Sub Workbook_BeforeClose ( Cancel As Boolean )

NoBlink

End Sub

tento kód sa spustí a bliká texte , keď otvoríte tento zošit , a zastaviť blikajúci text , keď zatvorte zošit , akonáhle vložíte kód povedať , Excel , čo Blink a NoBlink vlastne znamená .
4

Double - kliknite na " Modul 1 " zo zoznamu na ľavej strane obrazovky . Umiestnite kurzor na pravej strane obrazovky a zadajte nasledujúci riadok : .

Verejné Timecount Ako Double

Tým sa vytvorí premennú s názvom " Timecount " , ktoré možno použiť v každom podprograme

5

Stlačením klávesu ENTER presunúť kurzor na ďalší riadok a zadajte nasledujúci kód :

Sub blink ( )

S ThisWorkbook.Worksheets ( " Hárok1 " ) . range ( " A1 : A10 " ) písma

Ak ColorIndex = 3 Potom

ColorIndex = 2

Else

ColorIndex = 3 < .... br >

End If

End With

Timecount = Now + TimeSerial ( 0 , 0 , 1 )

Application.OnTime Timecount , " Blink " , , Pravda

End Sub

Tým sa vytvorí podprogram s názvom " Blink " , ktorý spôsobí celý text vo vymedzenom rozsahu blikať . Môžete zmeniť rozsah od " A1 : A10 " na čokoľvek rozsah si prajete , vrátane jednotlivých buniek
6

Stlačte tlačidlo " Enter " prejdite na ďalší riadok a zadajte nasledujúci kód : . ClipArt

Sub noblink ( )

ThisWorkbook.Worksheets ( " Hárok1 " ) typu .. ( " A1 : A10 " ) Font.ColorIndex = _

xlColorIndexAutomatic

Aplikácie . OnTime Timecount , " Blink " , , false

End Sub

Tým sa vytvorí podprogram , ktorý bude spustený pri zatvorení zošita . Ukazuje sa všetok text späť na čiernu , aby niekto , kto otvorí zošit bez makrá umožnili nebude náhodou vidieť nič v textových poliach .
7

Zatvorte konzolu VBA kliknutím na " X " v pravý horný roh . Kliknite na záložku " Súbor " v hornej časti obrazovky a vyberte " Uložiť ako . " Vyberte " Excel podporujúca makrá zošit " z rozbaľovacieho poľa a zadajte názov zošita . Kliknite na tlačidlo " Uložiť " .
8

Zatvorte súbor programu Excel a potom znova otvorte . Váš text , v rozsahu definovanom v makre , začne blikať . V závislosti na nastavení zabezpečenia, môže byť potrebné kliknúť na tlačidlo " Povoliť makrá " v hornej časti obrazovky sa zobrazí blikajúci text .

• Predchádzajúca strana: Ako odobrať Vlastnosti súboru v programe Excel 2007 
• Ďalšia strana: Ako pracovať s VBA tried v programe Excel