Note: The other languages of the website are Google-translated. Back to English

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:

1). yn y cod, newydd yw enw'r siâp y byddwch chi'n ei wneud yn blincio. Newidiwch ef i'ch un chi.
2). 00: 00: 01 yn golygu y bydd y siâp yn fflachio bob eiliad.

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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL