Võib esineda juhtumeid, kus peate vba -koodi või makro kaudu looma uue, teatud arvu lehtedega töövihiku. Siin on lihtne makro, mis võimaldab teil luua uue töövihiku> avada ja seejärel salvestada kuni 255 uue töölehega. Selles näidismakro loome uue töövihiku 10 töölehega.
Valik Selge
Sub create_workbook ()
Dim wb Töövihikuna
Määra wb = NewWorkbook (10)
End Sub
Funktsioon NewWorkbook (wsCount As Integer) Töövihikuna
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Mitte midagi
Kui wsCount 255, siis väljuge funktsioonist
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Määra NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Lõppfunktsioon
Koodi selgitus:
Esiteks on meil protseduur nimega "create_workbook”. Selle protseduuri puhul on meil töövihikuna muutuja wb ja selle muutuja kaudu kutsume funktsiooni NewWorkbook. Nii kutsutakse uus funktsioon ja wscount on 10, mis on töölehtede arv uues töövihikus.
Siis läheme kutsutud funktsiooni juurde, mis on Funktsioon NewWorkbook (wsCount as Integer) töövihikuna. WsCount väärtus, mis on 10, antakse edasi alamast create_workbook.
Set NewWorkbook = Mitte midagi
Esiteks on NewWorkbooki väärtus tühi, et saaksime kustutada kõik muud väärtused, mis sellele võidakse määrata mis tahes eelnevate koodidega.
Kui wsCount 255, siis Välju funktsioonist
Järgmisena peame kontrollima, kas alamvõrgust edastatud väärtus on väiksem kui 1 või suurem kui 255. Kui vastus on mõnele neist kontrollidest jaatav, väljuge funktsioonist.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Exceli suvandite lehel on parameeter, kus määratakse uude töövihikusse kaasatavate lehtede arv. Edastame selle väärtuse muutujale OriginalWorksheetCount.Muutuja mahutab lehtede vaikimisi arvu, mis oli juba Exceli suvandites eelseadistatud.
Application.SheetsInNewWorkbook = wsCount
Seejärel määrame wsCount väärtuse, mis edastatakse alamast parameetrile Exceli suvandites uude töövihikusse lisatavate lehtede arvu kohta. Nüüd muutub see parameeter vanalt väärtuseks 10. Vana väärtus võib olla 1 või 3 või mõni muu kasutaja määratud number.
Määra NewWorkbook = Workbooks.Add
Loome uue töövihiku, mis on määratud NewWorkbookile. See uus töövihik luuakse lehes wsCount määratud lehtede arvuga. Näete uut töövihikut, millel on 10 lehte pealkirjaga Sheet1 to Sheet10. Vaadake allolevat pilti uue faili Book3 jaoks, mis on loodud.
Alloleval pildil näete uues töövihikus loodud lehtede arvu.
Rakenduses kuvatakse ka number 10. SheetsInNewWorkbook parameeter Exceli suvandites nagu alloleval pildil -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
TheApplication.SheetsInNewWorkbook tagastatakse algsele numbrile, mis oli olemas enne wsCount seadistamist. Nii et kui algne number oli 1 või 3, naaseb see parameeter sellele numbrile.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile aadressil e -posti sait