Kuidas Excelis kuupäevavalija sisestada?
Rippmenüü kalendri lisamiseks kasutame ActiveX-juhtelementi, milleks on Microsofti kuupäeva ja kellaaja valija juhtimine 6.0 (SP6) .
Oletame, et peame säilitama andmeid ettevõtte töötajate kohta. Seal on mitu välja nagu
- Emp kood
- Emp nimi
- Emp liitumise kuupäev
- Empi osakond
Andmete sisestamiseks MS Excelisse oleme loonud järgmise vormingu.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__2.png.webp)
Empi liitumiskuupäeva sisestamiseks peame looma rippmenüü kalendri, et kasutajal oleks lihtsam liitumiskuupäevi sisestada.
Rippmenüü kalendri loomiseks on esitatud järgmised toimingud.
Peame sisestama "ActiveX-i juhtelemendi" nimega "Microsoft Date and Time Picker Control 6.0 (SP6)" . Sisestamiseks kasutame arendaja rühma „Juhtnupud” all käsku „Sisesta” .
Kui vahekaart Arendaja pole nähtav, on allpool toodud samad nähtavaks tegemise juhised.
- 1. samm: valige menüü „Fail” alt „Valikud”
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__3.png.webp)
- 2. samm: avaneb dialoogiboks nimega "Exceli suvandid" . Valige dialoogiboksi vasakust servast „Kohanda linti” . Märkige ruut vahekaardi Arendaja juures ja klõpsake nuppu OK.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__4.png.webp)
- 3. samm: nüüd näeme lindi viimases osas vahekaarti Arendaja .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__5.png.webp)
- 4. samm: valige ActiveX-juhtelementide hulgast „Rohkem juhtelemente” .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__6.png.webp)
- 5. samm: valige loendist „Microsoft Date and Time Picker Control 6.0 (SP6)” ja klõpsake nuppu „OK”.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__7.png.webp)
- 6. samm: klõpsake rippmenüü kalendri loomiseks töölehel suvalises kohas.
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__8.png.webp)
- 7. samm: paremklõpsake valikul „Kuupäeva valija” ja valige loendist „Atribuudid” .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__9.png.webp)
- 8. toiming: muutke atribuudi „CheckBox” väärtus väärtusest „False” väärtuseks „True” , nii et ka nullväärtusi saaks aktsepteerida. Sulgege dialoogiboks „Atribuudid” .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__10.png.webp)
- 9. samm: paremklõpsake kuupäevavalijal uuesti ja valige kontekstimenüüst käsk „Kuva kood” .
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__11.png.webp)
- Samm 10: In "Visual Basic Editor" näeme, et mõned koodi on juba kirjutatud. Asendage kood järgmise koodiga.
Kood:
Private Sub Worksheet_SelectionChange (ByVal Target As Range) Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect (Target, Range ("C: C")) Pole siis midagi .Visible = True .Top = Target.Top. Vasak = Siht. Offset (0, 1). Vasak. LinkedCell = Siht. Aadressi muu .Visible = Vale lõpp, kui lõpp on Lõpp alam
![](https://cdn.know-base.net/5257627/excel_date_picker_how_to_insert_date_picker_calendar_in_excel__12.png.webp)
- Samm 11: Koodi esimene lause käsib MS Excel Compileril käitada koodi alati, kui valitakse uus lahter (valikut muudetakse). Valitud lahter saadetakse alamprotseduurile kui „Siht”.
Privaatne alam tööleht_valiku muutmine (ByVali sihtmärk vahemikuna)
- 12. samm: need väited määravad kuupäevavalija kõrguseks ja laiuseks Excelis 20 punkti. Võib täheldada, et oleme kasutanud operaatorit „With”, nii et meil pole vaja DTPicker1 uuesti ja uuesti viidata .
Lehega1.DTPicker1 .Kõrgus = 20 .Laius = 20
- Samm 13: Järgmine klausel „Kui” seab kriteeriumid, et kui veerus „C” on valitud mõni lahter , saab kuupäevavalija nähtavaks ainult siis. Oleme kasutanud funktsiooni 'Intersect', kuna see funktsioon kontrollib, kas oleme veerus C valinud mõne lahtri, siis see funktsioon tagastab aadressi; muidu oleks väärtus null.
Kui see ei ristu (sihtmärk, vahemik ("C: C")) pole siis midagi .Visible = True
- 14. samm: kuupäevavalija atribuut „Top” määratakse võrdseks valitud lahtri atribuudi „Top” väärtusega. See tähendab, et see läheb koos valitud lahtri ülemise piiriga.
.Top = Sihtmärk.Top
- 15. samm: see lause määrab kuupäevavalija vasaku omaduse võrdseks valitud lahtri järgmise parempoolse lahtri omaga (veeru D veeru vasaku piiri kaugus töölehe vasakust äärmusest). Et saada viide järgmine parem raku oleme kasutanud "Nihe" funktsioon 0 kui rida argument ja 1 kui veerus argument , sest see saab viide raku järgmisse veergu.
Vasak = Siht. Offset (0, 1). Vasak
- 16. samm: see lause seob kuupäeva valija lahtriga Sihtmärk, nii et kumb väärtus on valitud lahtris kuvatavas rippmenüüs.
.LinkedCell = Sihtkoha aadress
- 17. samm: lause „Muu” käsib kompilaatoril mitte kuvada kuupäeva valijat, kui on valitud mõni lahter, välja arvatud veerus C olev lahter.
Muu .Nähtav = Vale
- 18. samm: lõpuks sulgeme „If”.
Lõpeta, kui
- 19. samm: lõpuks peame sulgema 'koos'.
Lõpeta
- 20. samm: alamprotseduur lõpeb.
Lõpeta alam
Veenduge, et salvestaksime faili laiendiga '.xlsm', kuna see salvestab meie kirjutatud VBA-koodi ja saame selle koodi käivitada, kui veerus C on valitud mõni lahter.
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.
- Pärast VBA-koodi kirjutamist peame faili laiendiga '.xlsm' (Exceli makrotoega töövihik) salvestama; muidu VBA kood ei töötaks.