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 a szöveget villogni szeretné. Nyomja meg az "Alt" és az "F11" gombot a VBA-konzol megnyitásához.
A nap videója
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:
Privát al-munkafüzet_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Mégse logikai értékként) 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 a munkafüzet bezárásakor a kód beszúrása után elmondja az Excelnek, hogy valójában mi a Blink és a NoBlink átlagos.
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ámítás Duplaké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() Ezzel a munkafüzettel. 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 Timecount, "Villogás", True End Sub
Ez létrehoz egy "Blink" nevű szubrutint, amely a meghatározott tartományon belüli összes szöveget villogni fogja. Módosíthatja az „A1:A10” tartományt 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. Munkalapok("Lap1").Tartomány("A1:A10").Betűtípus. ColorIndex = _ xlColorIndexAutomatikus alkalmazás. OnTime Timecount, "Villogás", 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, hogy aki makrók nélkül nyitja meg a munkafüzetet, véletlenül se látjon 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övege 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 képernyő tetején található "Makrók engedélyezése" gombra kell kattintania a villogó szöveg megjelenítéséhez.
