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