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

Conas stampa dáta a chur isteach i gcill má tictear bosca seiceála in Excel?

De ghnáth, iontrálann tú stampa dáta trí úsáid a bhaint as hotkeys in Excel. Cad mar gheall ar stampa dáta a chur isteach i gcill le bosca seiceála in Excel? Agus an ticbhosca á tic, cuirtear an stampa ama isteach i gcill shonraithe go huathoibríoch. Cabhróidh an t-alt seo leat é a réiteach.

Cuir stampa dáta isteach i gcill má tictear bosca seiceála le cód VBA


Cuir stampa dáta isteach i gcill má tictear bosca seiceála le cód VBA

Tabharfaidh an chuid seo script VBA isteach chun cabhrú leat stampa dáta a chur isteach i gcill go huathoibríoch má tictear bosca seiceála in Excel. Déan mar a leanas le do thoil.

1. Tar éis bosca seiceála a chur isteach, brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.

Cód VBA: Cuir stampa dáta isteach i gcill má chuirtear tic sa bhosca seiceála

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. Brúigh Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

4. Cliceáil ar dheis ar an mbosca seiceála, agus roghnaigh Micrea a shannadh ón roghchlár cliceáil ar dheis. Féach an pictiúr:

5. Sa Macra a shannadh dialóg, roghnaigh CheckBox_Date_Stamp sa Macra-ainm bosca, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Agus an bosca seiceála á tic, cuirfear an stampa dáta isteach sa chill in aice láimhe 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 (22)
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ú
Go raibh maith agat, bhí sé seo an-chabhrach, ba mhaith liom a thabhairt faoi deara go bhfuil sé níos úsáidí dom an stampa dáta a bheith ar thaobh na láimhe clé den ticbhosca. chun é seo a dhéanamh ní gá duit ach an fritháireamh a athrú go (, -1)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil aon bhealach chun é seo a dhéanamh leis an dáta AGUS an t-am? Go raibh maith agat as an eolas ceachtar bealach!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-CheckBox_Date_Stamp() Dim xChk As CheckBox Set xChk = ActiveSheet.CheckBoxes(Application.Caller) Le xChk.TopLeftCell.Offset(, 1) Má tá xChk.Value = xlOff Ansin .Value = "" Eile .Value = Dáta &" " & Críoch Ama Má Chríochnaigh Le Deireadh Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Déan iarratas thíos le do thoil faoin gcód VBA chun dáta agus am a chur leis.

Fo-thiceáilBox_Date_Stamp()
Dim xChk Mar ticbhosca
Socraigh xChk = ActiveSheet.CheckBoxes(Application.Caller)
Le xChk.TopLeftCell.Offset(, 1)
Má tá xChk.Value = xlOff Ansin
.Luach=""
Eile
.Luach = Anois()
Deireadh Má
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
HI Bhain mé triail as an bhfoirmle seo agus níor oibrigh sé ach le haghaidh A1 agus B1 nuair a chuir mé an macra i bhfeidhm ar an ticbhosca in A1. Mar sin féin, nuair a chuir mé an macra i bhfeidhm ar an ticbhosca in A2, níor tharla aon rud i B2. Chomh maith leis sin conas a d’athrófaí an fhoirmle dá mbeinn ag iarraidh é seo a úsáid le haghaidh seicliosta? Dá mba é colún A na ticbhoscaí agus gur críochnaíodh an dáta ar cholún C.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit :) is féidir leat an chill a chóipeáil leis an ticbhosca in A1 go dtí an chuid eile den cholún. nó sann an macra ina aonar do gach ticbhosca
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Tabhair an macra ina aonar do gach ticbhosca.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cóipeáil agus greamaigh mé an cód VBA go díreach, ach ar mo scarbhileog, tá an dáta le feiceáil sa chill thuas agus ar thaobh na láimhe deise de cholún an bhosca seiceála, ní sa chill díreach ar dheis. ?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cheist chéanna sin agam freisin. "CABHAIR! Teastaíonn CABHAIR uaim ó dhuine éigin
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. Tar éis an ticbhosca a sheiceáil, beidh an dáta le feiceáil sa chill díreach ar dheis. An gcuirfeá seat de do chás ar fáil. Agus cén leagan Office a úsáideann tú. Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhí an cheist chéanna agam leis an dáta agus stampa ama le feiceáil sa chill os cionn na cille beartaithe (ag baint úsáide as Excel 2007). Chuaigh mé ar aghaidh agus d'athraigh mé an fhoirmle "fritháireamh" ionas go dtéann sé thar chill amháin AGUS síos cill amháin agus anois tá an stampa le feiceáil nuair is mian liom é: Le xChk.TopLeftCell.Offset(1, 1)
Táim ag nuashonrú bileog oibre a chruthaigh duine éigin eile agus nár chruthaigh na boscaí seiceála, ach b'fhéidir go mbeadh baint aige leis an áit a bhfuil an ticbhosca suite taobh istigh den chill. Fuair ​​​​mé torthaí éagsúla nuair a línéadaigh mé an ticbhosca le bun na cille.

Hope go gcuidíonn!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo a rinne mé chun an cheist sin a réiteach

Fo-thiceáilBox_Date_Stamp()
Dim xChk Mar ticbhosca
Socraigh xChk = ActiveSheet.CheckBoxes(Application.Caller)
Le xChk.TopLeftCell.Offset(1, 1)
Má tá xChk.Value = xlOff Ansin
.Luach=""
Eile
.Luach = Anois()
Deireadh Má
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Go raibh maith agat as an gcód. Oibríonn sé go foirfe le tweaking lil ar an bhfritháireamh. Mar sin féin, bhí mé ag obair ar bhileog a bhfuil go leor go leor sraitheanna go leor (~ 500+ sraitheanna) ina bhfuil ualach boscaí seiceála agus d'fhás méid an chomhaid go suntasach. An bhfuil aon bhealach ann chun an méid a laghdú? Aon slí eile chun é seo a dhéanamh?

Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Maith thú
Má tá go leor boscaí seiceála i sraitheanna agus gur mhaith leat gníomhú ar na boscaí seiceála go léir ag an am céanna, is féidir leis an gcód VBA thíos cabhrú leat.
Cóipeáil na cóid isteach i bhfuinneog cód an Mhodúil, téigh ar ais go dtí an bhileog oibre agus cruthaigh cnaipe (cosúil le Cnaipe (Rialú Foirme)), sann an macra SetAllChkChange() chuig an gcnaipe, ansin cliceáil ar an gcnaipe chun an cód a rith.

Anois tá na boscaí seiceála go léir i sraitheanna de do bhileog oibre curtha i ngníomh. Is féidir leat aon cheann acu a sheiceáil chun dáta stampa a chur isteach sa chill in aice leis.

Fo-SetAllChkChange()
Dim xChks
Dim xChk Mar ticbhosca
Dim xI Chomh fada
Ar Lean Earráid Aghaidh
Scrios xArrChk
Socraigh xChks = ActiveSheet.CheckBoxes
ReDim Preserve xArrChk(1 Go xChks.count)
xI = 1
Do Gach xChk In xChks
xChk.Roghnaigh
Selection.OnAction = "ObjChkChange"
Ar Aghaidh
Fo Deireadh


Fo ObjChkChange()
Dim xChk Mar ticbhosca
Socraigh xChk = ActiveSheet.CheckBoxes(Application.Caller)
Le xChk.TopLeftCell.Offset(, 1)
Má tá xChk.Value = xlOff Ansin
.Luach=""
Eile
.Value = Dáta
Deireadh Má
Deireadh Le
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas a gheobhaidh mé an stampa dáta le taispeáint faoi mo bhosca seiceála?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Ní cosúil go bhfaighidh mé bealach a mbeidh an stampa dáta ar thaobh an bhosca tic. Rinne mé iarracht an luach fritháirimh a athrú ó 0, 1 agus -1. an féidir leat cabhrú liom le seo? go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ag glacadh leis go bhfuil do bhosca seiceála in A2 agus gur mhaith leat an stampa dáta ar thaobh na láimhe deise den bhosca seiceála a aschur (is B2 é sa chás seo), athraigh an luach Fritháirimh go Fritháireamh(1, 1).
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bhain mé úsáid as an VBA le haghaidh stampa ama an bhosca seiceála, ach níl an chéad dá chill ag obair i gceart. Tá mo chéad bhosca seiceála in A2, nuair a sheiceálann mé an bosca, cuirtear an t-am sa phost i B1. Conas is féidir liom é seo a shocrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Steve,
Cuir Le xChk.TopLeftCell.Offset(1, 1) in ionad an cheathrú líne sa chód.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat!! Iontach! Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, conas is féidir liom an cód a lúbadh chun gach ticbhosca a chur san áireamh sa cholún?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Má tá go leor boscaí seiceála i sraitheanna agus gur mhaith leat gníomhú ar na boscaí seiceála go léir ag an am céanna, is féidir leis an gcód VBA thíos cabhrú leat.
Cóipeáil na cóid thíos i bhfuinneog cód an Mhodúil le do thoil, téigh ar ais go dtí an bhileog oibre agus cruthaigh cnaipe (cosúil le Cnaipe (Rialú Foirme)), sann an macra SetAllChkChange() chun an cnaipe, ansin cliceáil ar an gcnaipe chun an cód a rith.

Anois tá na boscaí seiceála go léir i sraitheanna de do bhileog oibre curtha i ngníomh. Is féidir leat aon cheann acu a sheiceáil chun dáta stampa a chur isteach sa chill in aice leis.

Fo-SetAllChkChange()
' arna nuashonrú ag Extendoffice 20211130
Dim xChks
Dim xChk Mar ticbhosca
Ar Lean Earráid Aghaidh
Socraigh xChks = ActiveSheet.CheckBoxes
Do Gach xChk In xChks
xChk.Roghnaigh
Selection.OnAction = "ObjChkChange"
Ar Aghaidh
Fo Deireadh

Fo ObjChkChange()
Dim xChk Mar ticbhosca
Socraigh xChk = ActiveSheet.CheckBoxes(Application.Caller)
Le xChk.TopLeftCell.Offset(, 1)
Má tá xChk.Value = xlOff Ansin
.Luach=""
Eile
.Value = Dáta
Deireadh Má
Deireadh Le
Fo Deireadh
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