Sut i wneud siâp yn blincio neu'n fflachio drosodd a throsodd yn Excel?

Os ydych chi am wneud siâp yn blincio drosodd a throsodd mewn taflen waith, gall dull yn yr erthygl hon eich helpu chi.

Gwnewch siâp yn blincio drosodd a throsodd gyda chod VBA

---

Gwnewch siâp yn blincio drosodd a throsodd gyda chod VBA

Yn y daflen waith, i wneud siâp yn blincio, gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch god VBA i mewn i ffenestr y Cod.

Cod VBA: Gwnewch siâp yn blincio drosodd a throsodd yn y daflen waith

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

Nodiadau:

3. Gwasgwch y Alt + Q allweddi gyda'i gilydd i adael y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

4. Mewnosodwch Botwm yn y daflen waith trwy glicio Datblygwr > Mewnosod > Botwm (Rheoli Ffurflen) fel y dangosir isod screenshot.

5. Yn y popping up Neilltuo Macro blwch deialog, dewiswch Flash yn y Enw macro blwch, ac yna cliciwch ar y OK botwm.

6. Yna newidiwch y testun arddangos ar y botwm yn ôl yr angen. Yn yr achos hwn, rwy'n newid y testun arddangos i Start blincio fel isod sgrinlun a ddangosir.

7. Ailadroddwch y cam 4 a 5 uchod i fewnosod botwm newydd a phenodi'r StopIt macro i'r botwm hwn.

8. Newid testun arddangos y botwm newydd hwn.

Yna gallwch weld dau fotwm sy'n aseinio gyda gwahanol macros yn cael eu mewnosod yn y daflen waith. Gweler y screenshot:

O hyn ymlaen, wrth glicio ar y botwm Start blinking, mae'r siâp yn dechrau blincio gyda gwahanol liwiau. Os ydych chi am atal y fflach, cliciwch y botwm Stop blinking.

---

Erthygl gysylltiedig:

• Sut i amrantu neu fflachio testun cell benodol yn Excel?