Hem Sociala medier Hur man använder de kommande looparna i Excel 2016 VBA - dummies

Hur man använder de kommande looparna i Excel 2016 VBA - dummies

Innehållsförteckning:

Video: Supersection Week 1 2025

Video: Supersection Week 1 2025
Anonim

Den enklaste typen av loop i Excel VBA-programmering är en For-Next-loop. Slingningen styrs av en räknarevariabel som börjar vid ett värde och stannar vid ett annat värde. Uttalandena mellan For-förklaringen och Nästa-satsen är de uttalanden som upprepas i slingan.

Ett nästa exempel

Följande exempel använder en For-Next-loop för att summera de första 1 000 positiva talen. Totalvariabeln börjar som noll. Sedan uppstår loopingen. Variabeln Cnt är slingräknaren. Den börjar som 1 och ökas med 1 varje gång genom slingan. Slingan slutar när Cnt är 1, 000.

Detta exempel har bara ett uttalande inne i slingan. Detta uttalande lägger till värdet av Cnt till Total variabeln. När slingan slutar visar en MsgBox summan av siffrorna.

Sub AddNumbers () Dim Totalt Som Dubbelt Dim Cnt Så länge Totalt = 0 För Cnt = 1 Till 1000 Totalt = Totalt + Cnt Nästa Cnt MsgBox Total End Sub

Eftersom loopräknaren är en normal variabel kan du skriva kod för att ändra dess värde inom kodblocket mellan för- och nästa-satsen. Detta är dock en mycket dålig övning.

För-nästa exempel med ett steg

Du kan använda ett stegvärde för att hoppa över några motvärden i en For-Next-loop. Här är det föregående exemplet, omskrivna för att summa endast de udda siffrorna mellan 1 och 1 000:

Sub AddOddNumbers () Dim Totalt Som Dubbelt Dim Cnt Så Långt Totalt = 0 För Cnt = 1 Till 1000 Steg 2 Totalt = Totalt + Cnt Nästa Cnt MsgBox Total End Sub

Den här gången börjar Cnt som 1 och tar sedan värden på 3, 5, 7 och så vidare. Steg-värdet bestämmer hur räknaren ökas. Observera att det övre loop-värdet (1000) inte används faktiskt eftersom det högsta värdet av Cnt kommer att vara 999.

Här är ett annat exempel som använder ett stegvärde på 3. Denna procedur fungerar med det aktiva arket och applicerar ljusgrå skuggning till var tredje rad, från rad 1 till rad 100.

Sub ShadeEveryThirdRow () Dimma så länge för jag = 1 till 100 steg 3 rader (i). Interiör. Färg = RGB (200, 200, 200) Nästa avslutar jag

Kolla in resultatet av att köra det här makrot.

Använd en slinga för att tillämpa bakgrundsskuggning i rader.

Ett nästa exempel med ett avslutningsförklaring

En för-nästa-loop kan också innehålla en eller flera Exit For-satser inom slingan. När VBA möter detta uttalande avslutas slingan omedelbart.

Följande exempel visar Exit For-satsen. Denna rutin är ett funktionsförfarande som är avsett att användas i en arbetsbladformel.Funktionen accepterar ett argument (en variabel som heter Str) och returnerar tecknen till vänster om den första siffran. Om argumentet exempelvis är "KBR98Z", returnerar funktionen "KBR. "

Funktion TextPart (Str) Mått jag så länge TextPart =" "För i = 1 Till Len (Str) Om IsNumeric (Mid (Str, I, 1)) Avsluta För El TextPart = TextPart & Mid (Str, I, 1) Avsluta om Nästa avslutar funktionen

För-Nästa-loopen börjar med 1 och slutar med numret som representerar antalet tecken i strängen. Koden använder VBA: s Mid-funktion för att extrahera ett enda tecken i slingan. Om ett numeriskt tecken hittas utförs Exit för-satsen och slingan slutar för tidigt.

Om tecknet inte är numeriskt bifogas det till det returnerade värdet (vilket är detsamma som funktionens namn). Den enda gången slingan kommer att undersöka varje tecken är om strängen passerade eftersom argumentet inte innehåller några numeriska tecken.

Ett kapslade nästa exempel

Du kan ha ett antal uttalanden i loop och nest För-Next-loopar i andra For-Next-loopar.

Följande exempel använder en kapslad För-Nästa-slinga för att infoga slumptal i ett cellområde med 12 rad-för-5-kolumner. Observera att rutinen exekverar inre slingan (slingan med radräknaren) en gång för varje iteration av yttre slingan (slingan med Col-räknaren). Med andra ord exekverar rutinen Cells (Row, Col) = Rnd-utgåvan 60 gånger.

Dessa celler fylldes med användning av en kapslad For-Next-loop.
Sub FillRange () Dim Col så lång dimma rad så länge för Col = 1 till 5 för rad = 1 till 12 celler (rad, kol) = Rnd nästa rad Nästa Col End Sub

Nästa exempel använder nestad För -Next loopar för att initiera en tredimensionell array med värdet 100. Denna rutin utför utredningen mitt i alla loopar (uppdragsuppsättningen) 1 000 gånger (10 * 10 * 10), varje gång med en annan kombination av värdena för i, j och k:

Sub NestedLoops () Dim MyArray (10, 10, 10) Mått i så länge Mått j Så länge Mått k Så länge för i = 1 till 10 För j = 1 till 10 För k = 1 till 10 MyArray (jag, j, k) = 100 Nästa k Nästa j Nästa jag 'Andra uttalanden gå här Sluta del

