Kako v Excel vstaviti izbirnik datuma?
Za vstavljanje spustnega koledarja bomo uporabili ActiveX Control, ki je »Microsoftov nadzornik za izbiro datuma in časa 6.0 (SP6)« .
Recimo, da moramo vzdrževati podatke za zaposlene v podjetju. Obstaja več področij
- Emp koda
- Ime Emp
- Datum pridružitve Emp
- Emp oddelek
Za vnos podatkov v MS Excel smo ustvarili naslednjo obliko.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__2.png.webp)
Če želite vnesti datum pridružitve Emp, moramo ustvariti spustni koledar, da bo uporabnik lažje vnašal datume pridružitve.
Če želite ustvariti spustni koledar, so spodaj navedeni koraki -
Vstaviti moramo »kontrolnik ActiveX« z imenom »Microsoft Date and Time Picker Control 6.0 (SP6)« . Za vstavljanje bomo uporabili ukaz »Vstavi« pod skupino »Nadzor« v razvijalcu.
Če zavihek »Razvijalec « ni viden, spodaj najdete korake, da bo isti viden.
- 1. korak: V meniju »Datoteka« izberite »Možnosti«
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__3.png.webp)
- 2. korak: Odpre se pogovorno okno z imenom »Excel Options« . Na levem robu pogovornega okna izberite 'Prilagodi trak' . Potrdite polje na zavihku »Razvijalec « in kliknite »V redu«.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__4.png.webp)
- 3. korak: Zdaj lahko na zadnjem delu traku vidimo zavihek »Razvijalec «.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__5.png.webp)
- Korak 4: Izberite »Več kontrolnikov« med kontrolami ActiveX.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__6.png.webp)
- 5. korak: Na seznamu izberite »Microsoftov nadzornik za izbiro datuma in časa 6.0 (SP6)« in kliknite »V redu«.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__7.png.webp)
- 6. korak: Kliknite kjer koli na delovnem listu, da ustvarite spustni koledar.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__8.png.webp)
- 7. korak: Z desno miškino tipko kliknite »Izbirnik datumov« in na seznamu izberite »Lastnosti« .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__9.png.webp)
- Korak 8: Spremenite vrednost iz »False« v »True« za lastnost »CheckBox«, tako da bodo lahko sprejete tudi ničelne vrednosti. Zaprite pogovorno okno 'Lastnosti' .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__10.png.webp)
- 9. korak: Znova kliknite znova na izbirnik datumov in v kontekstnem meniju izberite »Ogled kode «.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__11.png.webp)
- Korak 10: V programu Visual Basic Editor lahko vidimo, da je neka koda že napisana. Kodo zamenjajte z naslednjo kodo.
Koda:
Private Sub Worksheet_SelectionChange (ByVal Target As Range) s Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect (Target, Range ("C: C")) Nič potem .Visible = True .Top = Target.Top. Levo = Target.Offset (0, 1). Levo. LinkedCell = Target.Address Else .Visible = False End, če se konča s End Sub
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__12.png.webp)
- 11. korak: Prva izjava v kodi sporoči MS Excel Compilerju, naj zažene kodo vsakič, ko je izbrana nova celica (izbira se spremeni). Izbrana celica se pošlje v postopek Sub kot "Target".
Zasebni delovni list_SelectionChange (ByVal Target As Range)
- 12. korak: Ti stavki v Excelu določijo višino in širino izbirnika datumov na 20 točk. Opazimo, da smo uporabili operator 'With' , tako da se nam ni treba vedno znova sklicevati na DTPicker1 .
S Sheet1.DTPicker1 .Height = 20 .Širina = 20
- Korak 13: Naslednja klavzula »Če« določa merila, da če je v stolpcu »C« izbrana katera koli celica, bo vidnost prikazana le izbirniku datuma. Uporabili smo funkcijo 'Intersect', saj ta preverja, ali smo v stolpcu C izbrali katero koli celico, nato pa bo ta funkcija vrnila naslov; v nasprotnem primeru bi bila vrednost nična.
Če ni križišče (tarča, obseg ("C: C")) potem ni nič. Vidno = True
- 14. korak: Lastnost »Top« izbirnika datuma je nastavljena na enako vrednost lastnosti »Top« izbrane celice. To pomeni, da bo to potekalo skupaj z zgornjo mejo izbrane celice.
.Top = Target.Top
- Korak 15: Ta izjava nastavi levo lastnost izbirnika datuma na enako kot naslednja desna celica izbrane celice (razdalja leve meje stolpca D od skrajne leve strani delovnega lista). Da bi dobili referenco na naslednjo desno celico, smo uporabili funkcijo 'Offset' z 0 kot argument vrstice in 1 kot argument stolpca, saj bo to dobilo sklic na celico v naslednjem stolpcu.
.Left = Target.Offset (0, 1) .Left
- Korak 16: Ta stavek povezuje izbirnik datumov s ciljno celico, tako da je katera koli vrednost izbrana v spustnem koledarju, ki je prikazan v celici.
.LinkedCell = Target.Adress
- Korak 17: Stavek 'Else' sporoči prevajalniku, da ne prikaže izbirnika datuma, ko je izbrana katera koli celica, razen tiste v stolpcu C.
V nasprotnem primeru .Visible = False
- 18. korak: Na koncu zapremo polje »Če«.
Končaj če
- Korak 19: Končno moramo zapreti 'S'.
Končaj z
- 20. korak: Zdaj se podproces zaključi.
Končaj pod
Prepričajte se, da datoteko shranimo s pripono .xlsm, saj shrani kodo VBA, ki smo jo napisali, in to kodo bomo lahko zagnali, ko bo v stolpcu C izbrana katera koli celica.
Now, whenever we select any cell in the ‘C’ column, we can see a drop-down calendar at the top right corner of the selected cell. We can open the drop-down calendar by clicking on the down arrow symbol.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__13.png.webp)
We need to click on any date in the calendar in the selected month to enter that date in the selected cell.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__14.png.webp)
We can change month to previous or next using the arrow button placed at the left and right side of the calendar.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__15.png.webp)
We can also click on the month to choose a month from the drop-down.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__16.png.webp)
We can also change year by clicking on year and then using up and down arrows to choose the required one.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__17.png.webp)
Things to Remember
- ‘Microsoft Date and Time Picker Control 6.0 (SP6)’ is not available for the 64-bit version of MS Excel.
- Po pisanju kode VBA moramo datoteko shraniti s pripono '.xlsm' (Excel Macro-Enabled Workbook); v nasprotnem primeru se koda VBA ne bi izvajala.