Jak vytvořit text blikání v aplikaci Excel

Jak v aplikaci Excel blikat text.

Krok 1

Otevřete soubor aplikace Microsoft Excel 2010, ve kterém chcete text blikat. Stisknutím kláves "Alt" a "F11" otevřete konzolu VBA.

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 položku "Vložit" a vyberte možnost "Modul".

Krok 3

Poklepejte na možnost "Tento pracovník". 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 otevře vedle blikajícího textu, když otevřete tuto knihu a bliknutí textu se zastaví při zavření knihy, jakmile vložíte kód, abyste Excel informovali, co "bliká" a "nebliká" skutečně znamená.

Krok 4

Dvakrát klikněte na "Modul 1" ze seznamu na levé straně obrazovky. Umístěte kurzor na pravou stranu obrazovky a napište následující řádek:

Veřejný čas jako dvakrát

Tím vytvoříte proměnnou nazvanou "Timecount", kterou lze použít v každém podprogramu.

Krok 5

Stisknutím klávesy Enter přesuňte kurzor na další řádek a napište následující kód:

Podsvícení () S tímto workbook.Worksheets ("List1") Rozsah ("A1: A10")., 0, 1) Aplikace.Časový čas, "Blink", True End Sub

Tím vytvoříte podprogram nazvaný "Blikání", který způsobí, že bude blikat celý text v definovaném rozsahu. Rozsah "A1: A10" můžete změnit na libovolný rozsah, včetně jednotlivých buněk.

Krok 6

Stisknutím klávesy "Enter" otevřete následující řádek a napište následující kód:

Sub noblink () ThisWorkbook.Worksheets ("Sheet1") Rozsah ("A1: A10") Font.ColorIndex = _xlColorIndexAutomatic Application.OnTime Timecount, "Blink"

Tím vytvoříte podprogram, který bude spuštěn při zavření knihy. Převede celý text zpět na černé, takže osoba, která náhodou otevře knihu bez aktivovaných maker, v textových polích neuvidí nic.

Krok 7

Zavřete konzolu VBA kliknutím na "X" v pravém horním rohu. Klikněte na kartu "Soubor" v horní části obrazovky a vyberte možnost Uložit jako. Z rozbalovacího pole vyberte "Excel povoleno pro makra knih" a zadejte název knihy. Klikněte na tlačítko 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 nastavení zabezpečení budete muset kliknout na tlačítko "Povolit makra" v horní části obrazovky, abyste viděli blikající text.