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 SubNodiadau:
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:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
