Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Comment: Migration of unmigrated content due to installation of a new plugin

...

Esimerkki solujen arvojen luvusta sekä for-silmukasta

Image Added

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