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
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
