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:
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
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...
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!