Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Esimerkki solujen arvojen luvusta sekä for-silmukasta Image Added

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