Exceli kuupäevavalija - Kuidas Excelis kuupäevavalija (kalender) sisestada?

Lang L: none (table-of-contents)

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.

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”
  • 2. samm: avaneb dialoogiboks nimega "Exceli suvandid" . Valige dialoogiboksi vasakust servast „Kohanda linti” . Märkige ruut vahekaardi Arendaja juures ja klõpsake nuppu OK.
  • 3. samm: nüüd näeme lindi viimases osas vahekaarti Arendaja .
  • 4. samm: valige ActiveX-juhtelementide hulgast „Rohkem juhtelemente” .
  • 5. samm: valige loendist „Microsoft Date and Time Picker Control 6.0 (SP6)” ja klõpsake nuppu „OK”.
  • 6. samm: klõpsake rippmenüü kalendri loomiseks töölehel suvalises kohas.
  • 7. samm: paremklõpsake valikul „Kuupäeva valija” ja valige loendist „Atribuudid” .
  • 8. toiming: muutke atribuudi „CheckBox” väärtus väärtusest „False” väärtuseks „True” , nii et ka nullväärtusi saaks aktsepteerida. Sulgege dialoogiboks „Atribuudid” .
  • 9. samm: paremklõpsake kuupäevavalijal uuesti ja valige kontekstimenüüst käsk „Kuva kood” .
  • 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
  • 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.

We need to click on any date in the calendar in the selected month to enter that date in the selected cell.

We can change month to previous or next using the arrow button placed at the left and right side of the calendar.

We can also click on the month to choose a month from the drop-down.

We can also change year by clicking on year and then using up and down arrows to choose the required one.

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.

Huvitavad Artiklid...