LaskentataulukkoToiminto | Näytön päivitys | DisplayAlerts | Laskeminen
Kaikkien objektien äiti on itse Excel. Me kutsumme sitä Sovellusobjekti. Sovellusobjekti tarjoaa pääsyn moniin Exceliin liittyviin vaihtoehtoihin.
LaskentataulukkoToiminto
Voit käyttää WorksheetFunction -ominaisuutta osoitteessa Excel VBA päästäksesi Excel -toimintoihin.
1. Aseta esimerkiksi komentopainike laskentataulukollesi ja lisää seuraava koodirivi:
Alue ("A3"). Arvo = Application.WorksheetFunction.Average (Alue ("A1: A2"))
Kun napsautat laskentataulukon komentopainiketta, Excel VBA laskee solujen A1 ja A2 arvojen keskiarvon ja sijoittaa tuloksen soluun A3.
Huomautus: Käytä Application.WorksheetFunction.Average -sovelluksen sijasta yksinkertaisesti WorksheetFunction.Average. Jos katsot kaavapalkkia, näet, että itse kaavaa ei ole lisätty soluun A3. Jos haluat lisätä kaavan soluun A3, käytä seuraavaa koodiriviä:
Alue ("A3"). Arvo = "= KESKI (A1: A2)"
Näytön päivitys
Joskus saattaa olla hyödyllistä poistaa näytön päivitys käytöstä (välkkymisen välttämiseksi) koodia suoritettaessa. Tämän seurauksena koodisi toimii nopeammin.
1. Aseta esimerkiksi komentopainike laskentataulukollesi ja lisää seuraavat koodirivit:
Dim i Kuten kokonaisluku
I = 1 - 10000
Alue ("A1"). Arvo = i
Seuraavaksi minä
Kun napsautat laskentataulukon komentopainiketta, Excel VBA näyttää jokaisen arvon pienen sekunnin murto -osan ja tämä voi kestää jonkin aikaa.
2. Nopeuta prosessia päivittämällä koodi seuraavasti.
Dim i Kuten kokonaisluku
Application.ScreenUpdating = Väärä
I = 1 - 10000
Alue ("A1"). Arvo = i
Seuraavaksi minä
Application.ScreenUpdating = Totta
Tämän seurauksena koodisi toimii paljon nopeammin ja näet vain lopputuloksen (10000).
DisplayAlerts
Voit kehottaa Excel VBA: ta olemaan näyttämättä hälytyksiä koodia suoritettaessa.
1. Aseta esimerkiksi komentopainike laskentataulukollesi ja lisää seuraava koodirivi:
ActiveWorkbook.Sulje
Kun napsautat laskentataulukon komentopainiketta, Excel VBA sulkee Excel -tiedoston ja pyytää sinua tallentamaan tekemäsi muutokset.
2. Jos haluat, ettei Excel VBA näytä tätä hälytystä koodia suoritettaessa, päivitä koodi seuraavasti.
Application.DisplayAlerts = Väärä
ActiveWorkbook.Sulje
Application.DisplayAlerts = Totta
Tämän seurauksena Excel VBA sulkee Excel -tiedoston pyytämättä sinua tallentamaan tekemäsi muutokset. Kaikki muutokset menetetään.
Laskeminen
Oletusarvoisesti laskenta on asetettu automaattiseksi. Tämän seurauksena Excel laskee työkirjan automaattisesti uudelleen aina, kun kaavaan vaikuttava arvo muuttuu. Jos työkirjasi sisältää monia monimutkaisia kaavoja, voit nopeuttaa makroasi asettamalla laskutoimituksen manuaaliseksi.
1. Aseta esimerkiksi komentopainike laskentataulukollesi ja lisää seuraava koodirivi:
Application.Calculation = xlCalculationManual
Kun napsautat laskentataulukon komentopainiketta, Excel VBA asettaa laskennan manuaaliseksi.
2. Voit tarkistaa tämän napsauttamalla Tiedosto, Asetukset, Kaavat.
3. Kun muutat solun A1 arvoa, solun B1 arvoa ei lasketa uudelleen.
Voit laskea työkirjan uudelleen manuaalisesti painamalla F9 -näppäintä.
4. Useimmissa tilanteissa asetat laskutoimituksen automaattisesti automaattiseksi koodin lopussa. Lisää vain seuraava koodirivi tämän saavuttamiseksi.
Application.Calculation = xlCalculationAutomatic
