Note: The other languages of the website are Google-translated. Back to English

Cum să clipească sau să clipească textul celulei specificate în Excel?

Pentru a face o anumită celulă remarcabilă în foaia dvs. de lucru, ce zici de clipirea textului acestei celule? Acest articol vă va arăta metoda de a clipi textul unei celule specificate în Excel.

Text intermitent sau intermitent al celulei specificate cu cod VBA


Text intermitent sau intermitent al celulei specificate cu cod VBA

Procedați după cum urmează pentru a clipi textul unei celule specificate în Excel.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți următorul cod în fereastra Cod.

Cod VBA: text intermitent al celulei specificate în 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

notițe: în acest cod VBA, Sheet2 și A1 indică textul din celula A1 din Sheet2 va clipi în registrul de lucru curent.

3. apasă pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

Acum aveți nevoie de un buton pentru a porni și a opri clipirea.

4. clic Dezvoltator > Insera > Buton (Control formular). Vedeți captura de ecran:

5. Desenați un buton în foaia de lucru, apoi un Atribuiți macro apare fereastra de dialog, faceți clic pe StartBlink în Macro nume , apoi faceți clic pe OK buton. Vedeți captura de ecran:

6. Faceți clic dreapta pe butonul inserat și faceți clic pe Editează textul din meniul cu clic dreapta. Apoi schimbați textul butonului cu textul de care aveți nevoie, cum ar fi Start / Stop Clipește.

De acum înainte, când faceți clic pe buton, textul celulei A1 începe să clipească. Și când faceți clic din nou pe buton, textul celulei A1 încetează să clipească.


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (26)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest cod nu va opri clipirea și se blochează. ce fac greșit?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest text intermitent ar putea fi aplicat unei afecțiuni. adică dacă o dată este atinsă sau se apropie pe o foaie de lucru, o celulă de pe copertă/foaia de meniu clipește
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum poate face ca o celulă aleatorie să clipească într-un anumit interval?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează... Grozav
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum includ acest cod în cele ce urmează, astfel încât să nu am nevoie de butoane, dar clipirea începe automat la deschiderea registrului de lucru?

Private Sub Workbook_Open()

' cod aici

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Dayle,
Vă rugăm să introduceți acest cod în fereastra ThisWorkbook.

„Puneți în fereastra „Acest registru de lucru”.
Private Sub Workbook_Open()
StarBlink
End Sub

Pune codul de mai jos în fereastra Modulului. Și apoi salvați registrul de lucru ca registru de lucru cu macrocomandă Excel. Sper că pot ajuta. Multumesc pentru comentariul tau.

— Începe să clipească
Sub StarBlink()
Dim xCell As Range
Dim xTime ca variantă
Setați xCell = Range("A1")
Cu ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
Dacă xCell.Font.Color = vbRed, atunci
xCell.Font.Color = vbWhite
Altfel
xCell.Font.Color = vbRed
Final, dacă
Se termina cu
xTime = Acum + TimeSerial(0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
End Sub
— Nu mai clipi
Sub Stop Blink()
xTime = Acum + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
funcționează bine, dar când îmi protejez foaia, clipirea nu funcționează și arată mesajul de depanare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua,
Vă rugăm să încercați următorul cod.

Sub StartBlink()
Dim xCell As Range
Dim xTime ca variantă
La data de eroare CV următoare
Setați xCell = Range("A1")
La data de eroare CV următoare

Dacă xCell.Font.Color = vbRed, atunci
xCell.Font.Color = vbWhite
Altfel
xCell.Font.Color = vbRed
Final, dacă
xTime = Acum + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Lucru. bun
Dar după ce mi-am protejat foaia LOCK & Hidden (cu excepția celulei care clipește) nu funcționează.
Oricine va rog sa ma ajute sa rezolv aceasta problema.
Acest comentariu a fost redus la minimum de moderatorul de pe site
MANTEB GAN
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum schimb asta în foaia 1?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Sam,
Dacă doriți ca celula A1 din Sheet1 sau din altă foaie de lucru specifică să clipească, vă rugăm să adăugați „Sheet1!” sau alt nume al foii de lucru înainte de adresa celulei. Vedeți linia de cod de mai jos:

Set xCell = Range("Sheet1!A1")
Acest comentariu a fost redus la minimum de moderatorul de pe site
salut, am nevoie de ajutor in google sheets..

Am nevoie de un rând întreg să clipească dacă F3:F1001 conține „STAT”. întregul rând ar trebui să fie în portocaliu, dar și să clipească până când caseta de selectare a coloanei W3:W1001 este bifată.

Este posibil? poți să ajuți? te rogeeeeeeeeeeeeee
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună mekka,
Îmi pare rău că nu te pot ajuta cu asta. Multumesc pentru comentariu.
Acest comentariu a fost redus la minimum de moderatorul de pe site
atunci când protejați foaia acest cod nu funcționează
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu funcționează,

Te rog ajuta-ma
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum să faci intermitent o anumită celulă care conține doar text specific?
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum pot crea clipirea flash pentru foaia mea de pontaj. unde celula conține timp de peste 10 ore. Vă rugăm să sugerați
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Jass,
Următorul cod VBA vă poate rezolva problema. Vă rugăm să încercați.
Nu uitați să schimbați numele foii și intervalul de ore din cod.

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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, trebuie să fac același lucru pentru valoarea celulei duplicate din coloana selectată, unde valoarea celulei va clipi dacă valoarea duplicată a apărut în Excel
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,
Caut soluție pentru a clipi / clipi o serie de celule care se apropie de o dată viitoare, să zicem într-o săptămână. Vreau să spun ceva de genul unei date de livrare a comenzii de achiziție este 30 august. Aș dori să încep să clipesc celulele până pe 25 august și chiar și după 30 august până la livrare.
Imi poate da cineva o solutie?
Mulțumesc,
Sanjeev.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Sanjeev Raghavan,
Următorul cod VBA vă poate face o favoare. În cod, trebuie să schimbați Sheet5!D2:D5 la numele foii și intervalul pe care doriți să clipească.

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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc Crystal. Lasă-mă să încerc să revin la tine.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Numele foii Rezumat și coloana O

Aș dori să am un cod pentru ca celula să clipească în roșu/alb la data scadenței. Poate cineva te rog ajuta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
este posibil să o faci fără buton și rulare automată?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Malek,
Utilizatorul Sanjeev Raghavan a pus o întrebare similară cu a ta, poți verifica răspunsurile și vezi dacă îți rezolvă problema.
@Sanjeev Raghavan
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL