Dažreiz mums patīk kalendārs programmā Excel. Jūs varat parādīt kalendāru Excel lapā un ievadīt datumu šūnā, izvēloties atbilstošo datumu. Izpildiet norādītās darbības:-
1. Atveriet Excel darba grāmatu.
2 Atveriet skatu> Rīkjoslas> Vadības rīkkopa
3. Tagad lapā var redzēt rīkjoslas logu. Dodieties uz pēdējo pogu (vairāk kontroles) un noklikšķiniet uz tās. Šeit jūs varat redzēt vadīklu sarakstu, noklikšķiniet uz Kalendāra vadīkla.
4. Pielāgojiet kalendāru lapā, kur jums tas bija jāparāda.
5. Veiciet dubultklikšķi uz kalendāra vai ar peles labo pogu, pēc tam skatiet kodu, kodēšanas logā atradīsit šādu kodu:-
Privāts apakškalendārs1_Click ()
Beigt apakš
6. Ievadiet šādu rindu starp pirmo un pēdējo rindu
ActiveCell.Value = Calendar1.Value
7. Jūsu kods izskatīsies šādi: _
Privāts apakškalendārs1_Click ()
ActiveCell.Value = Calendar1.Value
Beigt apakš
8. Izejiet pa VBA logu un dodieties uz Excel lapu un izmantojiet kalendāru.