Här är ett sista exempel som använder inbädda For-Next-loopar med ett Step-värde. Denna procedur skapar en kontrollpanel genom att ändra bakgrundsfärgen på växlande celler.

Använda slingor för att skapa ett rutmönster.

Radräknaren slingrar från 1 till 8. En If-Then-konstruktion bestämmer vilken kapslad för-nästa-struktur som ska användas. För ojämntalade rader börjar Col-räknaren med 2. För jämntalade rader börjar Col-räknaren med 1. Båda looparna använder ett stegvärde av 2, så alternativa celler påverkas. Två ytterligare påståenden gör cellerna kvadratiska (precis som en riktig kontrollpanel).

Sub MakeCheckerboard () Dim R så länge, C så länge för R = 1 till 8 Om WorksheetFunction. IsOdd (R) Then For C = 2 till 8 Step 2 Cells (R, C). Interiör. Färg = 255 Nästa C För C = 1 till 8 Steg 2 celler (R, C). Interiör. Färg = 255 Nästa C-avslutning om nästa R-rader ("1: 8").RowHeight = 35 kolumner ("A: H"). ColumnWidth = 6. 5 End Sub
Hur man använder de kommande looparna i Excel 2016 VBA - dummies

Redaktörens val

Vad är en Java-karta? - dummies

Vad är en Java-karta? - dummies

Arrays och specialiserade listor gör det möjligt att utföra en fantastisk uppsättning uppgifter med Java. Det finns dock situationer där en Java-applikation behöver något som är mer relaterat till en databas, utan att egentligen ha allt databasbagage (som att behöva köpa en separat applikation). Till exempel kanske du vill kunna ...

Några få saker om Java Math - dummies

Några få saker om Java Math - dummies

Tro det eller inte, datorer - även de mest kraftfulla - Ha vissa begränsningar när det gäller att utföra matematiska beräkningar. Dessa begränsningar är vanligtvis obetydliga, men ibland slår de sig och biter på dig. Här är de saker du behöver se upp för när du gör matte i Java. Helhetsflöde Det grundläggande problemet ...

Vad är recursion i Java Programmering? - dummies

Vad är recursion i Java Programmering? - dummies

Rekursion är en grundläggande programmeringsteknik som du kan använda i Java, där en metod kallar sig för att lösa ett problem. En metod som använder denna teknik är rekursiv. Många programmeringsproblem kan lösas endast genom rekursion, och vissa problem som kan lösas med andra tekniker löses bättre genom rekursion. En av ...

Redaktörens val

4 Måste-inkludera i din blogg sidobardesign - dummies

4 Måste-inkludera i din blogg sidobardesign - dummies

Din bloggens sidofält är viktig fastighet som bör innehålla de element du vill ha mest. När du utformar din blogg sidofält kan du dra från en nästan oändlig lista över sidospårelement. Genom att välja noggrant vad som ska inkluderas (och vad som inte ska inkluderas) kan du ställa in din blogg från andra.

5 Användbara Wordpress Plugins - dummies

5 Användbara Wordpress Plugins - dummies

Om du bloggar på en självhävd plattform med WordPress-programvara, är det dags att anpassa din blogg med plug-ins - programvara som kan "anslutas" till din befintliga WordPress bloggprogramvara. Plug-ins gör det möjligt för dig att göra allt från funktionsbildspel i dina blogginlägg för att ansluta sociala medier till din webbplats. Här är fem användbara ...

7 Sätt att erövra Writer's Block som en Blogger - dummies

7 Sätt att erövra Writer's Block som en Blogger - dummies

Varje bloggare möter författarens block i ett tid eller annan. Om du är den typ av bloggare som sköter innehåll varje dag, kan författarens block vara stäverande. Kan du inte ta en paus för att få ditt skrivande mojo tillbaka? Prova en (eller flera) av dessa sju sätt att slå författarens block för att få dig tillbaka ...

Redaktörens val

10 Stora elektronikkomponentkällor - dummies

10 Stora elektronikkomponentkällor - dummies

Letar du efter några bra källor till dina elektroniska delar? Denna lista ger dig några fleråriga favoriter, både inom och utanför Nordamerika. Denna lista är inte uttömmande. Du hittar bokstavligen tusentals specialutbud för ny och begagnad elektronik. Plus, Amazon och eBay ger virtuella marknadsplatser för alla sorters säljare - ...

Elektronik Basics: Resistance - dummies

Elektronik Basics: Resistance - dummies

I elektronikvärlden är motståndet inte meningslöst. Faktum är att motstånd kan vara mycket användbart. Utan motstånd skulle elektronik inte vara möjligt. Elektronik handlar om att manipulera strömmen av ström, och ett av de mest grundläggande sätten att manipulera strömmen är att minska det genom resistans. Utan motstånd strömmar strömmen oreglerad och där ...

Digital elektronik: Så här installerar du BASIC Stamp Editor och Anslut till Stämpeldummorna

Digital elektronik: Så här installerar du BASIC Stamp Editor och Anslut till Stämpeldummorna

För att berätta för BASIC Stamp vad du vill göra i ditt digitala elektronikprojekt måste du programmera det. BASIC Stamp Windows Editor är den programvara som du använder på din dator för att skapa program som kan laddas ner till en BASIC Stamp-mikrokontroller. Denna programvara är tillgänglig gratis från Parallax webbplats. ...