Alat za odabir datuma u programu Excel Kako umetnuti birač datuma (kalendar) u Excel?

Kako umetnuti birač datuma u Excel?

Za umetanje padajućeg kalendara koristit ćemo ActiveX kontrolu, a to je 'Microsoftova kontrola odabira datuma i vremena 6.0 (SP6)' .

Pretpostavimo da moramo održavati podatke za zaposlenike tvrtke. Postoji nekoliko polja poput

  • Emp kod
  • Ime Emp
  • Datum pridruživanja Emp
  • Emp odjel

Za unos podataka u MS Excel stvorili smo sljedeći format.

Da bismo unijeli datum pridruživanja Emp, moramo stvoriti padajući kalendar kako bi korisniku bilo lakše unijeti datume pridruživanja.

Da biste stvorili padajući kalendar, dolje su navedeni koraci -

Moramo umetnuti „ActiveX kontrolu“ pod nazivom „Microsoft Control Date and Time Picker Control 6.0 (SP6)“ . Za umetanje ćemo upotrijebiti naredbu "Umetni" ispod grupe "Kontrole" u "Razvojnom programeru".

Ako kartica 'Developer' nije vidljiva, u nastavku slijede koraci koje treba slijediti kako bi ista bila vidljiva.

  • 1. korak: U izborniku "Datoteka" odaberite "Opcije"
  • Korak 2: Otvorit će se dijaloški okvir pod nazivom "Excel Options" . Odaberite "Prilagodi vrpcu" s lijevog ruba dijaloškog okvira. Potvrdite okvir za karticu "Razvojni programer" i kliknite "U redu".
  • Korak 3: Sada možemo vidjeti karticu 'Developer' na zadnjem dijelu vrpce.
  • Korak 4: Odaberite "Više kontrola" iz ActiveX kontrola.
  • Korak 5: Odaberite "Microsoftova kontrola odabira datuma i vremena 6.0 (SP6)" s popisa i kliknite "U redu".
  • Korak 6: Kliknite bilo gdje na radnom listu da biste stvorili padajući kalendar.
  • Korak 7: Desnom tipkom miša kliknite "Alat za odabir datuma" i s popisa odaberite "Svojstva" .
  • Korak 8: Promijenite vrijednost iz "False" u "True" za svojstvo "CheckBox" tako da se mogu prihvatiti i null vrijednosti. Zatvorite dijaloški okvir 'Svojstva' .
  • Korak 9: Desnom tipkom miša kliknite Izbornik datuma i na kontekstnom izborniku odaberite "Prikaži kod" .
  • Korak 10: U 'Visual Basic Editoru' možemo vidjeti da je neki kôd već napisan. Zamijenite kod sljedećim kodom.

Kodirati:

Promjena privatnog radnog lista_Izbor (Promjena ciljanog dometa) s listom 1.DTPicker1 .Visina = 20. Širina = 20 Ako se ne presijeca (Cilj, raspon ("C: C") Ništa nije tada. Lijevo = Target.Offset (0, 1) .Left .LinkedCell = Target.Address Else .Visible = False End If End With End Sub
  • 11. korak: Prva izjava u kodu govori MS Excel Compileru da pokrene kôd kad god se odabere nova ćelija (odabir se promijeni). Odabrana ćelija šalje se u postupak Sub kao "Cilj".
Privatni radni list_Promjena izbora (cilj cilja kao raspon)
  • Korak 12: Ove izjave postavljaju visinu i širinu birača datuma na 20 bodova u excelu. Može se primijetiti da smo koristili operator 'With' tako da se ne moramo ponovno pozivati ​​na DTPicker1 .
 S Sheet1.DTPicker1 .Visina = 20 .Širina = 20
  • Korak 13: Sljedeća klauzula "Ako" postavlja kriterije da ako je odabrana bilo koja ćelija u stupcu "C" , samo tada birač datuma dobiva vidljivost. Koristili smo funkciju 'Intersect' jer ova funkcija provjerava jesmo li odabrali bilo koju ćeliju u stupcu C, a zatim će ova funkcija vratiti adresu; u suprotnom, vrijednost bi bila nula.
Ako se ne presijeca (Cilj, domet ("C: C")) tada nije ništa. Vidljivo = Istina
  • Korak 14: Svojstvo "Top" programa za odabir datuma postavlja se jednako vrijednosti svojstva "Top" u odabranoj ćeliji. To znači da će to ići zajedno s gornjom granicom odabrane ćelije.
.Top = Cilj.Vrh
  • Korak 15: Ova izjava postavlja lijevo svojstvo birača datuma jednako kao i sljedeće slijedeće desne ćelije odabrane ćelije (Udaljenost lijeve granice stupca D od krajnjeg lijevog dijela radnog lista). Da bismo dobili referencu na sljedeću desnu ćeliju, koristili smo funkciju 'Offset' s 0 kao argumentom retka i 1 kao argumentom stupca jer će to dobiti referencu na ćeliju u sljedećem stupcu.
.Left = Target.Offset (0, 1) .Left
  • Korak 16: Ova izjava povezuje birač datuma sa ciljanom ćelijom tako da se koja god vrijednost odabere u padajućem kalendaru koji se prikazuje u ćeliji.
.LinkedCell = Cilj.Adresa
  • Korak 17: Izraz 'Else' govori prevoditelju da ne prikazuje birač datuma kada je odabrana bilo koja ćelija osim one u stupcu C.
Inače .Vidljivo = Netačno
  • Korak 18: Na kraju zatvorimo "Ako".
Završi ako
  • Korak 19: Napokon moramo zatvoriti "Sa".
Završi sa
  • Korak 20: Sada će završiti podpostupak.
Kraj pod

Obavezno spremimo datoteku s nastavkom '.xlsm' jer sprema VBA kôd koji smo napisali, a ovaj ćemo kôd moći pokrenuti kad se u stupcu C odabere bilo koja stanica.

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.
  • Nakon pisanja VBA koda, datoteku moramo spremiti s nastavkom '.xlsm' (Excel Macro-Enabled Workbook); u suprotnom, VBA kôd se ne bi pokrenuo.

Zanimljivi članci...

Preporučeno