photosdematures.com

Paano Ipasok ang Tagapili ng Petsa sa Excel?

Upang ipasok ang Drop Down Calendar, gagamit kami ng isang Control ng ActiveX alin ang 'Control ng Petsa at Oras ng Microsoft 6.0 (SP6)'.

Maaari mong i-download ang Template ng Excel Picker Excel na ito dito - Template ng Excel ng Tagapili ng Petsa

Ipagpalagay, kailangan naming panatilihin ang data para sa mga empleyado ng isang kumpanya. Mayroong maraming mga patlang tulad ng

• Emp Code
• Pangalan ng Emp
• Emp Sumali sa Petsa
• Kagawaran ng Emp

Upang ipasok ang data sa MS Excel, nilikha namin ang sumusunod na format.

Upang maipasok ang Petsa ng Pagsali sa Emp, kailangan naming lumikha ng isang drop-down na kalendaryo upang mas madali para sa gumagamit na ipasok ang mga sumasali sa petsa.

Upang lumikha ng isang drop-down na kalendaryo, ang mga hakbang ay ibinibigay sa ibaba -

Kailangan nating magsingit ng 'ControlX ng Aktibo' pinangalanan 'Control ng Petsa at Oras ng Microsoft 6.0 (SP6)'. Upang ipasok, gagamitin namin ang 'Ipasok' utos sa ilalim ng 'Mga Kontrol' pangkat sa 'Developer'

Kung ang 'Developer' Ang tab ay hindi nakikita, sa ibaba ay ang mga hakbang na susundan upang gawin ang parehong nakikita.

• Hakbang 1: Sa ilalim ng 'File' menu, pumili 'Mga Pagpipilian'

• Hakbang 2:Isang dialog box ang pinangalanan 'Mga Pagpipilian sa Excel' magbubukas. Pumili ka 'Ipasadya ang Ribbon' mula sa kaliwang gilid ng dialog box. Checkbox para sa 'Developer' tab at mag-click sa 'OK'.

• Hakbang 3:Ngayon ay maaari na nating makita ang 'Developer' tab sa huling ng laso.

• Hakbang 4: Pumili ka 'Maraming Kontrol' mula sa Mga Kontrol ng ActiveX.

• Hakbang 5: Pumili ka 'Microsoft Date and Time Picker Control 6.0 (SP6)' mula sa listahan at mag-click sa 'OK'.

• Hakbang 6: Mag-click saanman sa worksheet upang lumikha ng drop-down na kalendaryo.

• Hakbang 7: Mag-right click sa 'Tagapili ng Petsa' at pumili 'Ari-arian' mula sa listahan.

• Hakbang 8: Baguhin ang halaga mula sa 'Mali' sa 'Totoo' para sa 'CheckBox' pag-aari upang ang mga null na halaga ay maaari ring tanggapin. Isara ang 'Ari-arian' dialog box.

• Hakbang 9: Mag-right click sa Date Picker muli at pumili 'Tingnan ang Code' mula sa menu ng konteksto.

• Hakbang 10: Sa 'Visual Basic Editor', maaari nating makita na ang ilang code ay nakasulat na. Palitan ang code ng sumusunod na code.

Code:

 Pribadong Sub Worksheet_SelectionChange (ByVa l Target Bilang Saklaw) Sa Sheet1.DTPicker1. Taas = 20. Lapad = 20 Kung Hindi Mag-intersect (Target, Saklaw ("C: C")) Ay Wala Noon .Visible = Tuktok = Target.Top .Kaliwang = Target.Offset (0, 1) .Kaliwang .LinkedCell = Target.Address Iba Pa .Makita = Maling Katapusan Kung Nagtatapos Sa Katapusan Sub 

• Hakbang 11: Ang unang pahayag sa code ay nagsasabi sa MS Excel Compiler na patakbuhin ang code sa tuwing napili ang isang bagong cell (Ang seleksyon ay binago). Ang napiling cell ay ipinadala sa pamamaraan ng Sub bilang 'Target'.

 Pribadong Sub Worksheet_SelectionChange (ByVal Target Bilang Saklaw)

