VBA understøtter endnu en type looping i Excel 2016: looping gennem hvert objekt i en samling af objekter. En samling består, som du måske ved, af en række genstande af samme type. For eksempel har Excel en samling af alle åbne projektmapper (Arbejdsbogsamlingen), og hver projektmappe har en samling af regneark (Arbejdsarksamlingen).
Når du skal gennemgå hvert objekt i en samling, skal du bruge For Every-Next-strukturen. Følgende eksempel går gennem hvert regneark i den aktive projektmappe og sletter regnearket, hvis det er tomt:
Sub DeleteEmptySheets()
Dim WkSht som arbejdsark
Application.DisplayAlerts = Falsk
For hver WkSht i ActiveWorkbook.Worksheets
Hvis WorksheetFunction.CountA(WkSht.Cells) = 0 Så
WkSht.Slet
Afslut Hvis
Næste WkSht
Application.DisplayAlerts = Sand
Slut Sub
I dette eksempel er variablen WkSht en objektvariabel, der repræsenterer hvert regneark i projektmappen. Intet er specielt ved variabelnavnet WkSht; du kan bruge et hvilket som helst variabelnavn, du kan lide.
Koden går gennem hvert regneark og bestemmer et tomt ark ved at tælle de ikke-tomme celler. Hvis tallet er nul, er arket tomt, og det slettes. Bemærk, at DisplayAlerts-indstillingen er slået fra, mens løkken gør sit. Uden den erklæring dukker Excel en advarsel op, hver gang et ark er ved at blive slettet.
Hvis alle regnearkene i projektmappen er tomme, får du en fejl, når Excel forsøger at slette det eneste ark. Normalt ville du skrive kode for at håndtere den situation.
Her er et andet For Every-Next eksempel. Denne procedure bruger en løkke til at skjule alle regneark i den aktive projektmappe undtagen det aktive ark.
Sub HideSheets()
Dim Sht As Arbejdsark
For hver Sht i ActiveWorkbook.Worksheets
Hvis Sht.Name <> ActiveSheet.Name Så
Sht.Visible = xlSheetHidden
Afslut Hvis
Næste Sht
Slut Sub
HideSheets-proceduren kontrollerer arknavnet. Hvis det ikke er det samme som det aktive arks navn, er arket skjult. Bemærk, at egenskaben Visible ikke er boolesk. Denne egenskab kan faktisk antage en hvilken som helst af tre værdier, og Excel giver tre indbyggede konstanter. Hvis du er nysgerrig efter den tredje mulighed (xlVeryHidden), så tjek hjælpesystemet.
Det, der bliver skjult, skal til sidst vises, så her er en makro, der viser alle regneark i den aktive projektmappe:
Sub UnhideSheets()
Dim Sht As Arbejdsark
For hver Sht i ActiveWorkbook.Worksheets
Sht.Visible = xlSheetVisible
Næste Sht
Slut Sub
Ikke overraskende kan du oprette indlejrede For Every-Next-løkker. CountFed-proceduren går gennem hver celle i det brugte område på hvert regneark i hver åben projektmappe og viser en optælling af antallet af celler, der er formateret som fed:
Sub CountFed skrift()
Dim WBook Som arbejdsbog
Dim WSheet som arbejdsark
Dæmp celle som rækkevidde
Dim Cnt As Long
For hver WBook i arbejdsbøger
For hvert WSark i WBook.Worksheets
For hver celle i WSheet.UsedRange
Hvis Cell.Font.Bold = True, så Cnt = Cnt + 1
Næste celle
Næste WSark
Næste WBook
MsgBox Cnt & "fed celler fundet"
Slut Sub
Sådan blokerer du Microsoft Word fra at åbne filer i skrivebeskyttet tilstand på Windows Microsoft Word åbner filer i skrivebeskyttet tilstand, hvilket gør det umuligt at redigere det? Bare rolig, metoderne er nedenfor
Sådan rettes fejl ved udskrivning af forkerte Microsoft Word-dokumenter Fejl ved udskrivning af Word-dokumenter med ændrede skrifttyper, rodede afsnit, manglende tekst eller tabt indhold er ret almindelige. Men lad være
Hvis du har brugt pennen eller highlighteren til at tegne på dine PowerPoint-dias under en præsentation, kan du gemme tegningerne til næste præsentation eller slette dem, så næste gang du viser den, starter du med rene PowerPoint-dias. Følg disse instruktioner for at slette pen- og highlighter-tegninger: Sletning af linjer en ved […]
Style-biblioteket indeholder CSS-filer, Extensible Stylesheet Language-filer (XSL) og billeder, der bruges af foruddefinerede mastersider, sidelayouts og kontrolelementer i SharePoint 2010. For at finde CSS-filer i Style-biblioteket på et udgivelsessted: Vælg Site Actions→ View Alt webstedsindhold. Indholdet af webstedet vises. Style-biblioteket ligger i […]
Overvæld ikke dit publikum med gigantiske tal. I Microsoft Excel kan du forbedre læsbarheden af dine dashboards og rapporter ved at formatere dine tal, så de vises i tusinder eller millioner.
Lær, hvordan du bruger SharePoints sociale netværksværktøjer, der lader enkeltpersoner og grupper kommunikere, samarbejde, dele og forbinde.
Julianske datoer bruges ofte i produktionsmiljøer som et tidsstempel og hurtig reference for et batchnummer. Denne type datokodning giver detailhandlere, forbrugere og serviceagenter mulighed for at identificere, hvornår et produkt blev fremstillet, og dermed produktets alder. Julianske datoer bruges også i programmering, militæret og astronomi. Forskellige […]
Du kan oprette en webapp i Access 2016. Så hvad er en webapp overhovedet? Nå, web betyder, at det er online, og app er kun en forkortelse for "applikation". En Custom Web App er en online databaseapplikation, der tilgås fra skyen ved hjælp af en browser. Du bygger og vedligeholder webappen i desktopversionen […]
De fleste sider i SharePoint 2010 viser en liste over navigationslinks på linjen Hurtig start langs venstre side af siden. Hurtig startlinjen viser links til fremhævet webstedsindhold såsom lister, biblioteker, websteder og udgivelsessider. Hurtigstartlinjen indeholder to meget vigtige links: Linket Alt webstedsindhold: […]
Ved simple problemer finder Solver i Excel som regel hurtigt de optimale Solver-variableværdier for objektivfunktionen. Men i nogle tilfælde har Solver problemer med at finde de Solver-variableværdier, der optimerer objektivfunktionen. I disse tilfælde viser Solver typisk en meddelelse eller en fejlmeddelelse, der beskriver eller diskuterer det problem, der […]
