Määrake Exceli töövihiku töölehtede arv

Kuidas määrata makro abil Exceli lehtede arvu

Paljud makrod on loodud töövihikute automaatseks loomiseks. Nendel kaustadel peaks tavaliselt olema ka teatud arv töölehti.

Makro kaudu soovitud lehtede arvu juhtimiseks kasutage järgmist käsku:

Määrake lehtede alamarv ()
Application.SheetsInNewWorkbook = 5
End Sub

Kasutage võrdusmärgi järel olevat numbrit, et määrata, mitu töölehte teie töövihikus peaks olema. See väärtus on identne numbriga, mille kasutaja saab määrata menüü "Tööriistad - suvandid - üldine" väljal "Töövihiku lehed", nagu on näha järgmisel joonisel:

Loomulikult saate ka väärtuse välja lugeda. See on kasulik, kui soovite muuta töölehtede arvu ainult lühidalt, et seejärel luua täpselt sellise arvu töölehtedega kaust. Järgmine programm näitab, kuidas seda teha:

1. See salvestab muutuja sisse parajasti eelseadistatud lehtede arvu.
2. See määrab väärtuseks numbri 7.
3. See loob uue töövihiku (mis sisaldab seejärel seitset lehte).
4. See lähtestab eelseadistatud tabelite arvu eelnevalt salvestatud väärtusele.

Siin on selle ülesande jaoks sobiv programmide loend:

Alamtabeli numberMark ()
Hämardatud number täisarvuna
Number = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 7
Töövihikud. Lisa
Application.SheetsInNewWorkbook = number
End Sub