...
| Code Block |
|---|
If (ehto) Then ' toiminto End If If (ehto) Then ' toiminto 1 Else ' muuten ' toiminto 2 End If If (ehtolause1) Then ' toiminto 1 Elseif (ehtolause2) Then ' toiminto 2 Else ' muuten ' toiminto 3 End If Select Case TestiArvo Case Is >= 100 ' toiminto 1 Case Is >= 50 ' toiminto 2 Case Is >= 0 ' toiminto 3 Case Else ' muuten ' toiminto 4 End Select |
...
| Code Block |
|---|
'Yhtä suuri kuin
Luku1 = Luku2
'Pienempi kuin
Luku1 < Luku2
'Suurempi kuin
Luku1 > Luku2
'Pienempi tai yhtä suuri kuin
Luku1 <= Luku2
'Pienempi tai yhtä suuri kuin
Luku1 >= Luku2
'Erisuuri kuin
Luku1 <> Luku2
'Tosi jos molemmat ehdot toteutuvat
ehto1 AND ehto2
'Tosi jos yksikin ehto toteutuu
ehto1 OR ehto2
|
...
| Code Block |
|---|
Do While (ehto)
'toimenpiteet
Loop
For Laskuri = 1 To 10 Step 1
'toimenpiteet
Next Laskuri
|
Esimerkki solujen arvojen luvusta sekä for-silmukasta
| Code Block |
|---|
Private Sub Laske_Click() Korkopros=InputBox("Anna korkoprosentti") For Laskuri = 2 To 10 Step 1 arvo = Cells(Laskuri, 4) Tyyppi = Cells(Laskuri, 2) Erapvm = Cells(Laskuri, 5) If (Erapvm < 0 And Tyyppi = 1) Then Cells(Laskuri, 12) = -Erapvm / 360 * arvo * Val(Korkpros.Value) / 100 Else Cells(Laskuri, 12) = 0 End If Next Laskuri End Sub |