Hogyan lehet szöveget flashelni az Excelben

Az Excel nem tartalmaz villogó vagy villogó szöveget betűtípusként. Az Excel beépített Visual Basic for Applications használatával azonban kóddal megváltoztathatja a szöveg színét minden szakaszban, ami villogó hatást eredményez.

1. lépés

Nyissa meg azt a Microsoft Excel 2010 fájlt, amelyben villogni szeretné a szöveget. Nyomja meg az „Alt” és az „F11” gombot a VBA-konzol megnyitásához.

2. lépés

Kattintson a jobb gombbal a "ThisWorkbook" bejegyzésre a VBA konzol bal oldalán. Vigye az egeret a „Beszúrás” fölé, és válassza a „Modul” lehetőséget.

3. lépés

Kattintson duplán a „ThisWorkbook” opcióra. Másolja ki a következő kódot, és illessze be a képernyő jobb oldalán lévő fehér mezőbe:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

Ez a kód elindul és a villogó szöveg, amikor megnyitja ezt a munkafüzetet, és leállítja a villogó szöveget, amikor bezárja a munkafüzetet, miután beilleszti a kódot, hogy elmondja az Excelnek, mit jelent valójában a Blink és a NoBlink.

4. lépés

Kattintson duplán az „1. ​​modul” elemre a képernyő bal oldalán található listában. Vigye a kurzort a képernyő jobb oldalára, és írja be a következő sort:

Nyilvános időszámlálás kettősként

Ez létrehoz egy "Timecount" nevű változót, amelyet minden szubrutinban használhat.

5. lépés

Nyomja meg az Enter billentyűt, hogy a kurzort a következő sorra vigye, és írja be a következő kódot:

Sub blink() With ThisWorkbook.Worksheets("Sheet1").Tartomány("A1:A10").Betűtípus Ha .ColorIndex =3 Then .ColorIndex =2 Else .ColorIndex =3 End If End With Timecount =Most + TimeSerial(0 , 0, 1) Alkalmazás.OnTime időszámlálás, "villogás", , True End Sub

Ez létrehoz egy "Blink" nevű alprogramot, amely a meghatározott tartományon belüli összes szöveget villogni fogja. Módosíthatja a tartományt "A1:A10"-ről a kívánt tartományra, beleértve az egyes cellákat is.

6. lépés

Nyomja meg az "Enter" gombot a következő sor eléréséhez, és írja be a következő kódot:

Sub noblink() ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font.ColorIndex =_ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub

Ez létrehoz egy szubrutint, amely a munkafüzet bezárásakor fut le. Visszaállítja az összes szöveget feketére, így valaki, aki makrók nélkül nyitja meg a munkafüzetet, véletlenül se lát semmit a szövegmezőkben.

7. lépés

Zárja be a VBA konzolt a jobb felső sarokban található "X" gombra kattintva. Kattintson a "Fájl" fülre a képernyő tetején, és válassza a "Mentés másként" lehetőséget. A legördülő mezőben válassza az "Excel makró-kompatibilis munkafüzet" lehetőséget, és írja be a munkafüzet nevét. Kattintson a „Mentés” gombra.

8. lépés

Zárja be az Excel fájlt, majd nyissa meg újra. A szöveg a makróban meghatározott tartományon belül villogni kezd. A biztonsági beállításoktól függően előfordulhat, hogy a villogó szöveg megtekintéséhez kattintson a képernyő tetején található "Makrók engedélyezése" gombra.