/ / Excel VBA Dacă declarația următoare

Excel VBA Dacă declarația următoare

Dacă declarația următoare | Else Declarație

Folosește În cazul instrucțiunii Then în Excel VBA să execute linii de cod dacă este îndeplinită o anumită condiție.

Dacă declarația următoare

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then result = "pass"

Range("B1").Value = result

Explicație: dacă scorul este mai mare sau egal cu 60, Excel VBA returnează trecerea.

Rezultat când faceți clic pe butonul de comandă de pe foaie:

Excel VBA Dacă declarația următoare

Notă: dacă scorul este mai mic de 60, Excel VBA plasează valoarea rezultatului variabilei goale în celula B1.

Else Declarație

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then
    result = "pass"
Else
    result = "fail"
End If

Range("B1").Value = result

Explicație: dacă scorul este mai mare sau egal cu 60, Excel VBA returnează trecerea, altfel returnările Excel VBA nu reușesc.

Rezultat când faceți clic pe butonul de comandă de pe foaie:

Exemplu Excel VBA Else

Notă: numai dacă aveți o singură linie de cod după După și nici o instrucțiune Else, este permisă plasarea unei linii de cod direct după Apoi și omiterea (omiteți) Sfârșit Dacă (primul exemplu). În caz contrar, porniți o nouă linie după cuvintele "Apoi" și "Alt" și terminați cu "Sfârșit" dacă (al doilea exemplu).

De asemenea, citiți: