Sut i fewnosod stamp dyddiad mewn cell os ticiwch flwch gwirio yn Excel?
Fel rheol, rydych chi'n nodi stamp dyddiad trwy ddefnyddio hotkeys yn Excel. Beth am fewnosod stamp dyddiad mewn cell gan flwch gwirio yn Excel? Wrth dicio'r blwch gwirio, rhoddir y stamp amser mewn cell benodol yn awtomatig. Bydd yr erthygl hon yn eich helpu i'w datrys.
Mewnosodwch stamp dyddiad mewn cell os ticiwch flwch gwirio gyda chod VBA
Mewnosodwch stamp dyddiad mewn cell os ticiwch flwch gwirio gyda chod VBA
Bydd yr adran hon yn cyflwyno sgript VBA i'ch helpu chi i fewnosod stamp dyddiad mewn cell yn awtomatig os ticiwch flwch gwirio yn Excel. Gwnewch fel a ganlyn.
1. Ar ôl mewnosod blwch gwirio, pwyswch Alt + F11 allweddi ar yr un pryd 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 y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Mewnosodwch stamp dyddiad mewn cell os ticiwch flwch gwirio
Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
If xChk.Value = xlOff Then
.Value = ""
Else
.Value = Date
End If
End With
End Sub
3. Gwasgwch Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
4. De-gliciwch y blwch gwirio, a dewis Neilltuo Micro o'r ddewislen clicio ar y dde. Gweler y screenshot:
5. Yn y Neilltuo Macro blwch deialog, dewiswch CheckBox_Date_Stamp yn y Enw macro blwch, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Wrth dicio'r blwch gwirio, bydd y stamp dyddiad yn cael ei fewnosod yn y gell gyfagos yn awtomatig.
Erthyglau perthnasol:
- Sut i newid gwerth neu liw cell penodedig pan fydd blwch gwirio yn cael ei wirio yn Excel?
- Sut i dynnu sylw at gell neu res gyda blwch gwirio yn Excel?
- Sut i wirio blwch gwirio yn seiliedig ar werth celloedd yn Excel?
- Sut i hidlo data yn seiliedig ar flwch gwirio yn Excel?
- Sut i guddio blwch gwirio pan fydd rhes wedi'i chuddio yn Excel?
- Sut i greu rhestr ostwng gyda blychau gwirio lluosog yn Excel?
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!