Excel neobsahuje blikající nebo blikající text jako možnost písma. Pomocí integrovaného jazyka Visual Basic for Applications aplikace Excel však můžete pomocí kódu změnit barvu textu v každé sekci a vytvořit tak blikající efekt.
Krok 1
Otevřete soubor Microsoft Excel 2010, ve kterém chcete, aby text blikal. Stisknutím "Alt" a "F11" otevřete konzolu VBA.
Video dne
Krok 2
Klepněte pravým tlačítkem myši na položku "ThisWorkbook" na levé straně konzoly VBA. Přesuňte kurzor myši na "Vložit" a vyberte "Modul".
Krok 3
Dvakrát klikněte na možnost „ThisWorkbook“. Zkopírujte následující kód a vložte jej do prázdného místa na pravé straně obrazovky:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Zrušit jako Boolean) NoBlink End Sub
Tento kód se spustí a blikající text se spustí, když otevřete tento sešit, a zastaví blikající text když sešit zavřete, jakmile vložíte kód, který Excelu sdělí, co vlastně Blink a NoBlink znamenat.
Krok 4
Poklepejte na "Modul 1" ze seznamu na levé straně obrazovky. Umístěte kurzor na pravou stranu obrazovky a zadejte následující řádek:
Veřejné počítání času jako dvojnásobek
Tím se vytvoří proměnná s názvem "Timecount", kterou můžete použít v každém podprogramu.
Krok 5
Stisknutím klávesy Enter přesuňte kurzor na další řádek a zadejte následující kód:
Sub blink() s tímto sešitem. 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) Aplikace. OnTime Timecount, "Blink", True End Sub
Tím se vytvoří podprogram nazvaný "Blink", který způsobí, že veškerý text v definovaném rozsahu bude blikat. Rozsah můžete změnit z "A1:A10" na libovolný rozsah, včetně jednotlivé buňky.
Krok 6
Stiskněte "Enter" pro přístup k dalšímu řádku a zadejte následující kód:
Sub noblink() ThisWorkbook. Pracovní listy("List1").Rozsah("A1:A10").Písmo. ColorIndex = _ xlColorIndexAutomatická aplikace. OnTime Timecount, "Blink", False End Sub
Tím se vytvoří podprogram, který se spustí po zavření sešitu. Veškerý text změní zpět na černou, takže někdo, kdo otevře sešit bez povolených maker, v textových polích náhodou nic neuvidí.
Krok 7
Zavřete konzolu VBA kliknutím na "X" v pravém horním rohu. Klikněte na záložku "Soubor" v horní části obrazovky a zvolte "Uložit jako". Z rozevíracího pole vyberte „Sešit s podporou maker Excel“ a zadejte název sešitu. Klikněte na „Uložit“.
Krok 8
Zavřete soubor aplikace Excel a znovu jej otevřete. Váš text v rozsahu definovaném v makru začne blikat. V závislosti na vašem nastavení zabezpečení možná budete muset kliknout na tlačítko „Povolit makra“ v horní části obrazovky, abyste viděli blikající text.
