Izbirnik datumov v Excelu - Kako v Excel vstaviti izbirnik datuma (koledar)?

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.

Č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«
  • 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«.
  • 3. korak: Zdaj lahko na zadnjem delu traku vidimo zavihek »Razvijalec «.
  • Korak 4: Izberite »Več kontrolnikov« med kontrolami ActiveX.
  • 5. korak: Na seznamu izberite »Microsoftov nadzornik za izbiro datuma in časa 6.0 (SP6)« in kliknite »V redu«.
  • 6. korak: Kliknite kjer koli na delovnem listu, da ustvarite spustni koledar.
  • 7. korak: Z desno miškino tipko kliknite »Izbirnik datumov« in na seznamu izberite »Lastnosti« .
  • Korak 8: Spremenite vrednost iz »False« v »True« za lastnost »CheckBox«, tako da bodo lahko sprejete tudi ničelne vrednosti. Zaprite pogovorno okno 'Lastnosti' .
  • 9. korak: Znova kliknite znova na izbirnik datumov in v kontekstnem meniju izberite »Ogled kode «.
  • 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
  • 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.

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.
  • Po pisanju kode VBA moramo datoteko shraniti s pripono '.xlsm' (Excel Macro-Enabled Workbook); v nasprotnem primeru se koda VBA ne bi izvajala.

Zanimive Članki...