Přejít k hlavnímu obsahu

Jak blikat nebo blikat text zadané buňky v aplikaci Excel?

Chcete-li, aby v listu byla určitá buňka vynikající, co kdybyste mrkli na text této buňky? Tento článek vám ukáže způsob blikání textu zadané buňky v aplikaci Excel.

Blikající nebo blikající text zadané buňky s kódem VBA

Blikající nebo blikající text zadané buňky s kódem VBA

Chcete-li v aplikaci Excel blikat text zadané buňky, postupujte následovně.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte následující kód do okna Kód.

Kód VBA: Blikající text zadané buňky v aplikaci 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

Poznámka: v tomto kódu VBA označují List2 a A1 text v buňce A1 List2 bude v aktuálním sešitu blikat.

3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Nyní potřebujete tlačítko pro spuštění a zastavení blikání.

4. cvaknutí Vývojka > Vložit > Tlačítko (ovládání formuláře). Viz snímek obrazovky:

5. Nakreslete do listu tlačítko a poté ikonu Přiřadit makro objeví se dialogové okno, klikněte prosím StartBlink v Makro název a poté klikněte na OK knoflík. Viz screenshot:

6. Klikněte pravým tlačítkem na vložené tlačítko a klikněte na Upravit text z nabídky pravého tlačítka myši. Poté změňte text tlačítka na text, který potřebujete, například Start / Stop Blinking.

Od nynějška po kliknutí na tlačítko začne text buňky A1 blikat. A když znovu kliknete na tlačítko, text buňky A1 přestane blikat.

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (27)
No ratings yet. Be the first to rate!
Malek
Malek
This comment was minimized by the moderator on the site
Sheet name Summary and column O

i would like to have a code to make the cell flash red/white on due date. Can someone please help?
Reply
0
0
crystal
crystal     Malek
This comment was minimized by the moderator on the site
Hi Malek,
The user Sanjeev Raghavan asked a question similar to yours, you can check the replies and see if it solves your problem.
@Sanjeev Raghavan
Reply
Report
0
0
Malek
Malek     Malek
This comment was minimized by the moderator on the site
is it possible to make it without a button and auto ran?
Reply
0
0
Sanjeev Raghavan
Sanjeev Raghavan
This comment was minimized by the moderator on the site
Thank you Crystal. Let me try and get back to you.
Reply
0
0
Sanjeev Raghavan
Sanjeev Raghavan
This comment was minimized by the moderator on the site
Hello,
I am looking for solution to flash / blink a range of cells approaching a future date, say in one week. I mean something like a purchase order delivery date is 30 August. I would like to start flashing the cells by 25th August onwards and even after 30 August till it is delivered.
Can someone give me a solution?
Thank you,
Sanjeev.
Reply
0
0
crystal
crystal     Sanjeev Raghavan
This comment was minimized by the moderator on the site
Hi Sanjeev Raghavan,
The following VBA code can do you a favor. In the code, you need to change Sheet5!D2:D5 to the sheet name and the range you want to blink.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
Reply
Report
0
0
Lokesh
Lokesh
This comment was minimized by the moderator on the site
Hi I need to do the same for the duplicate cell value in selected column where cell value will blink if the duplicate value appeared in excel
Reply
0
0
jass
jass
This comment was minimized by the moderator on the site
how can i create flash blink for my time sheet .where the cell contain time above 10 hours .please suggest
Reply
0
0
crystal
crystal     jass
This comment was minimized by the moderator on the site
Hi jass,
The following VBA code may solve your problem. Please give it a try.
Don't forget to change the sheet name and the hours range in the code.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Reply
Report
0
0
shalim
shalim
This comment was minimized by the moderator on the site
how to make flashing specific cell containing specific Text only ?
Reply
0
0
connie
connie
This comment was minimized by the moderator on the site
not working,

Please help
Reply
0
0
Shreenivas AK
Shreenivas AK
This comment was minimized by the moderator on the site
when protect the sheet this code not working
Reply
0
0
mekka
mekka
This comment was minimized by the moderator on the site
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
Reply
0
0
crystal
crystal     mekka
This comment was minimized by the moderator on the site
Hi mekka,
Sorry can't help you with that. Thank you for your comment.
Reply
Report
0
0
Sam
Sam
This comment was minimized by the moderator on the site
How do i change this to sheet 1?
Reply
0
0
crystal
crystal     Sam
This comment was minimized by the moderator on the site
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")
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations