"Microsoft Excel" programoje yra daug svarbių įrankių, kurie sukuria puikią naudotojo patirtį. Vienas iš jų - "Date Picker". Naudodamiesi šiuo įrankiu galite įrašykite bet kokią datą ir laiką. darbalapyje. Jis pasirodo kaip kalendorius . Galite pasirinkti data iš to. Šioje pamokoje išmoksite įterpti datos parinktuvą "Excel" programoje, naudodami tinkamus pavyzdžius ir tinkamas iliustracijas. Vėlesniuose skyriuose bus pateikta daug išsamios informacijos. Taigi, tikiuosi, kad liksite su mumis.

Atsisiųsti praktikos sąsiuvinį

Įterpti datą Picker.xlsm

Kodėl "Excel" programoje naudingas datos rinktuvas?

Dabar žmonės mėgsta dirbti su naudotojo sąsajomis. Tai palengvina darbo stresą. Kaip mes įterpti datą į ląstelę? Juk visi žinome, kad spausdinimas yra varginantis dalykas. O jei duomenų rinkinyje yra 500 eilučių? Juk nenorėtumėte visų datų į "Excel" įterpti rankiniu būdu!

Čia mums į pagalbą ateina "Date Picker". Tai iššokantis kalendorius, kurį galite naudoti įterpti datas ir juos valdyti. Pažvelkite į toliau pateiktą ekrano nuotrauką:

Datos parinkimo įrankį galite pamatyti čia. Naudodami šį įrankį galite pasirinkti bet kurią datą ir atlikti bet kokias operacijas "Microsoft Excel" programoje.

Žingsnis po žingsnio vadovas, kaip įterpti datos rinktuvą į "Excel

Tolesniuose skirsniuose pateiksime jums datą parenkančios naršyklės įterpimo į "Excel" programą vadovą žingsnis po žingsnio. Rekomenduojame atidžiai peržiūrėti ir išmokti visus šiuos veiksmus. Tai akivaizdžiai pagilins jūsų "Excel" žinias.

1. "Excel" programoje įgalinkite plėtotojo skirtuką "Date Picker

Visų pirma, šis datos rinkimo įrankis yra prieinamas tik Kūrėjas Taigi, prieš pradėdami turite įjungti "Microsoft Excel" skirtuką "Programuotojas".

Pirmiausia įjunkime kūrėjo skirtuką.

📌 Žingsniai

• Pirmiausia spustelėkite Failas skirtukas.
• Tada spustelėkite Galimybė .

• Dabar iš "Excel" parinktys dialogo langą, spustelėkite Pritaikyti juostelę kairėje pusėje esanti parinktis.

• Dešinėje lango pusėje pasirinkite Pagrindiniai skirtukai .
• Galiausiai patikrinkite Kūrėjas dėžutė.

Kaip matote iš "Excel" juostos, mums pavyko įterpti skirtuką Kūrėjas į "Microsoft Excel".

Skaityti daugiau: Kaip įterpti dieną ir datą programoje "Excel" (3 būdai)

2. Įterpkite datos rinkiklį

Atėjo laikas į darbalapį įterpti datų rinkiklį. Atlikite šiuos veiksmus.

📌 Žingsniai

• Pirmiausia eikite į Kūrėjas skirtukas.
• Iš Valdikliai skirtuką, spustelėkite Įdėkite .

• Iš ActiveX valdikliai , spustelėkite Daugiau valdiklių.

• Dabar pasirinkite "Microsoft" datos ir laiko pasirinkimo valdiklis 6.0 (SP6) iš Daugiau valdiklių dialogo langas.

• Po to spustelėkite GERAI .
• Galiausiai spustelėkite ląstelę, į kurią norite įterpti datos rinkiklį.

Kaip matote, į ląstelę įterpėme datos pasirinkimo valdiklį.

Kai į darbalapį įterpsite datos rinkiklio valdiklį, pamatysite EMBEDDED formulę formulių juostoje.

Tai reiškia, kokio tipo kontrolė implantuota į šį darbalapį. Atminkite, kad jos negalite pakeisti. Bus rodomas " Nuoroda negalioja " klaida, jei tai padarysite.

Skaityti daugiau: Kaip sujungti datą ir laiką vienoje "Excel" ląstelėje (4 metodai)

3. Pritaikykite datos rinkiklį

Matote, kad mūsų datos pasirinkimo valdiklis neatrodo gerai. Todėl turime jį pritaikyti, kad jis atrodytų geriau.

Įterpus datos rinkiklį, automatiškai įjungiamas projektavimo režimas. Jis leidžia jį keisti. Žinoma, tai ir padarysime. Pakeisime jo dydį, taip pat pakeisime kai kurias jo savybes.

📌 Žingsniai

• Norėdami padidinti arba sumažinti jo dydį, galite tiesiog vilkti datos rinkiklį.

• Nors Dizainas režimas įjungtas, dešiniuoju pelės klavišu spustelėkite datos rinkiklį. Po to spustelėkite Savybės .

• Čia matysite įvairias parinktis. Mes dirbsime su keliomis iš jų.

• Galite keisti aukštį, plotį, šriftą, spalvą ir t. t.
• Dabar vilkite datos rinkiklį į ląstelės vietą, į kurią norite jį patalpinti.

Dabar mūsų datų rinkiklis beveik paruoštas. Belieka susieti kalendorių su ląstele.

Skaityti daugiau: Kaip įterpti datą į "Excel" poraštę (3 būdai)

4. Susiekite datos rinkiklio valdiklį su ląstele

Galbūt manote, kad jį įterpėme ir dabar galime atlikti bet kokią procedūrą. Tačiau čia yra kabliukas. Galite atlikti bet kokią operaciją nesusieję datos rinkiklio su ląstele. Microsoft Excel automatiškai neatpažins datos, susietos su bet kuria ląstele. Atminkite, kad be to neveiks jokia formulė.

📌 Žingsniai

• Pirmiausia dešiniuoju pelės klavišu spustelėkite datos rinkiklį.

• Kontekstiniame meniu spustelėkite Savybės .

• Dabar, kai Susieta ląstelė įveskite norimą prijungti langelio nuorodą.

• Pasirinkę datą iš kalendoriaus, ją automatiškai pamatysite susietame langelyje. Spustelėkite GERAI jei "Excel" rodo " Negalima nustatyti ląstelės reikšmės NULL... " klaida.
• Norėdami priimti nulines reikšmes, pakeiskite reikšmę iš FALSE į TRUE į Pažymimasis langelis.

• Jei dešiniuoju pelės klavišu spustelėsite datos rinkiklį ir spustelėsite Peržiūrėti kodą pamatysite su juo susijusius VBA kodus.

Skaityti daugiau: "Excel" automatiškai įveda datą, kai įvedami duomenys (7 paprasti metodai)

Kaip įterpti datos rinkiklį į visą "Excel" stulpelį

Tai, ką darėme iki šiol, yra datos rinktuvo įterpimas į ląstelę. Datos rinktuvą galime įterpti į ląstelių intervalą arba į tam tikrą stulpelį. Spustelėjus ląstelę, bus rodomas kalendorius, iš kurio galėsite pasirinkti datą. Tolesniuose skirsniuose parodysime, kaip įterpti ir vieną, ir kelis stulpelius.

1. Vieno stulpelio datos rinkiklio įterpimas

📌 Žingsniai

• Norėdami priskirti datos rinktuvą visam stulpeliui, dešiniuoju pelės klavišu spustelėkite datos rinktuvą. Po to spustelėkite Peržiūrėti kodą .

• Po to pamatysite tam tikrą kodą, jei jį pritaikėte.
• Dabar išvalykite VBA ir įveskite šį kodą, kurį čia pateikiame:

 Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect(Target, Range("B:B")) Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Else .Visible = False End If End With End Sub 

Šis kodas iš esmės nustato stulpelį B kaip datos rinkiklis.

• Dabar panaikinkite dizaino režimo pasirinkimą.
• Po to spustelėkite bet kurią ląstelę, kad pašalintumėte Datos rinkiklį.
• Dabar spustelėkite bet kurią stulpelio ląstelę B . Kiekvienoje ląstelėje matysite datos pasirinkimo valdiklį.

Kodų paaiškinimai:

 Su Sheet1.DTPicker1 .Height = 20 .Width = 20 

Šiame kode demonstruojamas lapo numeris (Įsiminkite lapo numerį, net jei pakeitėte pavadinimą) ir datos rinktuvo numeris. Čia turime lapą 1 (pagrindinis Datepicker lapas) ir datos rinktuvą 1. Aukštis ir plotis, kuriuos nustatote rankiniu būdu.

 If Not Intersect(Target, Range("B:B")) Is Nothing Then .Visible = True 

Šis kodas parodo, kad jei bet kuris stulpelio langelis B bus matomas datos rinktuvas. Arba galite nustatyti pasirinktinį diapazoną, pavyzdžiui, Range("B5:B14") . Jis nustatys datos rinkiklį tik toms konkrečioms stulpelio ląstelėms. B .

 .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address 

" viršuje " savybė iš esmės reiškia, kad ji eina kartu su nurodyto langelio viršutine riba. Ji atitinka nurodyto langelio "viršutinės" priklausomybės vertę.

