Jak zrobić migotanie tekstu w Excelu

Krok 1

Otwórz plik Microsoft Excel 2010, w którym chcesz migać tekst. Naciśnij klawisze "Alt" i "F11", aby otworzyć konsolę VBA.

Krok 2

Kliknij prawym przyciskiem myszy wpis "ThisWorkbook" po lewej stronie konsoli VBA. Przesuń mysz nad "Wstaw" i wybierz opcję "Moduł".

Krok 3

Kliknij dwukrotnie opcję "ThisWorkbook". Skopiuj poniższy kod i wklej go w pustym miejscu po prawej stronie ekranu:

Private Sub Workbook_Open () Blink End Sub

Prywatne Sub Workbook_BeforeClose (Anuluj jako Boolean) NoBlink End Sub

Kod ten rozpocznie się obok migającego tekstu po otwarciu tej książki, a miganie tekstu zatrzyma się po zamknięciu książki, po włożeniu kodu, aby powiedzieć programowi Excel, co oznacza "mruganie" i "nie mruganie".

Krok 4

Dwukrotnie kliknij "Moduł 1", z listy po lewej stronie ekranu. Umieść kursor po prawej stronie ekranu i wpisz następujący wiersz:

Public Timecount As Double

Tworzy to zmienną o nazwie "Timecount", która może być użyta w każdym podprogramie.

Krok 5

Naciśnij klawisz Enter, aby przesunąć kursor do następnej linii i wpisz następujący kod:

Sub blink () z ThisWorkbook.Worksheets ("Sheet1") Zakres ("A1: A10") Czcionka If .ColorIndex = 3 Następnie .ColorIndex = 2 Else .ColorIndex = 3 Koniec If End With Timecount = Now + TimeSerial (0, 0, 1) Application.OnTime Timecount, "Blink", True End Sub

Spowoduje to utworzenie podprogramu o nazwie "Miga", który spowoduje, że cały tekst w zdefiniowanym zakresie będzie migał. Możesz zmienić zakres "A1: A10" na dowolny zakres, w tym na pojedynczą komórkę.

Krok 6

Naciśnij klawisz "Enter", aby uzyskać dostęp do poniższej linii i wpisać następujący kod:

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

Spowoduje to utworzenie podprogramu, który zostanie wykonany po zamknięciu książki. Konwertuje cały tekst z powrotem na czarny, aby osoba, która przypadkowo otworzy książkę bez włączonych makr, nie zobaczy niczego w polach tekstowych.

Krok 7

Zamknij konsolę VBA, klikając "X" w prawym górnym rogu. Kliknij kartę "Plik" u góry ekranu i wybierz "Zapisz jako". Wybierz "Excel włączony dla makr książek" z rozwijanego pola i wprowadź nazwę książki. Kliknij "Zapisz".

Krok 8

Zamknij plik Excel i otwórz go ponownie. Twój tekst w zakresie zdefiniowanym w makrze zacznie migać. W zależności od ustawień zabezpieczeń konieczne może być kliknięcie przycisku "Włącz makra" u góry ekranu, aby wyświetlić migający tekst.