• Hakbang 12: Itinakda ng mga pahayag na ito ang taas at lapad ng Date Picker sa 20 puntos sa excel. Mapapansin na ginamit natin 'Sa' operator upang hindi namin kailangan mag-refer DTPicker1 paulit ulit.

 Sa Sheet1.DTPicker1. Taas = 20. Lapad = 20

• Hakbang 13: Ang mga sumusunod 'Kung' itinatakda ng sugnay ang mga pamantayan na kung ang anumang cell ay napili sa 'C' haligi, doon lamang nakakakuha ng kakayahang makita ang Date Picker. Nagamit na namin 'Intersect' pagpapaandar habang tinitingnan ng pagpapaandar na ito kung pumili kami ng anumang cell sa haligi ng C kung gayon ibabalik ng pagpapaandar na ito ang address kung hindi man ang halaga ay null.

 Kung Hindi Mag-intersect (Target, Saklaw ("C: C")) Ay Wala Kung gayon .Visible = Totoo 

• Hakbang 14: 'Nangungunang' pag-aari ng Date Picker ay itinakda bilang katumbas ng 'Tuktok' halaga ng pag-aari ng Napiling cell. Nangangahulugan ito na sasama ito sa itaas na hangganan ng napiling cell.

.Tuktok = Target. Tuktok

• Hakbang 15: Itinatakda ng pahayag na ito ang kaliwang pag-aari ng Date Picker bilang katumbas ng sa susunod na kanang cell ng napiling cell (Distansya ng kaliwang hangganan ng haligi ng D mula sa matinding kaliwang worksheet). Upang makuha ang sanggunian ng susunod na kanang cell, ginamit namin 'Offset' function na may 0 bilang hilera ng pagtatalo at 1 bilang argumento sa haligi dahil makakakuha ito ng isang sanggunian sa cell sa susunod na haligi.

.Kaliwang = Target.Offset (0, 1) .Kaliwa

• Hakbang 16: Iniuugnay ng pahayag na ito ang Tagapili ng Petsa sa Target na cell upang ang alinmang halaga ang mapili sa drop-down na kalendaryo na ipinapakita sa cell.

.LinkedCell = Target. Address

• Hakbang 17: Sinasabi ng pahayag na 'Else' sa tagatala na huwag ipakita ang Date Picker kapag ang anumang cell maliban sa haligi ng C ang napili.

Iba pa .Visible = Mali

• Hakbang 18: Sa huli, isinasara namin ang 'Kung'

 Tapusin kung 

• Hakbang 19: Sa wakas, kailangan nating isara 'Sa'

 Magtapos sa 

• Hakbang 20: Ngayon, magtatapos ang Sub Pamamaraan.

 Wakas Sub 

Tiyaking nai-save namin ang file sa '.Xlsm' extension dahil nai-save nito ang VBA code na isinulat namin at magagawa naming patakbuhin ang code na ito kapag ang anumang cell ay napili sa haligi ng C.

Ngayon tuwing pipiliin namin ang anumang cell sa haligi ng 'C', maaari naming makita ang isang drop-down na kalendaryo sa kanang tuktok na sulok ng napiling cell. Maaari nating buksan ang drop-down na kalendaryo sa pamamagitan ng pag-click sa simbolo ng pababang arrow.

Kailangan naming mag-click sa anumang petsa sa kalendaryo sa napiling buwan upang ipasok ang petsang iyon sa napiling cell.

Maaari nating baguhin ang buwan sa dati o susunod gamit ang arrow button na nakalagay sa kaliwa at kanang bahagi ng kalendaryo.

Maaari din kaming mag-click sa buwan upang pumili ng isang buwan mula sa drop-down.

Maaari rin nating baguhin ang taon sa pamamagitan ng pag-click sa taon at pagkatapos ay ang paggamit ng pataas at pababang mga arrow upang piliin ang kinakailangan.

Bagay na dapat alalahanin

• 'Control ng Petsa at Oras ng Microsoft 6.0 (SP6)' ay hindi magagamit para sa 64-bit na bersyon ng MS Excel.
• Matapos isulat ang VBA code, kailangan naming i-save ang file gamit ang extension na '.xlsm' (Excel Macro-Enified Workbook) kung hindi man hindi tatakbo ang VBA code.