Sunday, April 7, 2013

Untuk mengurangi nilai variabel counter, gunakan nilai negatif pada Step. Untuk mengurangi variabel counter, anda harus menyebutkan sebuah nilai akhir yang lebih kecil dari nilai awal. Pada contoh berikut, variabel counter myNum dikurangi 2 pada setiap proses looping. Ketika proses looping selesai, total adalah penjumlahan dari 16, 14, 12, 10, 8, 6, 4, dan 2.
Sub NewTotal()
For myNum = 16 To 2 Step -2
    total = total + myNum
Next myNum
MsgBox "Total adalah " & total
End Sub
Salam