" Kairėje pusėje " savybė yra lygi kitam dešiniajam langeliui (nurodyto langelio). Tai yra kairiojo krašto ilgis nuo išorinio kairiojo darbalapio krašto. Norėdami gauti dešiniojo langelio langelio nuorodą, naudojome funkciją offset.

" LinkedCell " sujungia datos rinkiklį su tiksliniu langeliu. Pasirinkus datą iš išskleidžiamajame sąraše, ji leidžiama ląstelėje.

 Kitaip .Visible = False 

Kai pasirenkate bet kurią kitą ląstelę, o ne stulpelio C , datos rinktuvas nebus rodomas.

2. Įterpti kelių stulpelių datos rinkiklį

Dabar, jei norite nustatyti kelis stulpelius su datų rinkikliu, turite atlikti paprastą pakeitimą. Atminkite, kad prieš nustatydami kelis stulpelius su datų rinktuvais, turite vėl įterpti kitą datų rinktuvą.

Jei norite nustatyti datos parinkimo funkciją gretimiems stulpeliams, nereikia rašyti kito kodo segmento. Tiesiog pakeiskite IF segmentas:

 If Not Intersect(Target, Range("C:D")) Is Nothing Then 

Toliau pateikiamas kodas nustatys stulpelių datos parinkimo funkciją B, D, E, G:

Šiuo atveju datos rinkiklį priskiriame ne visam stulpeliui, o įterpiame jį į tam tikrą ląstelių intervalą. 1 datos rinkiklis skirtas B5:B14, 2 datos rinkiklis - D5:E14, o 3 datos rinkiklis - G5:G14.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Sheet1.DTPicker1 .Height = 20 .Width = 20 If Not Intersect(Target, Range("B5:B14") Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Else .Visible = False End If End With With Sheet1.DTPicker2 .Height = 20 .Width = 20 If Not Intersect(Target, Range("D5:E14") Is NothingTada .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Kitaip .Visible = False End If End With With With Sheet1.DTPicker3 .Height = 20 .Width = 20 If Not Intersect(Target, Range("H5:H14")) Is Nothing Then .Visible = True .Top = Target.Top .Left = Target.Offset(0, 1).Left .LinkedCell = Target.Address Kitaip .Visible = False End If End With End Sub 

Žiūrėkite čia, turime tris datos rinktuvus. Vienas iš jų skirtas stulpeliui B , vienas - stulpeliams D ir E kartu, o kitas - stulpeliui G . Spustelėję kiekvieną šių stulpelių langelį pamatysite kalendorių. Tokiu būdu "Excel" programoje galite įterpti kelių stulpelių datų rinkiklį.

Didelė problema su "Excel" datos parinkimo įrankiu

Jei naudojate 64 bitų "Microsoft Excel" programinę įrangą arba naudojate "Excel 365" ar "Excel 2019", dabar jau esate sutrikę. Taip yra todėl, kad negalėjote rasti datos rinktuvo ActiveX kontrolė.

Apgailestaujame, kad "Microsoft" datos parinkimo valdiklis yra tik 32 bitų "Excel 2016", "Excel 2013" ir "Excel 2010" versijose, tačiau jis neveiks "Excel" 64 bitų versijoje. Taigi, jei tikrai norite į darbalapį įterpti kalendorių, naudokite bet kurį trečiosios šalies kalendorių. Tikiuosi, kad ateityje "Microsoft" pateiks kokį nors datos parinkimo valdiklį.

💬 Dalykai, kuriuos verta prisiminti

✎ Būtinai susiekite datos rinkiklį su ląstele, jei su ja dirbate.

✎ Jūsų failas turėtų būti išsaugotas kaip Makrokomandų įjungta darbo knyga (.xlsm).

✎ Jei norite atlikti bet kokį datos rinkiklio pakeitimą, būtinai pasirinkite jį skirtuke kūrėjas.

✎ Jei norite matyti VBA kodų pakeitimus, panaikinkite datos rinktuvo pasirinkimą.

Išvada

Baigdamas tikiuosi, kad ši mokomoji knyga suteikė jums naudingų žinių, kaip į "Excel" įterpti datos parinkiklį. Rekomenduojame išmokti ir taikyti visus šiuos nurodymus savo duomenų rinkiniui. Atsisiųskite pratybų sąsiuvinį ir išbandykite juos patys. Taip pat nedvejodami pateikite atsiliepimus komentarų skiltyje. Jūsų vertingi atsiliepimai skatina mus kurti tokias mokomąsias knygas kaip ši.

Nepamirškite patikrinti mūsų svetainės Exceldemy.com įvairioms su "Excel" susijusioms problemoms ir jų sprendimams.

Nuolat mokykitės naujų metodų ir tobulėkite!