Kako v Excelu vedno znova utripati ali utripati oblika?

Če želite, da oblika na delovnem listu vedno znova utripa, vam lahko pomaga metoda v tem članku.

Naredite obliko, ki znova in znova utripa s kodo VBA

Naredite obliko, ki znova in znova utripa s kodo VBA

Na delovnem listu, če želite, da oblika utripa, storite naslednje.

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite kodo VBA v okno Code.

Koda VBA: Na delovnem listu vedno znova utripa oblika

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

Opombe:

3. Pritisnite druga + Q za izhod iz Microsoft Visual Basic za aplikacije okno.

4. Vstavite gumb v delovni list s klikom Razvojni > Vstavi > Gumb (nadzor obrazca) kot je prikazano spodaj.

5. V pojavnem oknu Dodeli makro pogovorno okno, izberite Flash v Ime makra in nato kliknite OK gumb.

6. Nato spremenite prikazno besedilo na gumbu, kot želite. V tem primeru spremenim prikazno besedilo na Začni utripati, kot je prikazano spodaj.

7. Ponovite zgornji korak 4 in 5, da vstavite nov gumb in dodelite Prenehaj makro za ta gumb.

8. Spremenite prikazno besedilo tega novega gumba.

Nato lahko vidite, da sta na delovni list vstavljena dva gumba, ki dodeljujeta različna makra. Oglejte si posnetek zaslona:

Od zdaj naprej, ko kliknete na gumb Začni utripati, začne oblika utripati z različnimi barvami. Če želite zaustaviti bliskavico, kliknite gumb Ustavi utripati.

Povezani članek:

• Kako utripati ali utripati besedilo določene celice v Excelu?