Sut i greu stopwats yn nhaflen waith Excel?
Os oes stopwats yn eich taflen waith, byddwch chi'n gwybod yr amser i orffen swydd. Sut allwch chi greu stopwats mewn dalen gyda Botwm Cychwyn, Stopio ac Ailosod fel y dangosir y screenshot canlynol? Os cliciwch y botwm Start, bydd yn amser cychwyn, os cliciwch ar Stop botwm, bydd yn stopio amser, a gall y botwm Ailosod eich helpu i ailosod amser. Yr erthygl hon, byddaf yn siarad am sut i greu stopwats syml a defnyddiol yn Excel.
Creu stopwats gyda thri botwm trwy ddefnyddio cod VBA
Creu stopwats gyda thri botwm trwy ddefnyddio cod VBA
I greu stopwats gyda thri botwm, Cychwyn, Stopio ac Ailosod, gwnewch y camau canlynol fesul un.
Yn gyntaf, mewnosodwch dri botwm gorchymyn.
1. Cliciwch Datblygwr > Mewnosod > Botwm Gorchymyn, gweler y screenshot:
2. Yna llusgwch y llygoden i dynnu botwm, ar ôl mewnosod y botwm, gallwch newid pennawd y botwm, cliciwch Datblygwr > Eiddo, Yn y Eiddo deialog, nodwch y pennawd newydd “dechrau”Ar gyfer y botwm hwn yn y blwch testun wrth ymyl y Geiriad, gweler sgrinluniau:
 |
 |
 |
3. Ailadroddwch y ddau gam uchod i fewnosod dau fotwm arall a'u rhoi mewn pennawd fel “Stop"A"Ailosod”, Gweler y screenshot:
4. Ar ôl mewnosod y botymau, dylech adael y modd dylunio trwy glicio Datblygwr > Modd Dylunio.
Yn ail, creu cod VBA.
5. Ac yna, cliciwch ar y dde ar y tab taflen waith gyfredol, a dewiswch Gweld y Cod, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Cod Taflen:
Cod VBA: Creu stopwats:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Nodyn: Yn y cod uchod, C2 yw'r gell lle bydd yr amser stopwats yn cael ei fewnosod, a'r Botwm Gorchymyn1, Botwm Gorchymyn2, Botwm Gorchymyn3 yw'r enwau botwm, gallwch weld union enw'r botwm o'r Blwch Enw, gweler y screenshot:
Yn drydydd, fformatiwch y gell amser stopwats.
6. Yna dylech fformatio'r gell amser fel Testun fformat, a gallwch newid maint y gell, ffont, lliw ffont, cefndir, ac ati yn ôl yr angen, gweler y screenshot:
7. Ar ôl gorffen uwchben y camau, o hyn ymlaen, pan gliciwch dechrau botwm, bydd yr amser yn dechrau nawr, a chlicio Stop botwm, bydd yn stopio amser, y Ailosod botwm yn ailosod yr amser, gweler y screenshot:
Demo: Creu stopwats gyda thri botwm trwy ddefnyddio cod VBA
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
