Tèm "Excel evènman» yo itilize pou endike sèten aksyon itilizatè a fè nan Excel. Pou egzanp, lè yon itilizatè chanje yon fèy travay, sa a se yon evènman. Antre done nan yon selil oswa sove yon liv travay yo se tou evènman Excel.
Evènman yo ka lye nan yon fèy travay Excel, nan tablo, yon liv travay, oswa dirèkteman nan aplikasyon an Excel tèt li. Pwogramè yo ka kreye kòd VBA ki pral egzekite otomatikman lè yon evènman rive.
Pou egzanp, gen yon makro kouri chak fwa itilizatè a chanje yon fèy travay nan yon liv Excel, ou ta kreye kòd VBA ki pral kouri chak fwa evènman an rive. SheetActivate liv travay.
Men, si ou vle makro a kouri chak fwa ou ale nan yon fèy travay espesifik (pa egzanp, Sheet1), Lè sa a, kòd VBA a dwe asosye ak evènman an Aktive pou fèy sa a.
Kòd VBA ki gen entansyon okipe evènman Excel yo dwe mete nan fèy travay ki apwopriye oswa objè liv travay la nan fenèt editè VBA (ka editè a dwe louvri lè w klike sou Alt + F11). Pou egzanp, kòd ki ta dwe egzekite chak fwa yon evènman sèten rive nan nivo fichye travay yo ta dwe mete nan fenèt kòd la pou fèy travay sa a. Sa a montre nan figi a:
Nan editè Visual Basic, ou ka wè seri tout evènman Excel ki disponib nan liv travay, fèy travay oswa nivo tablo. Louvri fenèt kòd la pou objè a chwazi a epi chwazi kalite objè a nan meni ki dewoule sou bò gòch la nan tèt fenèt la. Meni ki dewoule adwat nan tèt fenèt la ap montre evènman yo defini pou objè sa a. Figi ki anba a montre yon lis evènman ki asosye ak yon fèy travay Excel:
Klike sou evènman an vle a nan meni ki dwat la, epi yo pral otomatikman antre yon pwosedi nan fenèt kòd la pou objè sa a. Gwoup. nan tèt la nan pwosedi a Gwoup Excel otomatikman mete agiman ki nesesè yo (si genyen). Tout sa ki rete se ajoute kòd VBA a pou detèmine ki aksyon pwosedi a ta dwe fè lè yo detekte evènman an vle.
Egzanp
Nan egzanp sa a, chak fwa yo chwazi yon selil B1 sou fèy travay la Sheet1 yon bwat mesaj parèt.
Pou fè aksyon sa a, nou bezwen sèvi ak evènman fèy travay la Selection_Change, ki fèt chak fwa seleksyon yon selil oswa yon seri selil chanje. Fonksyon Selection_Change resevwa kòm yon agiman sib objè -. Men ki jan nou konnen ki seri selil yo te chwazi.
evènman Selection_Change rive ak nenpòt nouvo seleksyon. Men, nou bezwen seri aksyon yo dwe egzekite sèlman lè selil la chwazi B1. Pou fè sa, nou pral swiv evènman an sèlman nan seri a espesifye sib. Ki jan li aplike nan kòd pwogram ki montre anba a:
'Kod pou montre yon bwat mesaj lè selil B1 yo chwazi' sou fèy travay aktyèl la. Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Tcheke si selil B1 chwazi Si Target.Count = 1 Ak Target.Row = 1 Ak Target.Column = 2 Lè sa a, 'Si selil B1 chwazi, Lè sa a, fè MsgBox sa a "Ou gen chwazi yon selil B1" End If End Sub