Conas stop-faire a chruthú i mbileog oibre Excel?
Má tá stad-faire i do bhileog oibre, beidh a fhios agat an t-am chun post a chríochnú. Conas is féidir leat stad-faire a chruthú i mbileog le Cnaipe Tosaigh, Stop agus Athshocraigh mar a thaispeántar an scáileán seo a leanas? Má chliceálann tú an cnaipe Tosaigh, tosóidh sé am, má chliceálann tú an cnaipe Stop, stadfaidh sé am, agus féadann an cnaipe Athshocraigh cabhrú leat am a athshocrú. An t-alt seo, labhróidh mé faoi conas stad-faire simplí agus áisiúil a chruthú in Excel.
Cruthaigh stad-faire le trí chnaipe trí chód VBA a úsáid
Cruthaigh stad-faire le trí chnaipe trí chód VBA a úsáid
Chun stad-faire a chruthú le trí chnaipe, Tosaigh, Stop agus Athshocraigh, déan na céimeanna seo a leanas ceann ar cheann, le do thoil.
Ar dtús, cuir isteach trí chnaipe ordaithe.
1. Cliceáil Forbróir > Ionsáigh > Cnaipe Ordú, féach ar an scáileán:
2. Ansin tarraing an luch chun cnaipe a tharraingt, tar éis duit an cnaipe a chur isteach, is féidir leat fotheideal an chnaipe a athrú, cliceáil le do thoil Forbróir > Airíonna, I Airíonna dialóg, iontráil an fotheideal nua “Tòisich”Don chnaipe seo sa bhosca téacs in aice leis an Fotheideal, féach screenshots:
3. Déan an dá chéim thuas arís chun dhá chnaipe eile a chur isteach agus ceannteideal orthu mar “stad"Agus"athshocrú”, Féach an pictiúr:
4. Tar éis duit na cnaipí a chur isteach, ba cheart duit an modh dearaidh a fhágáil trí chliceáil Forbróir > Mód Dearaidh.
Ar an dara dul síos, cruthaigh cód VBA.
5. Agus ansin, cliceáil ar dheis ar an táb bileog oibre reatha, agus roghnaigh Féach an cód, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas isteach sa Cód Bileog:
Cód VBA: Cruthaigh stad-faire:
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
nótaí: Sa chód thuas, C2 an cill ina gcuirfear an t-am stad-faire isteach, agus an Cnaipe Ordú1, Cnaipe Ordú2, Cnaipe Ordú3 is iad ainmneacha na gcnaipe, is féidir leat ainm cruinn an chnaipe a fheiceáil ón Ainm Bosca, féach ar an scáileán:
Ar an tríú dul síos, formáidigh an chill ama stad-faire.
6. Ansin ba chóir duit an chill ama a fhormáidiú mar Téacs formáid, agus is féidir leat méid na cille, an cló, an clómhéid, an cúlra, srl a athrú de réir mar a theastaíonn uait, féach an scáileán:
7. Tar éis críochnú os cionn céimeanna, as seo amach, nuair a chliceálann tú Tòisich cnaipe, cuirfear tús leis an am anois, agus cliceáil stad cnaipe, stopfaidh sé am, an athshocrú athshocróidh an cnaipe an t-am, féach an scáileán:
Taispeántas: Cruthaigh stad-faire le trí chnaipe trí chód VBA a úsáid
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!