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

Conas dáta / am reatha a chur leis / a iontráil i gcill le cliceáil faoi dhó in Excel?

Más gá duit an dáta nó an dáta reatha a chur isteach go minic i mbileog oibre, is féidir leat an modh san alt seo a thriail. Cuideoidh an t-alt seo leat dáta nó dáta reatha a chur leis nó a iontráil go huathoibríoch i gcealla raon sonraithe gan ach cliceáil faoi dhó.

Cliceáil faoi dhó chun an dáta reatha nó an t-am dáta le cód VBA a chur leis / a iontráil


Cliceáil faoi dhó chun an dáta reatha nó an t-am dáta le cód VBA a chur leis / a iontráil

Féadfaidh tú an cód VBA thíos a rith chun dáta nó am reatha a chur go huathoibríoch i gcill le cliceáil dúbailte. Déan mar a leanas le do thoil.

1. Cliceáil ar dheis ar an táb Bileog ar mhaith leat an dáta reatha a chur isteach sna cealla sonraithe, ansin roghnaigh Féach an cód ón roghchlár cliceáil ar dheis.

2. Sa Microsoft Visual bunúsach d’Fheidhmchláir an cód VBA thíos a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an Chóid.

Cód VBA: Cliceáil faoi dhó chun an dáta reatha a chur i gcill

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

nótaí:

1. Sa chód, is é A1: B10 an raon a gcuirfidh tú an dáta reatha leis.
2. Más gá duit an t-am dáta reatha a chur leis an gcill, cuir ceann eile ina áit dáta le Anois () sa chód. Is féidir leat iad a athrú de réir mar is gá duit.

3. Brúigh Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fuinneog agus filleadh ar an mbileog oibre.

As seo amach, agus aon chill á chliceáil faoi dhó i raon sonraithe A1: B10. Iontrálfar an dáta nó an dáta reatha go huathoibríoch.


Earraí gaolmhara:


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á.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (28)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir linn é seo a leathnú chun raon cille níos mó a chur leis? Chuir mé na cille breise seo leis an gcód : (Sprioc, Raon ("C10:C19", "D10:D19", "E10:E19")) ach tá sé ag tabhairt earráid tiomsaithe dom ag rá "líon mícheart argóintí nó tascanna réadmhaoine neamhbhailí" agus ansin cuireann sé béim ar an gcéad líne cód a sholáthair tú "Fo-Bhileog Oibre Príobháideach_BeforeDoubleClick(ByVal Target As Range, Cealaigh As Boole)" Cabhraigh liom le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Joel, níl a fhios an bhfuil tú fós ag lorg réiteach, ach ní mór duit do chód a athrú:

Ó: (Sprioc, Raon ("C10:C19", "D10:D19", "E10:E19"))
Chuig: (Sprioc, Raon ("C10:C19,D10:D19,E10:E19"))

