VBA podržava još jednu vrstu petlje u programu Excel 2016: petlju kroz svaki objekt u kolekciji objekata. Kolekcija se, kao što možda znate, sastoji od više objekata istog tipa. Na primjer, Excel ima zbirku svih otvorenih radnih knjiga (zbirka Radne knjige), a svaka radna knjiga ima zbirku radnih listova (zbirka Radni listovi).
Kada trebate proći kroz svaki objekt u kolekciji, koristite strukturu Za svaki sljedeći. Sljedeći primjer prolazi kroz svaki radni list u aktivnoj radnoj knjizi i briše radni list ako je prazan:
Pod DeleteEmptySheets()
Dim WkSht kao radni list
Application.DisplayAlerts = False
Za svaki WkSht u ActiveWorkbook.Worksheets
Ako je WorksheetFunction.CountA(WkSht.Cells) = 0 Tada
WkSht.Izbriši
Završi ako
Sljedeći WkSht
Application.DisplayAlerts = Točno
Kraj Sub
U ovom primjeru, varijabla WkSht je varijabla objekta koja predstavlja svaki radni list u radnoj knjizi. Ništa nije posebno u vezi s imenom varijable WkSht; možete koristiti bilo koje ime varijable koje želite.
Kôd prolazi kroz svaki radni list i određuje prazan list prebrojavanjem ćelija koje nisu prazne. Ako je taj broj nula, list je prazan i briše se. Primijetite da je postavka DisplayAlerts isključena dok petlja radi svoje. Bez te izjave, Excel iskače upozorenje svaki put kada se list sprema izbrisati.
Ako su svi radni listovi u radnoj knjizi prazni, dobit ćete pogrešku kada Excel pokuša izbrisati jedini list. Obično biste napisali kod za rješavanje te situacije.
Evo još jednog primjera za svaki sljedeći. Ovaj postupak koristi petlju za skrivanje svih radnih listova u aktivnoj radnoj knjizi osim aktivnog lista.
Sub HideSheets()
Dim Sht kao radni list
Za svaki Sht u ActiveWorkbook.Worksheets
Ako Sht.Name <> ActiveSheet.Name Onda
Sht.Visible = xlSheetHidden
Završi ako
Sljedeći Sht
Kraj Sub
Postupak HideSheets provjerava naziv lista. Ako nije isto kao naziv aktivnog lista, list je skriven. Primijetite da svojstvo Visible nije Boolean. Ovo svojstvo zapravo može poprimiti bilo koju od tri vrijednosti, a Excel nudi tri ugrađene konstante. Ako vas zanima treća mogućnost (xlVeryHidden), provjerite sustav pomoći.
Ono što se sakrije mora na kraju postati neskriveno, pa evo makronaredbe koja otkriva sve radne listove u aktivnoj radnoj knjizi:
Sub UnhideSheets()
Dim Sht kao radni list
Za svaki Sht u ActiveWorkbook.Worksheets
Sht.Visible = xlSheetVisible
Sljedeći Sht
Kraj Sub
Nije iznenađujuće da možete kreirati ugniježđene petlje For Each-Next. Procedura CountBold petlja kroz svaku ćeliju u korištenom rasponu na svakom radnom listu u svakoj otvorenoj radnoj knjizi i prikazuje broj ćelija koje su oblikovane podebljano:
Pod Count Bold()
Dim WBook As Workbook
Zatamnite WSheet kao radni list
Zatamnjena ćelija kao raspon
Dim Cnt As Long
Za svaku radnu knjigu u radnim bilježnicama
Za svaki WSheet u WBook.Worksheets
Za svaku ćeliju u WSheet.UsedRange
Ako je Cell.Font.Bold = True, onda je Cnt = Cnt + 1
Sljedeća ćelija
Sljedeći WSheet
Sljedeća knjiga
MsgBox Cnt & "pronađene podebljane ćelije"
Kraj Sub
Kako blokirati Microsoft Word da otvara datoteke u načinu rada samo za čitanje u sustavu Windows Microsoft Word otvara datoteke u načinu rada samo za čitanje, što onemogućuje njihovo uređivanje? Ne brinite, metode su navedene u nastavku
Kako popraviti pogreške u ispisu netočnih Microsoft Word dokumenata Pogreške u ispisu Word dokumenata s promijenjenim fontovima, neurednim odlomcima, nedostajućim tekstom ili izgubljenim sadržajem vrlo su česte. Međutim, nemojte
Ako ste upotrijebili olovku ili marker za crtanje na PowerPoint slajdovima tijekom prezentacije, možete spremiti crteže za sljedeću prezentaciju ili ih izbrisati tako da ćete sljedeći put kada ih pokažete početi s čistim PowerPoint slajdovima. Slijedite ove upute za brisanje crteža olovkom i markerom: Brisanje linija jedan na […]
Biblioteka stilova sadrži CSS datoteke, datoteke Extensible Stylesheet Language (XSL) i slike koje koriste unaprijed definirane glavne stranice, izgledi stranica i kontrole u SharePointu 2010. Da biste locirali CSS datoteke u biblioteci stilova web-mjesta za objavljivanje: Odaberite Radnje web-mjesta→Prikaz Sav sadržaj web-mjesta. Pojavljuje se sadržaj stranice. Knjižnica Style nalazi se u […]
Nemojte zatrpavati svoju publiku ogromnim brojevima. U Microsoft Excelu možete poboljšati čitljivost svojih nadzornih ploča i izvješća formatiranjem brojeva tako da se prikazuju u tisućama ili milijunima.
Naučite kako koristiti SharePointove alate za društveno umrežavanje koji pojedincima i grupama omogućuju komunikaciju, suradnju, dijeljenje i povezivanje.
Julijanski datumi se često koriste u proizvodnim okruženjima kao vremenska oznaka i brza referenca za broj serije. Ova vrsta datumskog kodiranja omogućuje trgovcima na malo, potrošačima i uslužnim agentima da identificiraju kada je proizvod napravljen, a time i starost proizvoda. Julijanski datumi se također koriste u programiranju, vojsci i astronomiji. Drugačiji […]
Možete izraditi web-aplikaciju u Accessu 2016. Dakle, što je uopće web-aplikacija? Pa, web znači da je online, a aplikacija je samo skraćenica za "aplikaciju". Prilagođena web-aplikacija je online aplikacija baze podataka kojoj se pristupa iz oblaka pomoću preglednika. Vi gradite i održavate web-aplikaciju u verziji za stolna računala […]
Većina stranica u sustavu SharePoint 2010 prikazuje popis navigacijskih veza na traci za brzo pokretanje na lijevoj strani stranice. Traka za brzo pokretanje prikazuje veze na istaknuti sadržaj web-mjesta kao što su popisi, knjižnice, web-mjesta i stranice za objavljivanje. Traka za brzo pokretanje uključuje dvije vrlo važne veze: vezu za sav sadržaj web-mjesta: […]
Za jednostavne probleme, Solver u Excelu obično brzo pronalazi optimalne vrijednosti varijable Solvera za funkciju cilja. No, u nekim slučajevima, Solver ima problema s pronalaženjem vrijednosti varijable Solvera koje optimiziraju funkciju cilja. U tim slučajevima, Solver obično prikazuje poruku ili poruku o pogrešci koja opisuje ili raspravlja o problemu koji […]
