VBA palaiko dar vieną kilpos tipą programoje „Excel 2016“: kiekvieno objekto peržiūrą objektų rinkinyje. Kolekcija, kaip galbūt žinote, susideda iš kelių to paties tipo objektų. Pavyzdžiui, „Excel“ turi visų atidarytų darbaknygių rinkinį (rinkinys „Darbaknygiai“), o kiekvienoje darbaknygėje yra darbalapių rinkinys (kolekcija „Darbalapiai“).
Kai reikia peržiūrėti kiekvieną kolekcijos objektą, naudokite struktūrą Kiekvienam kitam. Šis pavyzdys peržiūri kiekvieną aktyvios darbaknygės darbalapį ir ištrina darbalapį, jei jis tuščias:
Sub DeleteEmptySheets()
Dim WkSht kaip darbalapis
Application.DisplayAlerts = Netiesa
Kiekvienam ActiveWorkbook.Worksheets WkSht
Jei WorksheetFunction.CountA(WkSht.Cells) = 0 Tada
WkSht.Delete
Pabaiga, jei
Kitas WkSht
Application.DisplayAlerts = Tiesa
Pabaigos sub
Šiame pavyzdyje kintamasis WkSht yra objekto kintamasis, vaizduojantis kiekvieną darbaknygės darbalapį. Kintamojo pavadinimas WkSht nieko ypatingo; galite naudoti bet kurį jums patinkantį kintamojo pavadinimą.
Kodas pereina kiekvieną darbalapį ir nustato tuščią lapą skaičiuodamas netuščius langelius. Jei šis skaičius lygus nuliui, lapas tuščias ir ištrinamas. Atkreipkite dėmesį, kad „DisplayAlerts“ nustatymas yra išjungtas, kol ciklas atlieka savo funkciją. Be šio teiginio „Excel“ rodo įspėjimą kiekvieną kartą, kai ruošiamasi ištrinti lapą.
Jei visi darbaknygės darbalapiai yra tušti, „Excel“ bandant ištrinti vienintelį lapą pateikiama klaida. Paprastai rašote kodą, kad išspręstumėte tą situaciją.
Štai dar vienas „Kiekvienam kitam“ pavyzdys. Ši procedūra naudoja kilpą, kad paslėptų visus aktyviosios darbaknygės darbalapius, išskyrus aktyvųjį lapą.
Sub HideSheets ()
Dim Sht kaip darbalapis
Kiekvienam Sht ActiveWorkbook.Worksheets
Jei Sht.Name <> ActiveSheet.Name Tada
Sht.Visible = xlSheetHidden
Pabaiga, jei
Kitas Sht
Pabaigos sub
„HideSheets“ procedūra patikrina lapo pavadinimą. Jei jis nesutampa su aktyvaus lapo pavadinimu, lapas yra paslėptas. Atkreipkite dėmesį, kad matoma ypatybė nėra Būlio reikšmė. Ši savybė iš tikrųjų gali įgyti bet kurią iš trijų reikšmių, o „Excel“ pateikia tris integruotas konstantas. Jei jus domina trečioji galimybė (xlVeryHidden), patikrinkite pagalbos sistemą.
Tai, kas paslepiama, galiausiai turi būti nepaslėpta, todėl čia yra makrokomanda, kuri rodo visus aktyvios darbaknygės darbalapius:
Sub UnhideSheets ()
Dim Sht kaip darbalapis
Kiekvienam Sht ActiveWorkbook.Worksheets
Sht.Visible = xlSheetVisible
Kitas Sht
Pabaigos sub
Nenuostabu, kad galite sukurti įdėtas For Every-Next kilpas. Procedūra „CountBold“ perkelia kiekvieną naudojamo diapazono langelį kiekvienoje atidarytoje darbaknygėje ir rodo paryškintu šriftu suformatuotų langelių skaičių:
Sub CountBold ()
Pritemdyta WBook kaip darbo knyga
Pritemdytas WSheet kaip darbalapis
Pritemdyti langelį kaip diapazoną
Dim Cnt As Long
Kiekvienai WBook In Workbooks
Kiekvienam WSheet WBook.Worksheets
Kiekvienam WSheet.UsedRange langeliui
Jei Cell.Font.Bold = True, tada Cnt = Cnt + 1
Kitas langelis
Kitas WSheet
Kita Wknyga
„MsgBox Cnt“ ir „rasta paryškintų langelių“
Pabaigos sub
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
