Misi: merawat makro rekap denda tagihan

Kamu baru bergabung dengan bagian keuangan PT Sinar Nusantara di Balikpapan dan mewarisi buku kerja tagihan.xlsm. Lembar Tagihan berisi nama pelanggan di kolom A, nomor faktur di B, jumlah hari terlambat di C, dan nilai tagihan di D; kolom E diisi denda oleh makro. Persen denda di makro adalah aturan contoh perusahaan ini, bukan aturan umum.

Option Explicit

' Denda keterlambatan tagihan. Ditulis 2024, dirawat bagian keuangan.
Function Denda(ByVal hariTelat As Long, ByVal nilai As Double) As Double
    If hariTelat <= 0 Then
        Denda = 0
    ElseIf hariTelat <= 30 Then
        Denda = nilai * 0.01
    Else
        Denda = nilai * 0.02
    End If
End Function

Sub RekapTagihan()
    Dim ws As Worksheet
    Dim r As Long, akhir As Long
    Dim totalDenda As Double
    On Error GoTo Gagal
    Set ws = ThisWorkbook.Worksheets("Tagihan")
    akhir = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    For r = 2 To akhir
        ws.Cells(r, 5).Value = Denda(ws.Cells(r, 3).Value, ws.Cells(r, 4).Value)
        totalDenda = totalDenda + ws.Cells(r, 5).Value
    Next r
    ws.Range("H1").Value = totalDenda
    Exit Sub
Gagal:
    ws.Range("H2").Value = "Galat " & Err.Number & " di baris " & r
End Sub

Baca makro ini dengan urutan dari pelajaran sebelumnya. Option Explicit dan Dim menunjukkan data yang dipakai. Denda menerima dua argumen ByVal, jadi nilai sel diubah ke Long dan Double saat dikirim; nilai yang tidak bisa diubah memicu galat di baris pemanggil. Perulangan menulis denda tiap baris dan menjumlahkannya. On Error GoTo Gagal mengirim galat apa pun ke label Gagal, dan Exit Sub mencegah kode penanganan berjalan saat tidak ada galat.