Excel nie zawiera migającego lub migającego tekstu jako opcji czcionki. Korzystając z wbudowanego Visual Basic for Applications programu Excel, możesz jednak użyć kodu, aby zmienić kolor tekstu w każdej sekcji, tworząc efekt migania.
Krok 1
Otwórz plik Microsoft Excel 2010, w którym chcesz, aby tekst migał. Naciśnij "Alt" i "F11", aby otworzyć konsolę VBA.
Wideo dnia
Krok 2
Kliknij prawym przyciskiem myszy wpis „ThisWorkbook” po lewej stronie konsoli VBA. Najedź myszą na „Wstaw” i wybierz „Moduł”.
Krok 3
Kliknij dwukrotnie opcję „ThisWorkbook”. Skopiuj następujący kod i wklej go w białe miejsce po prawej stronie ekranu:
Private Sub Workbook_Open() Miga Koniec Sub
Private Sub Workbook_BeforeClose (Anuluj jako Boolean) NoBlink End Sub
Ten kod zostanie uruchomiony i migający tekst po otwarciu tego skoroszytu i zatrzyma migający tekst kiedy zamkniesz skoroszyt, po wstawieniu kodu, aby powiedzieć Excelowi, co właściwie Blink i NoBlink oznaczać.
Krok 4
Kliknij dwukrotnie "Moduł 1" z listy po lewej stronie ekranu. Umieść kursor po prawej stronie ekranu i wprowadź następujący wiersz:
Podwójny licznik czasu publicznego
Tworzy to zmienną o nazwie „Licznik czasu”, której można używać w każdym podprogramie.
Krok 5
Naciśnij enter, aby przenieść kursor do następnej linii i wprowadź następujący kod:
Sub blink() Z ThisWorkbook. 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) Aplikacja. Licznik czasu OnTime, „Mrugnięcie”, True End Sub
Spowoduje to utworzenie podprogramu o nazwie „Mrugnięcie”, który spowoduje miganie całego tekstu w zdefiniowanym zakresie. Możesz zmienić zakres z „A1:A10” na dowolny zakres, w tym pojedynczą komórkę.
Krok 6
Naciśnij „Enter”, aby przejść do następnej linii i wprowadź następujący kod:
Sub noblink() ThisWorkbook. Arkusze ("Arkusz1").Range("A1:A10").Czcionka. ColorIndex = _ xlColorIndexAutomatyczna aplikacja. Licznik czasu OnTime, „Mrugnięcie”, Fałszywy koniec Sub
Spowoduje to utworzenie podprogramu, który zostanie uruchomiony po zamknięciu skoroszytu. Zmienia cały tekst z powrotem na czarny, aby ktoś, kto otworzy skoroszyt bez włączonych makr, przypadkowo 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 „Skoroszyt z obsługą makr programu Excel” z pola rozwijanego i wpisz nazwę skoroszytu. Kliknij „Zapisz”.
Krok 8
Zamknij plik Excel, a następnie otwórz go ponownie. Twój tekst w zakresie zdefiniowanym w makrze zacznie migać. W zależności od ustawień zabezpieczeń może być konieczne kliknięcie przycisku „Włącz makra” u góry ekranu, aby zobaczyć migający tekst.
