...
| 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()
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 * Korkpros.Value / 100
Else
Cells(Laskuri, 12) = 0
End If
Next Laskuri
End Sub
|