Top-Ten-Excel-VBA-Kontrollstrukturen

Es folgt eine Liste der zehn am häufigsten Excel-VBA-Programmierung Kontrollstrukturen verwendet. Inbegriffen ist ein einfaches Beispiel für jede Steuerstruktur und eine kurze Beschreibung, wenn Sie diese Struktur verwenden würde.

Fürs nächste

Nützlich für die durch eine Reihe Looping.

ArraySum = 0Für i = 1 bis 10ArraySum = ArraySum + MyArray (i) Next i

For Each - Weiter

Nützlich für die durch eine Sammlung oder einen Bereich von Zellen Looping.

SelectionSum = 0Für Jede Zelle In SelectionselectionSum = SelectionSum + cell.ValueNext Zelle

Do - Loop Until

Schleife, bis eine Bedingung erfüllt ist.

Row = 0DoRow = Row + 1Legen, bis die Zellen (Row, 1) .Value = "" MsgBox "Erste leere Zelle ist in Row" Reihe

Do While - Schleife

Schleife, solange eine Bedingung erfüllt ist.

Row = 1Do während Zellen (Row, 1) lt;> "" Row = Row + 1LoopMsgBox "Erste leere Zelle ist in Row" Reihe

Wenn, dann

Tun Sie etwas, wenn eine Bedingung erfüllt ist. Geschrieben als eine einzige Aussage.

Wenn x = 1 Dann y = 1

Wenn - Dann - End If

Tun Sie etwas, wenn eine Bedingung erfüllt ist. Können mehrere Anweisungen verwenden.

Wenn x = 1 Theny = 1z = 1End Wenn

Wenn - Dann - Else

Tun Sie etwas, wenn eine Bedingung ist TRUE- anders, etwas anderes tun. Geschrieben als eine einzige Aussage.

Wenn x = 1 Dann y = 1 Else y = 0

Wenn - Dann - andere - End If

Tun Sie etwas, wenn eine Bedingung ist TRUE- anders, etwas anderes tun. Können mehrere Anweisungen verwenden.

Wenn x = 1 Theny = 1Z = 1Elsey = 0z = 0End Wenn

Select Case

Führen Sie einen von mehreren Dingen, abhängig von einer Bedingung.

Select Case xCase 1J = 1Z = 1Case Ist> 1J = 2Z = 2Case Elsey = 0z = 0End Select

Gehe zu

Wechseln zu einer markierten Anweisung. Dies ist vor allem für die Fehlerbehandlung verwendet.

On Error GoTo Oops '[mehr Code geht hier] Verlassen SubOops: MsgBox "Ein Fehler ist aufgetreten"