Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot parpellejar o parpellejar el text de la cel·la especificada a Excel?

Per fer que una determinada cel·la sigui excel·lent al vostre full de càlcul, què tal parpellejar el text d'aquesta cel·la? Aquest article us mostrarà un mètode per parpellejar el text d'una cel·la especificada a Excel.

Text parpellejant o intermitent de cel·la especificada amb codi VBA


Combina múltiples fulls de treball / llibres en un full de treball / llibre de treball:

Combinar múltiples fulls de treball o llibres en un únic full de treball o llibre de treball pot ser una tasca enorme en el seu treball diari. Però, si ho tens Kutools for Excel, la seva poderosa utilitat - Combinar us pot ajudar a combinar ràpidament múltiples fulls de treball, llibres en un full de treball o llibre de treball

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Descarregueu la prova gratuïta Ara!


Text parpellejant o intermitent de cel·la especificada amb codi VBA

Feu el següent per parpellejar el text d'una cel·la especificada a Excel.

1. Premeu Alt + F11 tecles simultànies per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu i enganxeu el codi següent a la finestra Codi.

Codi VBA: text intermitent de cel·la especificada a Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    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

Nota: en aquest codi VBA, Sheet2 i A1 indiquen que el text a la cel·la A1 de Sheet2 es paren en el llibre actual.

3. Premeu el botó Alt + Q tecles simultàniament per tancar la Microsoft Visual Basic per a aplicacions finestra.

Ara necessiteu un botó per iniciar i aturar el parpelleig.

4. clic Revelador > Insereix > Botó (control de formulari). Mostra la captura de pantalla:

5. Dibuixeu un botó al vostre full de càlcul i després un Assigna la macro quadre de diàleg apareix, feu clic a StartBlink al Macro nom box i, a continuació, feu clic a la icona OK botó Mostra la captura de pantalla:

6. Feu clic amb el botó dret al botó inserit i feu clic a Edita el text des del menú del botó dret. A continuació, canvieu el text del botó al text que necessiteu, com ara Iniciar / Aturar Parpelleig.

A partir d'ara, quan feu clic al botó, el text de la cel·la A1 començarà a parpellejar. I al fer clic al botó de nou, el text de la cel·la A1 deixa de parpellejar.


Pestanya d'Office - Navegació amb pestanyes, edició i gestió de llibres en Excel:

La pestanya Office mostra la interfície de pestanyes que es veu als navegadors web com ara Google Chrome, versions noves d'Internet Explorer i Firefox a Microsoft Excel. Serà una eina que estalviarà temps i serà irreemplaçable en el vostre treball. Vegeu a continuació demo:

Feu clic per obtenir una prova gratuïta de la pestanya d'Office.

Pestanya d'Office per a Excel



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Sam · 2 days ago
    How do i change this to sheet 1?
  • To post as a guest, your comment is unpublished.
    SUNARYANTO · 3 months ago
    MANTEB GAN
  • To post as a guest, your comment is unpublished.
    Al Assail Comapny · 5 months 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 · 5 months 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.
    Dayle · 10 months 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 · 6 months 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