Gali būti atvejų, kai reikia sukurti naują darbaknygę su tam tikru skaičiumi lapų per vba kodą ar makrokomandą. Čia yra paprasta makrokomanda, leidžianti sukurti naują darbaknygę> atidaryti ir išsaugoti ne daugiau kaip 255 naujus darbalapius. Šiame pavyzdiniame makrokomandoje sukursime naują darbaknygę su 10 darbalapių.
Pasirinkimas aiškus
Sub create_workbook ()
Dim wb Kaip darbo knyga
Nustatyti wb = NewWorkbook (10)
Pabaiga Sub
Funkcija „NewWorkbook“ („wsCount As Integer“) kaip darbaknygė
Dim OriginalWorksheetCount As Long
Nustatyti „NewWorkbook“ = nieko
Jei „wsCount 255“, išeikite iš funkcijos
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Nustatykite NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Pabaigos funkcija
Kodo paaiškinimas:
Pirmiausia turime procedūrą, pavadintą „create_workbook“. Šios procedūros metu mes turime kintamąjį wb kaip darbaknygę ir per šį kintamąjį vadiname funkciją NewWorkbook. Taigi vadinama nauja funkcija, o wscount yra 10, o tai yra darbo lapų skaičius naujoje darbaknygėje.
Tada mes einame į vadinamąją funkciją, kuri yra Funkcija „NewWorkbook“ („wsCount as Integer“) kaip darbaknygė. „WsCount“ vertė, kuri yra 10, perduodama iš antrinio failo „create_workbook“.
Nustatyti „NewWorkbook“ = nieko
Pirma, „NewWorkbook“ nenustatyta nieko, kad galėtume išvalyti bet kokią kitą vertę, kuri gali būti priskirta bet kokiems ankstesniems kodams.
Jei „wsCount 255“, tada išeikite iš funkcijos
Toliau turime patikrinti, ar iš antrinės dalies perduota vertė yra mažesnė nei 1 ar didesnė nei 255. Jei atsakymas teigiamas į bet kurį iš šių patikrinimų, išeikite iš funkcijos.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
„Excel“ parinkčių puslapyje yra parametras, kuriame nustatytas lapų, kuriuos reikia įtraukti į naują darbo knygą, skaičius. Šią vertę perduodame kintamajam OriginalWorksheetCount.Kintamajame bus numatytasis lapų skaičius, kuris jau buvo nustatytas „Excel“ parinktyse.
Application.SheetsInNewWorkbook = wsCount
Tada priskiriame „wsCount“ vertę, kuri perduodama iš antrinio parametro „Excel“ parinktyse, kad būtų įtrauktas į naują darbo knygą įtrauktų lapų skaičius. Taigi dabar šis parametras pasikeis iš senos vertės į 10. Senoji vertė gali būti 1 arba 3 arba bet koks kitas vartotojo nustatytas skaičius.
Nustatykite NewWorkbook = Workbooks.Add
Mes sukuriame naują darbo knygą, kuri priskiriama „NewWorkbook“. Ši nauja darbaknygė sukurta naudojant „wsCount“ nurodytą lapų skaičių. Pamatysite naują darbaknygę su 10 lapų pavadinimu „Sheet1 to Sheet10“. Žemiau esančioje nuotraukoje rasite naują sukurtą failą „Book3“.
Žemiau esančiame paveikslėlyje bus parodytas lapų, sukurtų naujoje darbaknygėje, skaičius.
Taip pat programoje bus rodomas skaičius 10. SheetsInNewWorkbook parametras „Excel“ parinktyse, kaip parodyta paveikslėlyje žemiau -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
„TheApplication.SheetsInNewWorkbook“ grąžinamas į pradinį numerį, kuris buvo prieš nustatant „wsCount“. Taigi, jei pradinis skaičius buvo 1 arba 3, šis parametras dabar grįš prie to skaičiaus.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Rašykite mums adresu pašto svetainę