Automatizuodami įprastas nuobodžias „Excel“ užduotis VBA, jums reikės peržiūrėti kiekvieną lapą. Ir todėl, žinoma, esate čia.
Pažiūrėkime kodą, kurį reikia perkelti į darbaknygės lapus.
„VBA Code To Loop“ visuose „Activeworkbook“ lapuose ir spausdinimo lapuose Pavadinimas
Sub loopSheets () Kiekvienam ws ActiveWorkbook. Darbo lapų derinimas. Spausdinti ws. Pavadinimas Kitas ws End Sub
Aukščiau pateiktas vba kodas perkelia kiekvieną aktyvios darbaknygės lapą ir spausdina lapų pavadinimą
Kaip tai veikia?
Tai gana paprasta. Mes liepiame VBA saugoti kiekvieną darbalapį aktyvioje darbaknygėje ws ir tada atspausdinti jo pavadinimą naudojant pavadinimo metodą.
Peržiūrėkite visus lapus, išskyrus vieną
Taigi, jei bandote sujungti kelis lapus į vieną pagrindinį lapą, turėsite peržvelgti kiekvieną lapą. nukopijuokite kiekvieno lapo duomenis į pagrindinį lapą. Bet norėtųsi, kad pagrindinis lapas nebūtų pašalintas iš kilpų. Tarkime, pagrindinį lapą pavadinote „Meistru“. Tokiu atveju naudokite šį metodą:
Sub kilpa
Tai beveik tas pats, kaip ir aukščiau pateiktas kodas, tik pridėjus „If“ teiginį.
Jei ws.Vardas "Meistras" Tada
Ši eilutė patikrina, ar dabartinio darbalapio pavadinimas yra „Pagrindinis“. jei ne, kodas tarp, jei blokas veikia. Priešingu atveju, jei blokas praleidžiamas, įveskite kodą.
Taigi taip, vaikinai, taip galite peržiūrėti „Excel“ darbalapius. Toliau sužinosime, kaip sujungti kelis lapus į vieną naudojant „vba“.
Atsisiųsti failą
Kaip peržiūrėti „Excel“ lapus naudojant VBASusiję straipsniai:
Ištrinkite lapus be patvirtinimo raginimų naudodami „Microsoft Excel“ VBA
Pridėkite ir išsaugokite naują darbaknygę naudodami „Microsoft Excel 2016“ VBA
Rodyti pranešimą „Excel“ VBA būsenos juostoje
Išjunkite įspėjamuosius pranešimus naudodami VBA programoje „Microsoft Excel 2016“
Populiarūs straipsniai:
„VLOOKUP“ funkcija „Excel“
COUNTIF „Excel 2016“
Kaip naudoti „SUMIF“ funkciją „Excel“