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

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:


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 Swyddfa / Excel 2007-2019 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 (22)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, roedd hyn yn ddefnyddiol iawn, hoffwn nodi fy mod yn ei chael yn fwy defnyddiol i gael y stamp dyddiad i'r chwith o'r blwch ticio. i wneud hyn rydych chi'n newid y gwrthbwyso i (, -1)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i wneud hyn gyda'r dyddiad AC amser? Diolch am y wybodaeth y naill ffordd neu'r llall!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is CheckBox_Date_Stamp() Dim xChk Fel Set CheckBox xChk = ActiveSheet.CheckBoxes(Application.Caller) Gyda xChk.TopLeftCell.Offset(, 1) Os xChk.Value = xlOff Yna .Value = "" Arall .Value = Dyddiad &" " & Diwedd Amser Os Diwedd Gyda Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gwnewch gais o dan y cod VBA i ychwanegu dyddiad ac amser.

Is-Box Check_Date_Stamp()
Dim xChk Fel CheckBox
Gosod xChk = ActiveSheet.CheckBoxes(Application.Caller)
Gyda xChk.TopLeftCell.Offset(, 1)
Os xChk.Value = xlOff Yna
.Gwerth = ""
arall
.Value = Nawr()
Gorffennwch Os
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rhoddais gynnig ar y fformiwla hon a dim ond ar gyfer A1 a B1 y bu'n gweithio pan gymhwysais y macro i'r blwch gwirio yn A1. Fodd bynnag, pan gymhwysais y macro i'r blwch gwirio yn A2, ni ddigwyddodd dim yn B2. Hefyd sut byddai'r fformiwla'n cael ei newid pe bawn i eisiau defnyddio hwn ar gyfer rhestr wirio? Os colofn A oedd y blychau ticio a cholofn C yn ddyddiad cwblhau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo :) gallwch chi gopïo'r gell gyda'r blwch siec yn A1 i weddill y golofn. neu aseinio'r macro yn unigol i bob blwch ticio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Aseiniwch y macro yn unigol i bob blwch ticio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n copïo a gludo'r cod VBA yn union, ond ar fy nhaenlen, mae'r dyddiad yn ymddangos yn y gell uchod ac i'r dde o'r golofn blwch gwirio, nid yn y gell yn uniongyrchol i'r dde. ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf hefyd yn cael yr un mater yn union. "CYMORTH! Dwi angen CYMORTH rhywun! Nid dim ond unrhyw un HELP! Rydych yn gwybod fy mod angen rhywun HELP!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'r cod yn gweithio'n dda yn fy achos i. Ar ôl ticio'r blwch ticio, bydd y dyddiad yn ymddangos yn y gell yn union i'r dde. A fyddech chi'n darparu sgrinlun o'ch achos. A pha fersiwn Office ydych chi'n ei ddefnyddio. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un broblem gyda'r stamp dyddiad ac amser yn ymddangos yn y gell uwchben y gell a fwriadwyd (gan ddefnyddio Excel 2007). Es ymlaen a newid y fformiwla "gwrthbwyso" fel ei bod yn mynd dros un gell AC i lawr un gell a nawr mae'r stamp yn ymddangos lle rydw i ei eisiau: Gyda xChk.TopLeftCell.Offset(1, 1)
Rwy'n diweddaru taflen waith a greodd rhywun arall ac na chreodd y blychau gwirio, ond efallai y bydd yn rhaid iddo ymwneud â ble y tu mewn i'r gell y gosodir y blwch siec. Cefais ganlyniadau gwahanol pan leiniais y blwch siec gyda gwaelod y gell.

Hope sy'n helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma beth wnes i i ddatrys y mater hwnnw

Is-Box Check_Date_Stamp()
Dim xChk Fel CheckBox
Gosod xChk = ActiveSheet.CheckBoxes(Application.Caller)
Gyda xChk.TopLeftCell.Offset(1, 1)
Os xChk.Value = xlOff Yna
.Gwerth = ""
arall
.Value = Nawr()
Gorffennwch Os
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Diolch am y cod. Mae'n gweithio'n berffaith gyda tweaking lil ar y gwrthbwyso. Fodd bynnag, roeddwn yn gweithio ar ddalen sydd â llawer o resi lawer (~ 500+ o resi) sy'n cynnwys llwyth o flychau siec a thyfodd maint y ffeil yn sylweddol. A oes unrhyw ffordd i leihau'r maint? Unrhyw ffordd arall o wneud hyn?

Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da da
Os oes llawer o flychau gwirio mewn rhesi a'ch bod am weithredu ar bob blwch ticio ar yr un pryd, gall y cod VBA isod eich helpu chi.
Copïwch y codau i ffenestr cod Modiwl, ewch yn ôl i'r daflen waith a chreu botwm (fel Botwm (Rheoli Ffurflen)), aseinio'r macro SetAllChkChange() i'r botwm, yna cliciwch ar y botwm i redeg y cod.

