Vba

Applikationsobjekt

Application Object

ArbejdsarkFunktion | Skærmopdatering | DisplayAlerts | Beregning





Moderen til alle objekter er Excel selv. Vi kalder det Applikationsobjekt . Applikationsobjektet giver adgang til en masse Excel -relaterede muligheder.

ArbejdsarkFunktion

Du kan bruge egenskaben WorksheetFunction i Excel VBA for at få adgang til Excel -funktioner.





1. Placer f.eks. En kommandoknap på dit regneark, og tilføj følgende kodelinje:

Område ('A3'). Værdi = Application.WorksheetFunction.Average (Område ('A1: A2'))

Når du klikker på kommandoknappen på regnearket, beregner Excel VBA gennemsnittet af værdierne i celle A1 og celle A2 og placerer resultatet i celle A3.



Arbejdsark Funktion i Excel VBA

Bemærk: i stedet for Application.WorksheetFunction.Average skal du blot bruge WorksheetFunction.Average. Hvis du ser på formellinjen, kan du se, at selve formlen ikke er indsat i celle A3. For at indsætte selve formlen i celle A3 skal du bruge følgende kodelinje:

Område ('A3'). Værdi = '= Gennemsnit (A1: A2)'

Skærmopdatering

Nogle gange kan du finde det nyttigt at deaktivere skærmopdatering (for at undgå flimmer), mens du udfører kode. Som følge heraf kører din kode hurtigere.

1. Placer f.eks. En kommandoknap på dit regneark, og tilføj følgende kodelinjer:

IngenjegSom Heltal

Tiljeg = 1Til10.000
Område ('A1'). Værdi = i
Næstejeg

Når du klikker på kommandoknappen på regnearket, viser Excel VBA hver værdi en lille brøkdel af et sekund, og det kan tage noget tid.

Skærmopdatering

en tekstværdi kaldes også:

2. For at fremskynde processen skal du opdatere koden som følger.

IngenjegSom Heltal

Application.ScreenUpdating =Falsk

Tiljeg = 1Til10.000
Område ('A1'). Værdi = i
Næstejeg

Application.ScreenUpdating =Sand

Som følge heraf kører din kode meget hurtigere, og du vil kun se slutresultatet (10000).

DisplayAlerts

Du kan instruere Excel VBA om ikke at vise advarsler under udførelse af kode.

1. Placer f.eks. En kommandoknap på dit regneark, og tilføj følgende kodelinje:

ActiveWorkbook.Luk

Når du klikker på kommandoknappen på regnearket, lukker Excel VBA din Excel -fil og beder dig om at gemme de ændringer, du har foretaget.

DisplayAlerts

vælg fra rullelisten excel

2. Opdater koden på følgende måde for at instruere Excel VBA om ikke at vise denne advarsel under udførelse af kode.

Application.DisplayAlerts =Falsk

ActiveWorkbook.Luk

Application.DisplayAlerts =Sand

Som et resultat lukker Excel VBA din Excel -fil uden at bede dig om at gemme de ændringer, du har foretaget. Eventuelle ændringer går tabt.

Beregning

Som standard er beregningen indstillet til automatisk. Som følge heraf genberegner Excel projektmappen automatisk hver gang en værdi, der påvirker en formel, ændres. Hvis din projektmappe indeholder mange komplekse formler, kan du fremskynde din makro ved at indstille beregning til manuel.

1. Placer f.eks. En kommandoknap på dit regneark, og tilføj følgende kodelinje:

Application.Calculation = xlCalculationManual

Når du klikker på kommandoknappen på regnearket, sætter Excel VBA beregning til manuel.

2. Du kan bekræfte dette ved at klikke på Filer, Indstillinger, Formler.

Beregningsmuligheder

3. Når du nu ændrer værdien af ​​celle A1, genberegnes værdien af ​​celle B1 ikke.

Manuel beregning

Du kan manuelt genberegne projektmappen ved at trykke på F9.

4. I de fleste situationer vil du indstille beregning til automatisk igen i slutningen af ​​din kode. Tilføj blot følgende kodelinje for at opnå dette.

Application.Calculation = xlCalculationAutomatic

1/4 færdiggjort! Få mere at vide om applikationsobjektet>
Gå til næste kapitel: ActiveX -kontrolelementer



^