Jak mrugać lub flashować tekst określonej komórki w programie Excel?
Aby wyróżnić określoną komórkę w arkuszu, co powiesz na mruganie tekstem tej komórki? W tym artykule pokażemy metodę migania tekstu określonej komórki w programie Excel.
Migający lub migający tekst określonej komórki z kodem VBA
Migający lub migający tekst określonej komórki z kodem VBA
Wykonaj następujące czynności, aby zamrugać tekst określonej komórki w programie Excel.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej następujący kod do okna Code.
Kod VBA: migający tekst określonej komórki w programie Excel
Sub StartBlink()
'Updated by ExtendOffice 20181010
Dim xCell As Range
Dim xTime As Variant
On Error Resume Next
Set xCell = Range("Sheet2!A1")
On Error Resume Next
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Note: w tym kodzie VBA, Sheet2 i A1 wskazują, że tekst w komórce A1 w Sheet2 będzie migał w bieżącym skoroszycie.
3. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
Teraz potrzebujesz przycisku, aby rozpocząć i zatrzymać miganie.
4. kliknij Deweloper > wstawka > Przycisk (kontrolka formularza). Zobacz zrzut ekranu:
5. Narysuj przycisk w arkuszu, a następnie plik Przypisz makro pojawi się okno dialogowe, kliknij StartMrugnięcie Macro Nazwa a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
6. Prawym przyciskiem myszy kliknij wstawiony przycisk i kliknij Edytować tekst z menu po kliknięciu prawym przyciskiem myszy. Następnie zmień tekst przycisku na potrzebny Ci tekst, na przykład Start / Stop Miga.
Odtąd po kliknięciu przycisku tekst komórki A1 zacznie migać. Po ponownym kliknięciu przycisku tekst komórki A1 przestaje migać.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!