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

Sut i ychwanegu / nodi dyddiad / amser cyfredol mewn cell gyda chlicio ddwywaith yn Excel?

Os oes angen i chi fewnosod amser dyddiad neu ddyddiad cyfredol yn aml mewn taflen waith, gallwch roi cynnig ar y dull yn yr erthygl hon. Bydd yr erthygl hon yn eich helpu i ychwanegu neu nodi dyddiad neu ddyddiad cyfredol mewn celloedd amrediad penodol gyda chlicio dwbl yn unig.

Cliciwch ddwywaith i ychwanegu / nodi dyddiad neu amser cyfredol gyda chod VBA


Cliciwch ddwywaith i ychwanegu / nodi dyddiad neu amser cyfredol gyda chod VBA


Gallwch redeg y cod VBA isod i ychwanegu dyddiad neu amser cyfredol mewn cell yn awtomatig gyda chlicio ddwywaith. Gwnewch fel a ganlyn.

1. De-gliciwch y tab Dalen yr ydych am fewnosod y dyddiad cyfredol yn y celloedd penodedig, yna dewiswch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn y Microsoft Visual basic ar gyfer Cymwysiadau ffenestr, copïo a gludo'r cod VBA isod i mewn i ffenestr y Cod.

Cod VBA: Cliciwch ddwywaith i ychwanegu'r dyddiad cyfredol mewn cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

Nodiadau:

1. Yn y cod, A1: B10 yw'r amrediad y byddwch chi'n ychwanegu'r dyddiad cyfredol ato.
2. Os oes angen i chi ychwanegu amser dyddiad cyfredol yn y gell, amnewidiwch ef dyddiad gyda Nawr () yn y cod. Gallwch eu newid yn ôl yr angen.

3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr a dychwelyd i'r daflen waith.

O hyn ymlaen, wrth glicio ddwywaith unrhyw gell mewn ystod benodol A1: B10. Bydd y dyddiad neu'r amser cyfredol yn cael ei nodi'n 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 (26)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae ymestyn hyn i ychwanegu mwy o ystod celloedd? Ychwanegais gell ychwanegol hyn yn amrywio i'r cod : (Targed, Ystod ("C10:C19", "D10:D19", "E10:E19")) fodd bynnag mae'n rhoi gwall crynhoi i mi gan ddweud "nifer anghywir o ddadleuon neu aseiniadau eiddo annilys" ac yna mae'n amlygu llinell gyntaf y cod a ddarparwyd gennych chi "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Diddymu Fel Boole)" Helpwch fi os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Joel, ddim yn gwybod a ydych chi'n dal i chwilio am ateb, ond mae angen i chi newid eich cod:

O: (Targed, Ystod ("C10:C19", "D10:D19", "E10:E19"))
I: (Targed, Ystod ("C10:C19, D10:D19,E10:E19"))

