Jotkut hyödyllisimmistä makroista ovat yksinkertaisia toimenpiteitä, jotka muuttavat yhtä tai useampaa Excelin asetuksia. Jos esimerkiksi huomaat käyväsi usein Excelin asetukset -valintaikkunassa muuttaaksesi asetusta, se on hyvä vaihtoehto yksinkertaiseksi aikaa säästäväksi makroksi.
Tässä on kaksi esimerkkiä, jotka osoittavat, kuinka voit muuttaa asetuksia Excelissä. Voit soveltaa näissä esimerkeissä esitettyjä yleisperiaatteita muihin asetuksia muuttaviin toimiin.
Boolen asetusten muuttaminen
Kuten valokytkin, Boolen asetus on joko päällä tai pois päältä. Voit esimerkiksi luoda makron, joka ottaa laskentataulukon sivunvaihdon käyttöön ja poistaa sen käytöstä. Kun tulostat tai esikatselet laskentataulukon, Excel näyttää katkoviivat osoittamaan sivunvaihdot. Jotkut ihmiset pitävät näitä katkoviivoja erittäin ärsyttävinä.
Valitettavasti ainoa tapa päästä eroon sivunvaihtonäytöstä on avata Excelin asetukset -valintaikkuna, napsauttaa Lisäasetukset-välilehteä ja selata alaspäin, kunnes löydät Näytä sivunvaihdot -valintaruudun. Jos otat makrotallentimen käyttöön, kun muutat tätä asetusta, Excel luo seuraavan koodin:
ActiveSheet.DisplayPageBreaks = Väärin
Toisaalta, jos sivunvaihdot eivät ole näkyvissä makroa tallennettaessa, Excel luo seuraavan koodin:
ActiveSheet.DisplayPageBreaks = Tosi
Tämä saattaa johtaa siihen, että tarvitset kaksi makroa: yhden sivunvaihdon näytön kytkemiseen päälle ja toisen poistamaan sen käytöstä. Ei totta. Seuraavassa toimenpiteessä käytetään Ei-operaattoria, joka muuttaa True-arvon Epätosi ja False-arvon tosi. TogglePageBreaks-toimenpiteen suorittaminen on yksinkertainen tapa vaihtaa sivunvaihdon näyttö True-tilasta False-tilaan ja False-tilasta True-tilaan:
Sub TogglePageBreaks()
Virheestä Jatka seuraavaksi
ActiveSheet.DisplayPageBreaks = Ei _
ActiveSheet.DisplayPageBreaks
Lopeta ala
Ensimmäinen lause kehottaa Exceliä jättämään huomioimatta kaikki virheet. Esimerkiksi kaaviotaulukko ei näytä sivunvaihtoja, joten jos suoritat makron kaaviotaulukon ollessa aktiivinen, et näe virheilmoitusta.
Voit käyttää tätä tekniikkaa vaihtaaksesi kaikki asetukset, joilla on Boolen arvot (tosi tai epätosi).
Muiden kuin Boolen asetusten muuttaminen
Voit käyttää Select Case -rakennetta muissa kuin Boolen asetuksissa. Tämä esimerkki vaihtaa laskentatilan manuaalisen ja automaattisen välillä ja näyttää viestin, joka ilmaisee nykyisen tilan:
Sub ToggleCalcMode()
Valitse Case Application.Calculation
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Automaattinen laskentatila"
Case xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox "Manuaalinen laskentatila"
Lopeta valinta
Lopeta ala
Voit mukauttaa tätä tekniikkaa muuttamaan muita kuin Boolen asetuksia.