Vba

Įvykiai

Events

Atviras darbo knygos įvykis | Darbo lapo keitimo įvykis





Įvykiai yra veiksmai, kuriuos atlieka naudotojai ir kurie suaktyvina Excel VBA vykdyti kodą.

Atviras darbo knygos įvykis

Prie darbo knygos atidarymo įvykio pridėtas kodas bus paleistas naudojant „Excel VBA“, kai atidarysite darbaknygę.





1. Atidarykite „Visual Basic“ redaktorius .

2. „Project Explorer“ dukart spustelėkite Ši darbo knyga.



3. Iš kairiojo išskleidžiamojo sąrašo pasirinkite Darbaknygė. Iš dešiniojo išskleidžiamojo sąrašo pasirinkite Atidaryti.

Darbaknygės atidarymo įvykis „Excel VBA“

4. Į darbaknygės atidarymo įvykį įtraukite šią kodo eilutę:

„MsgBox“ „Labas rytas“

5. Išsaugokite, uždarykite ir vėl atidarykite „Excel“ failą.

Rezultatas:

Darbo knygos atviro įvykio rezultatas

Darbo lapo keitimo įvykis

Į darbalapio keitimo įvykį įtrauktas kodas bus vykdomas naudojant „Excel VBA“, kai pakeisite darbalapio langelį.

kaip sukurti skaičių seką Excel

1. Atidarykite „Visual Basic“ redaktorius .

2. „Project Explorer“ dukart spustelėkite lapą (pavyzdžiui, Sheet1).

3. Iš kairiojo išskleidžiamojo sąrašo pasirinkite Darbo lapas. Iš dešiniojo išskleidžiamojo sąrašo pasirinkite Keisti.

Darbo lapo keitimo įvykis „Excel VBA“

Į darbalapio keitimo įvykį įtraukite šias kodo eilutes:

4. Darbo lapo keitimo įvykis išklauso visus 1 lapo pakeitimus. Mes tik norime, kad „Excel VBA“ ką nors padarytų, jei kažkas pasikeis B2 langelyje. Norėdami tai padaryti, pridėkite šias kodo eilutes:

JeiTarget.Address = '$ B $ 2'Tada

Galas Jei

5. Mes norime, kad „Excel VBA“ rodytų „MsgBox“ tik tada, kai vartotojas įveda didesnę vertę nei 80. Norėdami tai padaryti, pridėkite šią kodo eilutę tarp If ir End If.

JeiTikslas. Vertė> 80Tada„MsgBox“ tikslas pasiektas

6. 1 lape į B2 langelį įveskite didesnį nei 80 skaičių.

Įveskite skaičių, didesnį nei 80

Rezultatas:

Darbaknygės keitimo įvykio rezultatas

1/6 baigtas! Sužinokite daugiau apie įvykius>
Eiti į kitą skyrių: Masyvas



^