Izwi rokuti "Excel chiitiko»inoshandiswa kuratidza zvimwe zviito zvinoitwa nemushandisi muExcel. Semuenzaniso, kana mushandisi achichinja pepa rebhuku rebasa, ichi chiitiko. Kuisa data musero kana kuchengetedza bhuku rebasa zvakare zviitiko zveExcel.
Zviitiko zvinogona kubatanidzwa neExcel worksheet, kumachati, bhuku rebasa, kana zvakananga kuExcel application pachayo. Vagadziri vanogona kugadzira VBA kodhi iyo inozoitwa otomatiki kana chiitiko chikaitika.
Semuenzaniso, kuita macro kumhanya pese kana mushandisi achichinja pepa rebasa muExcel bhuku rebasa, iwe unogadzira VBA kodhi inomhanya pese panoitika chiitiko. SheetActivate bhuku rebasa.
Uye kana iwe uchida kuti macro imhanye pese paunoenda kune rimwe pepa rekushanda (semuenzaniso, Sheet1), ipapo kodhi yeVBA inofanira kubatanidzwa nechiitiko Activate yepepa iri.
Iyo VBA kodhi inotarisirwa kubata zviitiko zveExcel inofanira kuiswa mune rakakodzera pepa rebasa kana bhuku rebasa chinhu muVBA mupepeti hwindo (mupepeti anogona kuvhurwa nekudzvanya. Alt + F11) Semuenzaniso, kodeti inofanirwa kuitwa pese panoitika chimwe chiitiko padanho repepa rebasa inofanira kuiswa muhwindo rekodhi yebepa rebasa iroro. Izvi zvinoratidzwa mumufananidzo:
MuVisual Basic edhita, unogona kuona seti yezviitiko zvese zveExcel zviripo pabhuku rebasa, pepa rebasa, kana nhanho yechati. Vhura hwindo rekodhi rechinhu chakasarudzwa uye sarudza rudzi rwechinhu kubva kuruboshwe-pasi menyu kumusoro kwehwindo. Iyo yekurudyi yekudonhedza-pasi menyu kumusoro kwehwindo icharatidza zviitiko zvakatsanangurirwa chinhu ichi. Mufananidzo uri pazasi unoratidza rondedzero yezviitiko zvakabatana neExcel worksheet:
Dzvanya pachiitiko chaunoda mune yekudonha-pasi menyu, uye maitiro anozoiswa otomatiki muhwindo rekodhi rechinhu ichi. Sub. kumusoro kwemaitiro Sub Excel inoisa otomatiki iyo inodiwa nharo (kana iripo). Chinosara ndechekuwedzera VBA kodhi kuti uone kuti ndezvipi zviito zvinofanirwa kuita kana chiitiko chaunoda chaonekwa.
muenzaniso
Mumuenzaniso unotevera, nguva imwe neimwe sero rinosarudzwa B1 papepa rebasa Sheet1 bhokisi remeseji rinobuda.
Kuti tiite chiitiko ichi, isu tinofanirwa kushandisa chiitiko chepepa rebasa Selection_Change, iyo inoitika nguva imwe neimwe kusarudzwa kwesero kana huwandu hwemasero hunochinja. Function Selection_Change anogamuchira senharo chipfuro Chinhu -. Aya ndiwo maziviro atinoita kuti ndeupi mutsara wemasero akasarudzwa.
chiitiko Selection_Change inoitika nechero sarudzo itsva. Asi isu tinoda seti yezviito kuti iitwe chete kana sero rasarudzwa B1. Kuti tiite izvi, isu tichateedzera chiitiko chete mune yakatarwa renji chipfuro. Iyo inoshandiswa sei mukodhi yepurogiramu inoratidzwa pazasi:
'Kodhi yekuratidza bhokisi remeseji kana cell B1 yasarudzwa' pane razvino pepa rebasa. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Tarisa kana cell B1 yasarudzwa Kana Target.Count = 1 Uye Target.Row = 1 Uye Target.Column = 2 Zvadaro 'Kana cell B1 yasarudzwa, woita zvinotevera MsgBox "Une akasarudza sero B1" Kupera Kana Kupera Sub