Gå til hovedindhold

Hvordan får man en form til at blinke eller blinke igen og igen i Excel?

Hvis du vil få en figur til at blinke igen og igen i et regneark, kan en metode i denne artikel hjælpe dig.

Lav en figur, der blinker igen og igen med VBA-kode


Lav en figur, der blinker igen og igen med VBA-kode

For at få en form til at blinke, skal du gøre som følger på regnearket.

1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.

VBA-kode: Lav en figur, der blinker igen og igen i regnearket

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Noter:

1). i koden, ny er navnet på den form, du får den til at blinke. Skift det til dit eget.
2). 00:00:01 betyder, at formen blinker hvert sekund.

3. Tryk på andre + Q tasterne sammen for at afslutte Microsoft Visual Basic til applikationer vindue.

4. Indsæt en knap i regnearket ved at klikke på Udvikler > indsatte > Knap (formkontrol) som vist nedenstående skærmbillede.

5. I popping up Tildel makro dialogboksen, vælg Blink i Makronavn og klik derefter på OK .

6. Skift derefter skærmteksten på knappen efter behov. I dette tilfælde ændrer jeg skærmteksten til at begynde at blinke som vist nedenstående skærmbillede.

7. Gentag ovenstående trin 4 og 5 for at indsætte en ny knap og tildele Stop det makro til denne knap.

8. Skift displayteksten på denne nye knap.

Derefter kan du se to knapper, der tildeles med forskellige makroer, indsættes i regnearket. Se skærmbillede:

Fra nu af, når du klikker på knappen Start blinker, begynder formen at blinke med forskellige farver. Hvis du vil stoppe blitzen, skal du klikke på knappen Stop med at blinke.


Relateret artikel:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations