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

Office 365 Grupper - Dummies

Office 365 Grupper - Dummies

Du kan använda Office 365 Grupper, eller helt enkelt grupper, för att snabbt bandet tillsammans med medarbetare till samarbeta utan administrationsansvar som följer med en SharePoint-webbplats. Grupper är inte en del av SharePoint Online. Det är faktiskt en funktion i Exchange Online, men den använder SharePoint Online-funktioner, till exempel OneDrive for Business för att lagra gruppfiler ...

Office 365 Mobil Dokument i molnet - Dummies

Office 365 Mobil Dokument i molnet - Dummies

Varje Office 365-abonnent med en kvalificerad plan kan installera Office mobilappar på upp till fem tabletter och fem smartphones. Kvalificeringsplanerna är: Office for Business Premium, Office 365 Business, Office 365 Pro Plus, Office 365 E3 och Office 365 E5. Kärnan Office-appar finns i Windows, iOS och Android ...

Office Graph och Delve - dummies

Office Graph och Delve - dummies

Office Graph i Office 365 ger en möjlighet för människor att dra nytta av relationer och aktiviteter och göra dem till meningsfulla insikter. De signaler du skickar från e-postkonversationer och möten i Outlook, snabbmeddelanden i Skype for Business, sociala interaktioner på Yammer och dokument i SharePoint Online och OneDrive samlas alla och ...

Redaktörens val

Elektronik Komponenter: Sätt in induktorer till arbete - dummies

Elektronik Komponenter: Sätt in induktorer till arbete - dummies

Om du har undrat vad induktorer används egentligen i elektroniska kretsar i verkligheten, här är några av de vanligaste användningarna för induktorer: Utjämning av spänning i en strömförsörjning: Det sista steget i en typisk strömförsörjningskrets som omvandlar 120 VAC hushållsström till en användbar direkt Nuvarande är ofta en ...

Elektronik Komponenter: Introduktion av mikrokontroller - dummies

Elektronik Komponenter: Introduktion av mikrokontroller - dummies

En mikrokontroller är en komplett dator på en enda elektronisk chip. De kan köpas för $ 50 eller mindre. Liksom alla datorsystem består mikrodatorer av flera grundläggande delsystem: Central Processor (CPU): En CPU utför de instruktioner som tillhandahålls av ett program. CPU kan göra alla nödvändiga åtgärder för ...

Elektronik Komponenter: Motstånd Power Ratings - dummies

Elektronik Komponenter: Motstånd Power Ratings - dummies

Motstånd är som bromsar för ström som strömmar genom en elektronisk krets. Liksom bromsarna i din bil arbetar motstånd genom att använda den elektriska ekvivalenten av friktion till strömningsströmmen. Denna friktion hämmar strömmen av ström genom att absorbera en del av strömens energi och sprida den i form av värme. När du använder en ...

Redaktörens val

Hur man konfigurerar SSH för din webbplats - dummies

Hur man konfigurerar SSH för din webbplats - dummies

Secure shell (SSH) är ett nätverksprotokoll för att tillåta säker datakommunikation. I själva verket är det som en webbhotell bakdörr i ditt system - en som borde förbli låst om du inte behöver använda den. Naturligtvis är exakt hur du konfigurerar SSH olika på alla typer av webbhotell, men som ...

Hur man skapar en ny webbhotell - dummies

Hur man skapar en ny webbhotell - dummies

Du måste skapa din databas inom din webbhotellskontrollpanel och skapa en speciell databasanvändare som har behörighet att komma åt den. När du installerar en webbapplikation eller ett skript som kräver en databas från kontrollpanelen, kommer installationsprogrammet sannolikt att kunna skapa en egen databas och användare. ...

Hur man skapar nya konton på webbhotell med FTP-dummies

Hur man skapar nya konton på webbhotell med FTP-dummies

Du kanske vill att skapa ytterligare konton på en webbhanterad ftp av olika orsaker. Detta möjliggör viss mångsidighet och kontroll för att förbättra din företagsfunktionalitet. Några skäl till att lägga till ett konto är följande: Du vill ge någon annan FTP-åtkomst till din webbplats. Du vill ge någon FTP-åtkomst ...