Ugrás a tartalomra

Hogyan lehet egy alakzatot villogni vagy villogni újra és újra az Excelben?

Ha azt szeretné, hogy egy alakzat újra és újra villogjon a munkalapon, akkor ebben a cikkben szereplő módszer segíthet.

Készítsen egy alakot, amely újra és újra villog a VBA kóddal


Készítsen egy alakot, amely újra és újra villog a VBA kóddal

A munkalapon az alakzat villogásához tegye a következőket.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kódot a Kód ablakba.

VBA kód: Készítsen egy alakzatot, amely újra és újra villog a munkalapon

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

Megjegyzések:

1). a kódban, új az alak neve, amellyel villogni fog. Kérjük, változtassa meg sajátjával.
2). 00:00:01 azt jelenti, hogy az alak másodpercenként villog.

3. megnyomni a más + Q gombokkal együtt kiléphet a Microsoft Visual Basic for Applications ablak.

4. Kattintson a gombra a munkalapra kattintással Fejlesztő > betétlap > Gomb (űrlapvezérlés) az alábbi képernyőképen látható.

5. A felbukkanóban Hozzárendelje a Makrót párbeszédpanelen válassza ki Vaku a Makró neve jelölőnégyzetet, majd kattintson a gombra OK gombot.

6. Ezután szükség szerint változtassa meg a gomb kijelző szövegét. Ebben az esetben megváltoztatom a kijelző szövegét, hogy elkezd villogni, ahogy az alábbi képen látható.

7. Ismételje meg a fenti 4. és 5. lépést egy új gomb behelyezéséhez és a Hagyd abba makró ehhez a gombhoz.

8. Módosítsa az új gomb megjelenítési szövegét.

Ekkor láthatja, hogy két, különböző makrókhoz rendelt gomb kerül beillesztésre a munkalapba. Lásd a képernyőképet:

Mostantól a villogás indítása gombra kattintva az alak különböző színekkel villogni kezd. Ha le akarja állítani a vakut, kattintson a Villogás leállítása gombra.


Kapcsolódó cikk:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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