Sut i popio calendr wrth glicio cell benodol yn Excel?
Gan dybio bod ystod colofn mewn taflen waith mae angen i chi nodi a newid dyddiadau y tu mewn yn aml, ond mae'n ddiflas nodi neu newid dyddiad â llaw bob tro. Sut i nodi dyddiadau yn gyflym heb deipio â llaw i'r ystod colofnau? Mae'r erthygl hon yn sôn am popio calendr wrth glicio ar gelloedd mewn ystod benodol, yna mewnosod dyddiad yn y gell a ddewiswyd yn awtomatig ar ôl dewis dyddiad yn y calendr.
Codwch galendr wrth glicio cell benodol gyda chod VBA
Datryswch y broblem hon fel a ganlyn gam wrth gam.
Nodyn: Dim ond ar 32-bit Microsoft Excel y gall y dull hwn weithio.
Cam 1: Creu Fformat Defnyddiwr gyda chalendr
Os gwelwch yn dda creu UserForm sy'n cynnwys y calendr y byddwch chi'n ei popio trwy glicio ar gell.
1. Gwasgwch 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 > Ffurflen Defnyddiwr.
3. Yna a Ffurflen Defnyddiwr a Blwch offer ffenestri pop i fyny, yn y Blwch offer, cliciwch unrhyw un rheolydd a chliciwch ar y dde, yna dewiswch Rheolaethau Ychwanegol o'r ddewislen clicio ar y dde. Gweler y screenshot:
4. Yn y Rheolaethau Ychwanegol blwch deialog, sgroliwch i lawr i wirio'r Rheoli Microsoft MonthView opsiwn yn y Rheolaethau Ar Gael blwch, ac yna cliciwch ar y OK botwm.
5. Yna gallwch weld y MisView botwm yn cael ei ychwanegu yn y Blwch offer ffenestr. Cliciwch y botwm MonthView hwn, ac yna cliciwch ar y ffenestr UserForm1 i greu Calendr yn y Ffurflen Ddefnyddiwr.
Nodyn: Gallwch addasu maint y ffenestr UserForm i weddu i'r calendr a fewnosodwyd trwy lusgo ffin y UserForm.
6. Cliciwch ddwywaith ar y calendr a fewnosodwyd yn y UserForm1, ac yn y Côd ffenestr, disodli'r cod gwreiddiol gyda'r sgript VBA ganlynol.
VBA code: create a user form with calendar
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End Sub
Nodyn: Gall y cod hwn helpu i fewnosod dyddiad mewn cell benodol ar ôl dewis dyddiad o'r calendr.
Cam 2: Ysgogi'r Calendr wrth glicio ar gell
Nawr mae angen i chi nodi rhai celloedd i ddangos y calendr wrth glicio. Gwnewch fel a ganlyn.
7. Cliciwch ddwywaith ar enw'r ddalen sy'n cynnwys y celloedd y byddwch chi'n eu clicio i naidlen yn y chwith Prosiect cwarel, yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod. Gweler y screenshot:
VBA code: Click cell to pop up calendar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count = 1) Then
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
End If
End Sub
Nodyn: yn y cod, mae A2: A10 yn gelloedd y byddwch chi'n eu clicio i naidlen. Newidiwch yr ystod celloedd yn ôl yr angen.
8. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, pan gliciwch ar unrhyw gell y tu mewn i'r ystod benodol yn y daflen waith gyfredol, bydd calendr yn ymddangos fel islaw'r screenshot a ddangosir. A bydd y dyddiad yn cael ei fewnosod yn awtomatig yn y gell a ddewiswyd ar ôl dewis dyddiad o'r calendr.
Codwch galendr wrth glicio cell benodol gyda chod VBA
Mae'r adran hon yn cyflwyno'r Dewiswr Dyddiad cyfleustodau Kutools ar gyfer Excel. Ar ôl galluogi'r nodwedd hon, cliciwch y bydd cell dyddiad yn popio calendr, gallwch chi ddisodli'r dyddiad presennol yn hawdd gyda dyddiad newydd gydag ef. Dilynwch y camau isod i gymhwyso'r nodwedd hon.
1. Cliciwch Kutools > Cynnwys > Galluogi Dewiswr Dyddiad.
2. Ar ôl galluogi'r nodwedd hon, cliciwch ar gell dyddiad, a bydd eicon calendr yn ymddangos i'r dde i'r gell.
3. Cliciwch yr eicon calendr i agor y Dewiswr Dyddiad blwch deialog, ac yna cliciwch ar ddyddiad newydd i ddisodli'r dyddiad mewn cell ddethol.
Nodiadau:
- Dadwneud botwm: Cliciwch y botwm hwn i ddadwneud y dyddiad ailosod;
- Botwm cau: Cliciwch y botwm hwn i gau'r blwch deialog Date Picker;
- Dim ond i gelloedd sy'n cynnwys dyddiad y gall y nodwedd hon fod yn berthnasol.
Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Erthyglau perthnasol:
- Sut i sbarduno neu redeg Macro trwy glicio cell benodol yn Excel?
- Sut i newid lliw celloedd pan fydd cell yn cael ei chlicio neu ei dewis yn Excel?
- Sut i popio blwch negeseuon wrth glicio ar gell benodol yn Excel?
- Sut i analluogi botwm ar ôl clicio unwaith yn Excel?
- Sut i analluogi clic dde ar dab dalen 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!