Bydd hyn yn ei wneud i chi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nick,
Hoffwn gael rhywfaint o gyngor gennych ar y pwnc hwn ....
Mae gen i ffeil rydw i'n ei galw'n "daflen cynhyrchiant"... Ar y daflen hon hoffwn fewnosod yr amser gwirioneddol, mewn celloedd dethol, pan fydd y gell yn cael ei chlicio... (Os yn bosibl, hoffwn y celloedd hyn ar ôl i'r amser ymddangos yn anghyfnewidiol .....rhywbeth fel cael eich cloi.)
Rwy'n gwerthfawrogi eich amser a thanx ymlaen llaw
Attila, Hwngari
exyzee@gmail.com
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Attila,
Rhowch gynnig ar y sgrinlun isod i fewnosod yr amser gwirioneddol i gell mewn amrediad penodol pan gaiff ei glicio.
(Ni ellir cyflawni swyddogaeth cloi celloedd yn awtomatig, mae'n ddrwg gennyf am hynny)

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Application.ScreenUpdating = Anghywir
Os Ddim yn Croestorri (Targed, Ystod ("A1:B10")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Dyddiad
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod yn gweithio'n wirioneddol... Diolch... dwi wedi ychwanegu cod arall i amddiffyn y gell ar ôl mewnbynnu data. Nawr y broblem yw, unwaith y byddaf yn nodi'r data a bod y gell wedi'i diogelu a thrwy gamgymeriad os byddaf yn clicio ddwywaith ar y gell warchodedig, yna mae'r cod uchod yn mynd o'i le ar gyfer y daflen gyfan. Nid yw'n gweithio bryd hynny. Mae'n rhaid i mi ddad-ddiogelu'r ddalen i ddod â'r cod yn fyw. Unrhyw ateb?

Mae’r Cod Diogelu a ddefnyddir isod:

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Gosod xRg = Croestorri (Amrediad ("A1: a1000, b1: b1000, G1: G1000"), Targed)
Os yw xRg Yn Ddim Yna Ymadael Is
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = Gwir
Target.Worksheet.Protect Password:="123"
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Paul,
Rhoddaf gynnig ar y cod a ddarparwyd gennych. Bydd y daflen waith gyfan yn cael ei diogelu ar unwaith ar ôl i mi fewnbynnu data i unrhyw un o'r celloedd gwarchodedig penodedig.
Ar ben hynny, pan fyddwch chi'n clicio ddwywaith ar y gell warchodedig, nid oes dim yn newid i'r cod yn fy achos i.
A fyddech chi'n esbonio beth yn union rydych chi'n ceisio'i wneud gyda'r cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf gael eich pwynt. (colli'r cod uchod)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y cod entery clic dwbl a grëwyd yw:


Is-daflen Waith Breifat_Cyn Clic Dwbl(Targed ByVal Fel Ystod, Canslo Fel Boole)
Os Ddim yn Croestorri (Targed, Ystod ("A1: a1000")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Dyddiad
Gorffennwch Os

Os Ddim yn Croestorri (Targed, Ystod ("b1:b1000")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Amser
Gorffennwch Os

Os Ddim yn Croestorri (Targed, Ystod ("g1: g1000")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Amser
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Paul,
Rhowch gynnig ar y cod VBA canlynol.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Gosod xRg = Croestorri (Amrediad ("A1: a1000, b1: b1000, G1: G1000"), Targed)
Os yw xRg Yn Ddim Yna Ymadael Is
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = Gwir
Target.Worksheet.Protect Password:="123"
Is-End

Is-daflen Waith Breifat_Cyn Clic Dwbl(Targed ByVal Fel Ystod, Canslo Fel Boole)
Application.EnableEvents = Gau
ActiveSheet.Unprotect Password:="123"
Os Ddim yn Croestorri (Targed, Ystod ("A1: a1000")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Dyddiad
Gorffennwch Os
Os Ddim yn Croestorri (Targed, Ystod ("b1:b1000")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Amser
Gorffennwch Os
Os Ddim yn Croestorri (Targed, Ystod ("g1: g1000")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Amser
Gorffennwch Os
ActiveSheet.Protect Password:="123"
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i gopïo a gludo'r cod gan ddiweddaru'r amrediad ac nid oedd yn gweithio :-(


Is-daflen Waith Breifat_Cyn Clic Dwbl(Targed ByVal Fel Ystod, Canslo Fel Boole)
Os Ddim yn Croestorri (Targed, Ystod ("B4:B100")) Yn Dim Yna
Diddymu = Gwir
Target.Formula = Nawr()
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae'r cod yn gweithio'n dda yn fy achos i. A allwch chi ddweud wrthyf eich fersiwn Office?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod a roesoch yn gweithio'n wych. Yr wyf yn chwilfrydig yn unig os oes unrhyw ffordd i gael y testun "cliciwch ddwywaith i ychwanegu dyddiad" Yn y gell hyd nes y dyddiad yn cael ei nodi. Diolch ymlaen llaw (rwy'n ceisio gwneud fy nogfen mor hawdd ei defnyddio â phosibl er mwyn peidio â drysu fy nghydweithwyr)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, fe weithiodd y cod uchod yn wych i mi. Nawr rwy'n meddwl tybed a oes ffordd i'r testun "Cliciwch ddwywaith i nodi dyddiad" ymddangos yn y gell nes i'r dyddiad gael ei nodi. Fy nod yw gwneud y ddogfen mor hawdd ei defnyddio â phosibl. Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Travis,
Ni allwn addasu'r cod i arddangos testun yn y gell yn uniongyrchol. Ond fel arall, bydd y cod wedi'i optimeiddio isod yn helpu i arddangos y testun yn y sylw cell, a bydd y sylw'n cael ei dynnu'n awtomatig ar ôl clicio ddwywaith ar y gell i nodi'r dyddiad.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Os Ddim yn Croestorri (Targed, Ystod ("A1:B10")) Yn Dim Yna
Target.NoteText "clic dwbl i ychwanegu dyddiad"
Gorffennwch Os
Is-End

Is-daflen Waith Breifat_Cyn Clic Dwbl(Targed ByVal Fel Ystod, Canslo Fel Boole)
Os Ddim yn Croestorri (Targed, Ystod ("A1:B10")) Yn Dim Yna
Diddymu = Gwir
Targed.Sylw.Dileu
Target.Formula = Dyddiad
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi 'na,

Fe wnes i gopïo a gludo'r cod uchod yn union fel y mae wedi'i ysgrifennu mewn llyfr gwaith gwag, fodd bynnag, nid yw'n gweithio i mi. Edrychais ar wahanol ffynonellau ar y we ac mae gan y rhan fwyaf o wefannau fformat tebyg i'r hyn a ysgrifennwyd uchod. Rwy'n meddwl efallai bod rhywbeth o'i le ar fy VBA neu nad yw rhai gosodiadau wedi'u troi ymlaen. Byddai unrhyw gyngor yn cael ei werthfawrogi'n fawr. Rwy'n rhedeg Excel ar gyfer Office 365 MSO (16.0.11001.20097) 32-bit ar Windows 10.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cariad y cod ac mae'n gweithio'n wych. Sut alla i ei wneud felly pan fyddaf yn clicio ddwywaith i weithredu'r cod, mae ei amser yn dangos mewn amser milwrol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Dylan,
Mae'n ddrwg gennym ni all eich helpu gyda hynny eto. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n meddwl os dewiswch y fformat amser milwrol ar gyfer y gell honno o'r Fformat -> Rhif -> Opsiynau amser yn eich dalen a ddylai weithio. Er enghraifft, mae'n rhoi'r opsiwn o 1:30 PM neu 13:30, felly byddech chi'n dewis 13:30 yn unig a dylai hynny ei wneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddwn yn meddwl os dewiswch y fformat Amser Milwrol ar gyfer y gell honno o'r opsiynau fformat Nifer -> Amser a ddylai ei wneud. Er enghraifft, byddech chi'n dewis 13:30 yn lle 1:30 PM, ac yna dylai arddangos mewn amser milwrol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw un yn gwybod a oes ffordd i fewnosod y cod hwn yn Excel Ar-lein? Roeddwn wedi ei ddefnyddio gyda'r fersiwn bwrdd gwaith ac fe weithiodd yn wych ond nawr rydym wedi mudo popeth i'r platfform ar-lein ac mae fy stampiau dyddiad ac amser ar clic dwbl wedi diflannu ac ni allaf ddarganfod sut i weld neu olygu'r cod. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly fe wnes i fewnosod cod ac mae'n gweithio'n wych ar sawl dalen yn fy llyfr gwaith, ond ar rai dalennau mae'n stopio gweithio'n sydyn ar ôl rhes benodol er bod yr ystod gywir wedi'i nodi gennyf. Unrhyw syniadau pam y gallai hyn ddigwydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'r union beth roeddwn i'n edrych amdano - mae hyn yn arbed tunnell o amser ac rwy'n gwerthfawrogi'r cyfarwyddiadau sydd wedi'u hysgrifennu'n dda. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yno, gwnaeth y cod lawer i mi, Sut alla i gyfyngu'r cod i weithio dim ond os yw'r maes yn wag. Os oes dyddiad eisoes yn y gell, ni ddylai clicio dwbl wneud dim, o ran
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ahmad,
Sori am y drafferth. I lenwi'r celloedd gwag gyda dyddiadau gyda chlicio dwbl yn unig, gallwch gymhwyso'r cod VBA canlynol i'w gyflawni.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni weithiodd y swyddogaeth hon. Yn syml, mae clicio dwbl yn mynd i mewn i olygu cell â llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Bob,
Mae'r cod yn gweithio'n dda yn fy achos i. Mae angen i mi wybod mwy penodol am eich mater, fel eich fersiwn Excel.
A dim ond ar y celloedd a nodwyd gennych y mae'r cod yn gweithio.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir