/ / Excel VBA Events

Excel VBA Events

Arbejdsbog Open Event | Arbejdsark Skift begivenhed

Begivenheder er handlinger udført af brugere, der udløser Excel VBA at udføre kode.

Arbejdsbog Open Event

Kode føjet til Workbook Open Event udføres af Excel VBA, når du åbner projektmappen.

1. Åbn Visual Basic Editor.

2. Dobbeltklik på Denne Workbook i Project Explorer.

3. Vælg Arbejdsbog i den venstre rullemenu. Vælg Åbn i den højre rulleliste.

Workbook Open Event i Excel VBA

4. Tilføj følgende kode linje til Arbejdsbog Open Event:

MsgBox "Good Morning"

5. Gem, luk og genåb Excel-filen.

Resultat:

Arbejdsbog Åbent hændelsesresultat

Arbejdsark Skift begivenhed

Kode føjet til regnearkets ændringshændelse udføres af Excel VBA, når du ændrer en celle på et regneark.

1. Åbn Visual Basic Editor.

2. Dobbeltklik på et ark (for eksempel Sheet1) i Project Explorer.

3. Vælg Arbejdsark fra den venstre rullemenu. Vælg Skift fra den højre rulleliste.

Arbejdsark Skift begivenhed i Excel VBA

Tilføj følgende kodelinjer til regnearkets ændringshændelse:

4. Arbejdsarkets ændringsbegivenhed lytter til alle ændringer på Sheet1. Vi vil kun have Excel VBA til at gøre noget, hvis der sker noget i celle B2. For at opnå dette skal du tilføje følgende kode linjer:

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

End If

5. Vi vil kun have Excel VBA til at vise en MsgBox, hvis brugeren indtaster en værdi større end 80. For at opnå dette skal du tilføje følgende kodelinje mellem If og End If.

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

6. På ark1 indtast et tal større end 80 i celle B2.

Indtast et tal, der er større end 80

Resultat:

Arbejdsbog Skift begivenhedsresultat

Læs også: