Ako vytvoriť text Flash v programe Excel

Excel neobsahuje blikajúci alebo blikajúci text ako možnosť písma. Pomocou vstavaného Visual Basic for Applications v Exceli však môžete použiť kód na zmenu farby textu v každej sekcii, čím sa vytvorí blikajúci efekt.

Krok 1

Otvorte súbor programu Microsoft Excel 2010, v ktorom chcete, aby text blikal. Stlačením "Alt" a "F11" otvorte konzolu VBA.

Video dňa

Krok 2

Kliknite pravým tlačidlom myši na položku „ThisWorkbook“ na ľavej strane konzoly VBA. Presuňte kurzor myši nad "Vložiť" a vyberte "Modul".

Krok 3

Dvakrát kliknite na možnosť „ThisWorkbook“. Skopírujte nasledujúci kód a vložte ho do bieleho 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 blikajúci text sa spustí, keď otvoríte tento zošit, a zastaví blikajúci text keď zatvoríte zošit, po vložení kódu oznámite Excelu, čo vlastne Blink a NoBlink vlastne je priemerný.

Krok 4

Dvakrát kliknite na "Modul 1" zo zoznamu na ľavej strane obrazovky. Umiestnite kurzor na pravú stranu obrazovky a zadajte nasledujúci riadok:

Verejné počítanie času ako dvojnásobok

Tým sa vytvorí premenná s názvom „Timecount“, ktorú môžete použiť v každom podprograme.

Krok 5

Stlačením klávesu Enter presuňte kurzor na ďalší riadok a zadajte nasledujúci kód:

Sub blink() With ThisWorkbook. Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Aplikácia. OnTime Timecount, "Blink", True End Sub

Tým sa vytvorí podprogram s názvom „Blink“, ktorý spôsobí, že všetok text v definovanom rozsahu bude blikať. Rozsah môžete zmeniť z „A1:A10“ na ľubovoľný rozsah vrátane jednotlivých buniek.

Krok 6

Stlačte "Enter" pre prístup k ďalšiemu riadku a zadajte nasledujúci kód:

Sub noblink() ThisWorkbook. Pracovné hárky("Hárok1").Rozsah("A1:A10").Písmo. ColorIndex = _ xlColorIndexAutomatická aplikácia. OnTime Timecount, "Blink", False End Sub

Tým sa vytvorí podprogram, ktorý sa spustí po zatvorení zošita. Všetok text zmení späť na čiernu, takže niekto, kto otvorí zošit bez zapnutých makier, náhodne neuvidí nič v textových poliach.

Krok 7

Zatvorte konzolu VBA kliknutím na „X“ v pravom hornom rohu. Kliknite na kartu „Súbor“ v hornej časti obrazovky a vyberte možnosť „Uložiť ako“. V rozbaľovacom poli vyberte možnosť „Zošit s podporou makra Excel“ a zadajte názov zošita. Kliknite na „Uložiť“.

Krok 8

Zatvorte súbor programu Excel a potom ho znova otvorte. Váš text v rozsahu definovanom v makre začne blikať. V závislosti od vašich nastavení zabezpečenia možno budete musieť kliknúť na tlačidlo „Povoliť makrá“ v hornej časti obrazovky, aby ste videli blikajúci text.