Nawr mae'r holl flychau ticio mewn rhesi o'ch taflen waith wedi'u rhoi ar waith. Gallwch wirio unrhyw un ohonynt i fewnosod stamp dyddiad yn ei gell gyfagos.

Is-setAllChkChange()
Dim xChks
Dim xChk Fel CheckBox
Dim xI Cyhyd
Ar Ail-ddechrau Gwall Nesaf
Dileu xArrChk
Gosod xChks = ActiveSheet.CheckBoxes
ReDim Preserve xArrChk(1 I xChks.count)
xI = 1
Am Bob xChk Mewn xChks
xChk.Dewis
Selection.OnAction = "ObjChkChange"
Digwyddiadau
Is-End


Is-objChkChange()
Dim xChk Fel CheckBox
Gosod xChk = ActiveSheet.CheckBoxes(Application.Caller)
Gyda xChk.TopLeftCell.Offset(, 1)
Os xChk.Value = xlOff Yna
.Gwerth = ""
arall
.Gwerth = Dyddiad
Gorffennwch Os
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut mae cael y stamp dyddiad i gael ei arddangos o dan fy mlwch siec?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo! Ni allaf ymddangos i ddod o hyd i ffordd y bydd yn y datestamp fod ar ochr y blwch ticio. ceisiais newid y gwerth gwrthbwyso o 0, 1 a -1. allwch chi fy helpu gyda hyn? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, gan dybio bod eich blwch ticio yn A2 a'ch bod am allbynnu'r stamp dyddiad ar ochr dde'r blwch ticio (B2 yn yr achos hwn), newidiwch y gwerth Gwrthbwyso i Offset(1, 1).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y VBA ar gyfer stamp amser y blwch siec, ond nid yw'r ddwy gell gyntaf yn gweithio'n gywir. Mae fy mlwch siec cyntaf yn A2, pan fyddaf yn gwirio'r blwch, mae'r amser yn cael ei bostio yn B1. Sut ydw i'n trwsio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Steve,
Amnewidiwch y bedwaredd llinell yn y cod gyda Gyda xChk.TopLeftCell.Offset(1, 1).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn!! Gwych! Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut alla i ddolennu'r cod i gynnwys pob blwch ticio yn y golofn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Os oes llawer o flychau gwirio mewn rhesi a'ch bod am weithredu ar bob blwch ticio ar yr un pryd, gall y cod VBA isod eich helpu chi.
Copïwch y codau isod i ffenestr cod Modiwl, ewch yn ôl i'r daflen waith a chreu botwm (fel Botwm (Rheoli Ffurflen)), aseinio'r macro SetAllChkChange() i'r botwm, yna cliciwch ar y botwm i redeg y cod.

Nawr mae'r holl flychau ticio mewn rhesi o'ch taflen waith wedi'u rhoi ar waith. Gallwch wirio unrhyw un ohonynt i fewnosod stamp dyddiad yn ei gell gyfagos.

Is-setAllChkChange()
'Diweddarwyd gan Extendoffice 20211130
Dim xChks
Dim xChk Fel CheckBox
Ar Ail-ddechrau Gwall Nesaf
Gosod xChks = ActiveSheet.CheckBoxes
Am Bob xChk Mewn xChks
xChk.Dewis
Selection.OnAction = "ObjChkChange"
Digwyddiadau
Is-End

Is-objChkChange()
Dim xChk Fel CheckBox
Gosod xChk = ActiveSheet.CheckBoxes(Application.Caller)
Gyda xChk.TopLeftCell.Offset(, 1)
Os xChk.Value = xlOff Yna
.Gwerth = ""
arall
.Gwerth = Dyddiad
Gorffennwch Os
Diwedd Gyda
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir