Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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

Uwagi: 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 w 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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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ęć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    shalim · 5 months ago
    how to make flashing specific cell containing specific Text only ?

  • To post as a guest, your comment is unpublished.
    connie · 1 years ago
    not working,

    Please help
  • To post as a guest, your comment is unpublished.
    Shreenivas AK · 1 years ago
    when protect the sheet this code not working
  • To post as a guest, your comment is unpublished.
    mekka · 2 years ago
    hi, i need help in google sheets..

    I need an entire row to blink if F3:F1001 contains the "STAT". the entire row should be in orange but also blinking until the the column W3:W1001's checkbox is ticked.

    is it possible? can you help? pleaseeeeeeeeeeeeeee
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi mekka,
      Sorry can't help you with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    baburaj.sasco@gmail.com · 2 years ago
    How can I put a condition to blink certain cells if its value is below a limit, say below 30, without using the button. Also, i will be using a protected sheet. Thanks in advance for your help.
  • To post as a guest, your comment is unpublished.
    Sam · 2 years ago
    How do i change this to sheet 1?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Sam,
      If you want to make cell A1 in Sheet1 or other specific worksheet blinking, please add "Sheet1!" or other worksheet name before the cell address. See the below code line:

      Set xCell = Range("Sheet1!A1")
  • To post as a guest, your comment is unpublished.
    SUNARYANTO · 2 years ago
    MANTEB GAN
  • To post as a guest, your comment is unpublished.
    alassail.survey@gmail.com · 2 years ago
    Working. good
    But after protecting my sheet LOCK & Hidden ( except blinking cell ) it's not working.
    Anyone plz help me solve this issue.
  • To post as a guest, your comment is unpublished.
    Rashid Imam · 2 years ago
    Hi,
    it's working well but when I am protecting my sheet then blinking is not working showing debug msg.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Please try the following code.

      Sub StartBlink()
      Dim xCell As Range
      Dim xTime As Variant
      On Error Resume Next
      Set xCell = Range("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
  • To post as a guest, your comment is unpublished.
    Dayle · 3 years ago
    How do I include this code in the following so I don't need buttons but the blinking starts automatically on the workbook opening?

    Private Sub Workbook_Open()

    ' code here

    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Dayle,
      Please put this code into the ThisWorkbook window.

      'Put in“ThisWorkbook”window
      Private Sub Workbook_Open()
      StarBlink
      End Sub

      Put the below code into the Module window. And then save the workbook as an Excel Macro-enabled Workbook. Hope I can help. Thanks for your comment.

      'Start blinking
      Sub StarBlink()
      Dim xCell As Range
      Dim xTime As Variant
      Set xCell = Range("A1")
      With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
      If xCell.Font.Color = vbRed Then
      xCell.Font.Color = vbWhite
      Else
      xCell.Font.Color = vbRed
      End If
      End With
      xTime = Now + TimeSerial(0, 0, 1)
      Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
      End Sub
      'Stop blinking
      Sub StopBlink()
      xTime = Now + TimeSerial(0, 0, 1)
      Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
      End Sub
  • To post as a guest, your comment is unpublished.
    Rafi · 3 years ago
    Working... Great
  • To post as a guest, your comment is unpublished.
    Hana · 4 years ago
    How can it make a random cell blink in a certain range?
  • To post as a guest, your comment is unpublished.
    Geoff Culbertson · 4 years ago
    Could this blinking text be applied to a condition. i.e. if a date is reached or is approaching on one worksheet, a cell on a cover/menu sheet flashes
  • To post as a guest, your comment is unpublished.
    Ken · 4 years ago
    This code will not stop the blinking it get stuck. What am I doing wrong?