Inhoudsopgave:
- Voor - Volgende
- voor elke - volgende
- Do - Loop Until
- doe terwijl - loop
- If - Then
- If - Then - End If
- If - Then - Else
- Als - Dan - Anders - Einde Als
- Selecteer zaak
- Ga naar
Video: Find the Top 10 Values with One Excel Formula 2024
Hieronder volgt een lijst van de tien meest gebruikte Excel VBA-programmeerbesturingsstructuren. Inbegrepen is een eenvoudig voorbeeld van elke besturingsstructuur en een korte beschrijving van wanneer u die structuur zou gebruiken.
Voor - Volgende
Handig voor het doorlussen van een array.
ArraySum = 0 Voor i = 1 tot 10 ArraySum = ArraySum + MyArray (i) Volgende i
voor elke - volgende
Handig voor het doorlussen van een collectie of een bereik van cellen.
SelectionSum = 0 voor elke cel in selectieselectiesom = selectiesom + cel. Waarde Volgende cel
Do - Loop Until
Loop totdat aan een voorwaarde is voldaan.
Rij = 0 Do Rij = Rij + 1 Loop tot Cellen (rij, 1). Waarde = "MsgBox" Eerste lege cel staat in rij "& rij
doe terwijl - loop
loop terwijl een voorwaarde waar is.
rij = 1 doe terwijl cellen (rij, 1)" rij = rij + 1 Loop MsgBox "Eerste lege cel staat in rij" & rij
If - Then
Doe iets als een voorwaarde waar is. Geschreven als een enkele verklaring.
Als x = 1 Dan is y = 1
If - Then - End If
Doe iets als een voorwaarde waar is. Kan meerdere verklaringen gebruiken.
Als x = 1 Dan is y = 1 z = 1 Einde If
If - Then - Else
Doe iets als een voorwaarde waar is; anders iets anders doen. Geschreven als een enkele verklaring.
Als x = 1 Dan y = 1 Anders y = 0
Als - Dan - Anders - Einde Als
Doe iets als een voorwaarde waar is; anders iets anders doen. Kan meerdere verklaringen gebruiken.
Als x = 1 Dan is y = 1 Z = 1 Anders y = 0 Z = 0 Einde Als
Selecteer zaak
Doe een of meerdere dingen, afhankelijk van een voorwaarde.
Case selecteren x Case 1 y = 1 Z = 1 Case is> 1 y = 2 Z = 2 Case Else y = 0 Z = 0 End Selecteer
Ga naar
Spring naar een gelabeld statement. Dit wordt meestal gebruikt voor foutafhandeling.
On Error GoToOops '[er komt meer code hier] Subserver verlaten Oops: MsgBox' Er is een fout opgetreden '