\VBA lyhyesti
| Wiki Markup |
|---|
VBA on Microsoftin kieli Office sovellusten automatisointiin. Lyhyesti sanottuna VBA:lla voi tehdä lomakkeita, jotka sisältävät eräänlaista Basic-koodia. Koodilla on helppo viitata soluihin ja koodia voi tuottaa nauhoittamalla manuaalisia toimintoja Office ovelluksissa. Täältä esimerkiksi löytyy lisää apuja \[http://www.excel-vba.com/excel-vba-solutions-beginners.htm\] |
...
| 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) / 100 Else Cells(Laskuri, 12) = 0 End If Next Laskuri End Sub |