Déanfaidh sé seo duit.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Nick,
Ba mhaith liom comhairle a fháil uait ar an ábhar seo....
Tá comhad agam a dtugaim "bileog táirgiúlachta" air.... Ar an mbileog seo ba mhaith liom an t-am iarbhír a chur isteach,i gcealla roghnaithe, nuair a chliceáiltear ar an gcill... (Más féidir, ba mhaith liom na cealla seo tar éis an chuma ar an am a bheith gan athrú .....rud éigin cosúil le bheith faoi ghlas.)
Is mór agam do chuid ama agus thanx roimh ré
Attila, an Ungáir
exyzee@gmail.com
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Attila a chara,
Bain triail as an seat thíos chun an t-am iarbhír chun cill a chur isteach i raon áirithe nuair a chliceáiltear é.
(Ní féidir feidhm na gceall a ghlasáil go huathoibríoch a bhaint amach, tá brón orainn faoi sin)

Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = Bréagach
Mura Trasnaíonn (Sprioc, Raon ("A1:B10")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Dáta
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an cód i ndáiríre... Go raibh maith agat... chuir mé cód eile leis chun an chill a chosaint tar éis duit sonraí a chur isteach. Anois is í an fhadhb atá ann, nuair a chuirim na sonraí isteach agus go bhfuil an chill cosanta agus trí dhearmad má chliceálann mé an chill chosanta faoi dhó, téann an cód thuas mícheart don bhileog iomlán. Ní oibríonn sé ansin. Caithfidh mé an leathán a dhíchosaint chun an cód a thabhairt beo. Aon réiteach?

Tá an Cód cosanta a úsáidtear thíos:

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRg Mar Raon
Ar Lean Earráid Aghaidh
Socraigh xRg = Trasnaigh(Raon ("A1: a1000, b1: b1000, G1: G1000"), Sprioc)
Mura bhfuil xRg ar bith ansin Scoir Fo
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = Fíor
Target.Worksheet.Protect Password:="123"
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Phóil, a chara,
Bainim triail as an gcód a sholáthair tú. Cosnófar an bhileog oibre iomlán láithreach nuair a chuirim sonraí isteach in aon cheann de na cealla cosanta sonraithe.
Thairis sin, nuair a dhéantar cliceáil faoi dhó ar an gcill chosanta, ní athraíonn aon rud an cód i mo chás.
An míneofá go díreach cad atá tú ag iarraidh a dhéanamh leis an gcód?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Gabh mo leithscéal, faighim do phointe. (chailleann an cód thuas)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is é an cód iontrála cliceáil dúbailte a cruthaíodh:


Fo-bhileog Oibre Príobháideach_BeforeDoubleCliceáil(Sprioc ByVal Mar Raon, Cealaigh Mar Boole)
Mura Trasnaíonn (Sprioc, Raon ("A1: a1000")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Dáta
Deireadh Má

Mura Trasnaíonn (Sprioc, Raon ("b1:b1000")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Am
Deireadh Má

Mura Trasnaíonn (Sprioc, Raon ("g1: g1000")) An bhfuil faic ansin
Cealaigh = Fíor
Target.Formula = Am
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Phóil, a chara,
Bain triail as an gcód VBA seo a leanas.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRg Mar Raon
Ar Lean Earráid Aghaidh
Socraigh xRg = Trasnaigh(Raon ("A1: a1000, b1: b1000, G1: G1000"), Sprioc)
Mura bhfuil xRg ar bith ansin Scoir Fo
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = Fíor
Target.Worksheet.Protect Password:="123"
Fo Deireadh

Fo-bhileog Oibre Príobháideach_BeforeDoubleCliceáil(Sprioc ByVal Mar Raon, Cealaigh Mar Boole)
Application.EnableEvents = Bréagach
ActiveSheet.Unprotect Pasfhocal:="123"
Mura Trasnaíonn (Sprioc, Raon ("A1: a1000")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Dáta
Deireadh Má
Mura Trasnaíonn (Sprioc, Raon ("b1:b1000")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Am
Deireadh Má
Mura Trasnaíonn (Sprioc, Raon ("g1: g1000")) An bhfuil faic ansin
Cealaigh = Fíor
Target.Formula = Am
Deireadh Má
Pasfhocal ActiveSheet.Protect:="123"
Application.EnableEvents = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chóipeáil agus ghreamaigh mé an cód ag nuashonrú an raon agus níor oibrigh sé :-(


Fo-bhileog Oibre Príobháideach_BeforeDoubleCliceáil(Sprioc ByVal Mar Raon, Cealaigh Mar Boole)
Mura Trasnaíonn (Sprioc, Raon ("B4:B100")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Anois()
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Oibríonn an cód go maith i mo chás. An féidir leat do leagan Oifige a insint dom?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn an cód a thug tú go hiontach. Táim díreach fiosrach má tá aon bhealach chun an téacs a bheith agat "cliceáil faoi dhó chun dáta a chur leis" Sa chill go dtí go gcuirtear an dáta isteach. Go raibh maith agat roimh ré (táim ag iarraidh mo dhoiciméad a dhéanamh chomh héasca le húsáid agus is féidir ionas nach gcuirfí amú mo chomhoibrithe)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, d'oibrigh an cód thuas go hiontach dom. Anois táim díreach ag smaoineamh an bhfuil bealach ann chun an téacs "Cliceáil dúbailte chun dáta a chur isteach" a bheith le feiceáil sa chill go dtí go gcuirfear an dáta isteach. Is é an sprioc atá agam ná an doiciméad a dhéanamh chomh héasca le húsáid agus is féidir. Go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Travis,
Ní féidir linn an cód a mhodhnú chun an téacs a thaispeáint go díreach sa chill. Ach mar mhalairt air sin, cabhróidh an cód optamaithe thíos leis an téacs a thaispeáint sa trácht cille, agus bainfear an trácht go huathoibríoch tar éis cliceáil faoi dhó ar an gcill chun dáta a chur isteach.

Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
Mura Trasnaíonn (Sprioc, Raon ("A1:B10")) An bhfuil aon rud ansin
Target.NoteText "cliceáil faoi dhó chun dáta a chur leis"
Deireadh Má
Fo Deireadh

Fo-bhileog Oibre Príobháideach_BeforeDoubleCliceáil(Sprioc ByVal Mar Raon, Cealaigh Mar Boole)
Mura Trasnaíonn (Sprioc, Raon ("A1:B10")) An bhfuil aon rud ansin
Cealaigh = Fíor
Sprioc.Comment.Scrios
Target.Formula = Dáta
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann,

Chóipeáil agus ghreamaigh mé an cód thuas go díreach mar atá sé scríofa i leabhar oibre bán, áfach, ní oibríonn sé domsa. D'fhéach mé ar fhoinsí éagsúla ar an ngréasán agus tá formáid cosúil leis an méid atá scríofa thuas ag formhór na suíomhanna. Is dóigh liom b'fhéidir go bhfuil rud éigin cearr le mo VBA nó nach bhfuil roinnt socruithe ar siúl. Bheifí buíoch as aon chomhairle. Tá mé ag rith Excel le haghaidh Office 365 MSO (16.0.11001.20097) 32-giotán ar Windows 10.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is breá an cód agus oibríonn sé go hiontach. Conas is féidir liom é a dhéanamh nuair a chliceálann mé faoi dhó chun an cód a fhorghníomhú a chuid ama taispeána in am míleata?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Dylan,
Ár leithscéal ní féidir leat cabhrú leis sin go fóill. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
I mo thuairimse, má roghnaíonn tú an fhormáid ama míleata don chill sin ón Formáid -> Uimhir -> Roghanna ama ar do bhileog ar cheart dóibh oibriú. Mar shampla, tugann sé an rogha 1:30 PM nó 13:30, mar sin ba mhaith leat a roghnú ach 13:30 agus ba chóir é sin a dhéanamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom a cheapann má roghnaíonn tú ach an fhormáid Am Míleata don chill sin ó na roghanna formáid Uimhir -> Am ba cheart é a dhéanamh. Mar shampla, roghnófá 13:30 in ionad 1:30 PM, agus ansin ba cheart é a thaispeáint in am míleata.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil a fhios ag aon duine an bhfuil bealach ann chun an cód seo a chur isteach in Excel Ar Líne? Bhain mé úsáid as leis an leagan deisce agus d’oibrigh sé go hiontach ach anois tá gach rud aistrithe againn chuig an ardán ar líne agus tá mo stampaí dáta agus ama ar chliceáil dúbailte imithe agus ní féidir liom a dhéanamh amach conas an cód a fheiceáil nó a chur in eagar. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar sin chuir mé isteach cód agus oibríonn sé go hiontach ar roinnt bileoga i mo leabhar oibre, ach ar roinnt bileoga stopann sé ag obair go tobann i ndiaidh a chéile áirithe cé go bhfuil an raon ceart curtha isteach agam. Aon smaointe cén fáth a bhféadfadh sé seo tarlú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba é seo díreach an rud a bhí á lorg agam - sábhálann sé seo tonna ama agus is mór agam na treoracha scríofa go maith. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann, rinne an cód go leor dom, Conas is féidir liom srian a chur ar an gcód oibriú ach amháin má tá réimse bán. Má tá dáta sa chill cheana féin, níor cheart go ndéanfadh cliceáil faoi dhó rud ar bith, dar leat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Ahmad,
Gabh mo leithscéal as an trioblóid. Chun na cealla bána a líonadh le dátaí le cliceáil faoi dhó amháin, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun é a dhéanamh.
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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níor oibrigh an fheidhm seo. Ní dhéanann cliceáil faoi dhó ach eagarthóireacht láimhe na cille a iontráil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Bob,
Oibríonn an cód go maith i mo chás. Ní mór dom a bheith níos sonraí faoi do cheist, mar shampla do leagan Excel.
Agus ní oibríonn an cód ach ar na cealla a shonraigh tú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ar fad,

Déanaim iarracht an macra sin a úsáid chun an stampa dáta a úsáid le cliceáil faoi dhó ar cholún E agus tá sé ag obair ach nuair a dhéanaim iarracht an macra a mhacasamhlú chun an rud céanna a dhéanamh ach don am reatha ar cholún F níl sé ag obair mar is féidir leat a fheiceáil ceangailte agam teachtaireacht earráide á rá : Braitheadh ​​Ainm débhríoch.
Nuair a dhéanaim iarracht an chuid Fo-Bhileog Oibre a athrú le haghaidh ainm eile agus cliceáil faoi dhó ar na cealla ní tharlaíonn aon rud.

An bhféadfadh duine éigin cabhrú liom ar sin ?

Mo chód:


Fo-Bileog Oibre_RoimhDoubleCliceáil(Sprioc ByVal Mar Raon, Cealaigh Mar Boole)
Mura Trasnaíonn (Sprioc, Raon ("E1:E10000")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Dáta
Deireadh Má
Fo Deireadh

Fo-Bileog Oibre_RoimhDoubleCliceáil(Sprioc ByVal Mar Raon, Cealaigh Mar Boole)
Mura Trasnaíonn (Sprioc, Raon ("F1: F10000")) An bhfuil aon rud ansin
Cealaigh = Fíor
Target.Formula = Anois()
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Louis,
Má dhéantar an macra a mhacasamhlú beidh dhá nós imeachta céanna leis an ainm céanna i bhfuinneog cód leatháin amháin. Ní cheadaíonn Excel dhá ainm nó níos mó feidhmeanna céanna i modúl. Ní fiú in Imeachtaí. Bíonn athbhrí mar thoradh air.
Más mian leat tasc difriúil a dhéanamh ar an imeacht céanna, ní mór duit an cód bunaidh a mhodhnú chun freastal ar do chuid riachtanas.
Is féidir leis an gcód VBA seo a leanas bhfabhar a thabhairt duit. Bain triail as le do thoil.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL