Misi: makro komisi sales

CV Cahaya Abadi di Yogyakarta menghitung komisi sales dengan makro. Lembar aktifnya berisi nama di kolom A, wilayah di kolom B, dan omzet bulan ini di kolom C; komisi ditulis makro ke kolom D yang masih kosong. Baris 1 berisi judul kolom. Persen komisi di bawah adalah aturan contoh perusahaan ini.

Option Explicit

Sub HitungKomisi()
    Dim r As Long
    Dim omzet As Double
    Dim persen As Double
    Dim jumlahNol As Long
    r = 2
    Do While Cells(r, 1).Value <> ""
        omzet = Cells(r, 3).Value
        Select Case omzet
            Case Is >= 100000000
                persen = 0.04
            Case Is >= 50000000
                persen = 0.025
            Case Else
                persen = 0
                jumlahNol = jumlahNol + 1
        End Select
        Cells(r, 4).Value = omzet * persen
        r = r + 1
    Loop
    Range("F1").Value = "Tanpa komisi: " & jumlahNol
End Sub

Telusuri makro ini dengan tabel kecil di kertas: satu baris per putaran, berisi r, omzet, Case yang dijalankan, persen, isi kolom D, dan jumlahNol. Perhatikan bahwa jumlahNol tidak pernah diberi nilai awal secara tertulis; ia bertipe Long sehingga mulai dari 0. Perhatikan juga syarat Do While: perulangan berhenti di baris pertama yang kolom A-nya kosong, bukan di baris terakhir yang berisi data.