/ / Excel VBA notikumi

Excel VBA notikumi

Darbgrāmatas atklātais pasākums | Darblapas maiņas notikums

Notikumi ir darbības, ko veic lietotāji, kas iedarbojas Excel VBA izpildīt kodu.

Darbgrāmatas atklātais pasākums

Kods, kas pievienots darbgrāmatā Atvērtā notikuma izpildi veic Excel VBA, kad atverat darbgrāmatu.

1. Atveriet Visual Basic Editor.

2. Divreiz uzklikšķiniet uz šī darbgrāmata Project Explorer.

3. Izvēlieties darbgrāmatu no kreisā nolaižamā saraksta. Izvēlieties opciju, kas atrodas labajā nolaižamajā sarakstā.

Darblapas atklātais notikums programmā Excel VBA

4. Pievienojiet šādu koda rindiņu darbgrāmatas atvērtam notikumam:

MsgBox "Good Morning"

5. Saglabājiet, aizveriet un atveriet Excel failu.

Rezultāts:

Darbgrāmatas atvērtā notikuma rezultāts

Darblapas maiņas notikums

Kodu, kas pievienots darblapas izmaiņu notikumam, izpildīs Excel VBA, ja maināt šūnu darblapā.

1. Atveriet Visual Basic Editor.

2. Projekta Explorer divreiz noklikšķiniet uz lapas (piemēram, Sheet1).

3. Izvēlieties darblapu no kreisā nolaižamā saraksta. Labajā nolaižamajā sarakstā izvēlieties Mainīt.

Darblapas izmaiņu notikums programmā Excel VBA

Pievienojiet šādas darblapas maiņas notikuma koda rindiņas:

4. Darblapas maiņas notikums uzzina visas izmaiņas lapā Sheet1. Mēs tikai vēlamies, lai Excel VBA kaut ko darītu, ja kaut kas mainās B2 šūnā. Lai to panāktu, pievienojiet šādas koda līnijas:

If Target.Address = "$B$2" Then

End If

5. Mēs tikai vēlamies, lai Excel VBA parādītu MsgBox, ja lietotājs ievada vērtību lielāku par 80. Lai to panāktu, pievienojiet šādu koda līniju starp If un End If.

If Target.Value > 80 Then MsgBox "Goal Completed"

6. Lapā1 ierakstiet skaitli, kas ir lielāks par 80, šūnā B2.

Ievadiet skaitli, kas pārsniedz 80

Rezultāts:

Darbgrāmata mainīt notikuma rezultātu

Lasīt arī: