Lub sijhawm "Excel kev tshwm sim» yog siv los qhia qee yam kev ua los ntawm cov neeg siv hauv Excel. Piv txwv li, thaum tus neeg siv hloov daim ntawv ua haujlwm, qhov no yog qhov xwm txheej. Kev nkag mus rau hauv cov ntaub ntawv ntawm tes lossis khaws phau ntawv ua haujlwm kuj tseem yog Excel.
Cov xwm txheej tuaj yeem txuas mus rau Excel daim ntawv ua haujlwm, rau kab kos, phau ntawv ua haujlwm, lossis ncaj qha rau daim ntawv thov Excel nws tus kheej. Cov programmers tuaj yeem tsim VBA code uas yuav raug ua tiav thaum muaj xwm txheej tshwm sim.
Piv txwv li, kom muaj macro khiav txhua zaus tus neeg siv hloov daim ntawv ua haujlwm hauv Excel, koj yuav tsim VBA code uas yuav khiav txhua lub sijhawm tshwm sim. SheetActivate phau ntawv ua haujlwm.
Thiab yog tias koj xav kom macro khiav txhua zaus koj mus rau ib daim ntawv ua haujlwm tshwj xeeb (piv txwv li, Ntawv 1), ces tus VBA code yuav tsum tau txuam nrog qhov kev tshwm sim qhib rau daim ntawv no.
VBA code npaj los tuav cov xwm txheej Excel yuav tsum tau muab tso rau hauv daim ntawv ua haujlwm tsim nyog lossis phau ntawv ua haujlwm hauv VBA qhov rais editor (tus editor tuaj yeem qhib los ntawm txhaj Alt + F11). Piv txwv li, cov cai uas yuav tsum tau ua txhua zaus ib qho kev tshwm sim tshwm sim ntawm cov ntawv ua haujlwm yuav tsum muab tso rau hauv lub qhov rais code rau daim ntawv ua haujlwm ntawd. Qhov no yog qhia hauv daim duab:
Hauv Visual Basic editor, koj tuaj yeem saib cov txheej txheem ntawm txhua qhov xwm txheej Excel muaj nyob ntawm phau ntawv ua haujlwm, daim ntawv ua haujlwm, lossis daim ntawv qhia qib. Qhib lub qhov rais code rau cov khoom xaiv thiab xaiv hom khoom los ntawm cov ntawv qhia zaub mov sab laug rau saum lub qhov rais. Txoj cai drop-down ntawv qhia zaub mov nyob rau sab saum toj ntawm lub qhov rais yuav qhia cov txheej xwm teev tseg rau cov khoom no. Daim duab hauv qab no qhia cov npe ntawm cov xwm txheej cuam tshuam nrog Excel daim ntawv ua haujlwm:
Nyem rau ntawm qhov kev tshwm sim xav tau nyob rau hauv txoj cai drop-down ntawv qhia zaub mov, thiab ib tug txheej txheem yuav tsum tau muab tso rau hauv lub qhov rais code rau cov khoom no sub. ntawm lub taub hau ntawm tus txheej txheem sub Excel cia li ntxig cov lus sib cav (yog tias muaj). Txhua yam uas tseem tshuav yog ntxiv VBA code los txiav txim seb qhov kev ua haujlwm twg yuav tsum ua thaum pom qhov kev tshwm sim xav tau.
Piv txwv li
Hauv qhov piv txwv hauv qab no, txhua zaus xaiv lub xov tooj ntawm tes B1 ntawm daim ntawv ua haujlwm Ntawv 1 ib lub thawv ntawv tshwm.
Txhawm rau ua qhov haujlwm no, peb yuav tsum siv daim ntawv ua haujlwm Xaiv_Change, uas tshwm sim txhua lub sij hawm kev xaiv ntawm ib tug cell los yog ntau yam ntawm cov cell hloov. Muaj nuj nqi Xaiv_Change txais raws li kev sib cav Target yam khoom -. Qhov no yog qhov peb paub tias cov kab mob twg raug xaiv.
Cov kev tshwm sim Xaiv_Change tshwm sim nrog kev xaiv tshiab. Tab sis peb xav tau cov txheej txheem ua kom tiav tsuas yog thaum lub xov tooj raug xaiv B1. Ua li no, peb yuav taug qab qhov kev tshwm sim tsuas yog nyob rau hauv qhov kev teev tseg Target. Yuav ua li cas nws yog siv nyob rau hauv qhov kev pab cuam code qhia hauv qab no:
'Code los tso saib lub thawv ntawv thaum xov tooj ntawm tes B1 raug xaiv' ntawm daim ntawv ua haujlwm tam sim no. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Saib seb cell B1 raug xaiv Yog Target.Count = 1 Thiab Target.Row = 1 Thiab Target.Column = 2 Ces 'Yog cell B1 raug xaiv, ces ua cov nram qab no MsgBox "Koj muaj xaiv ib lub xov tooj B1" Xaus Yog Xaus Sub