Convert Zero to Chart

          Conver Zero to chart

Materi kali ini adalah bagaimana mengubah nilai 0 Atau kosong Menjadi karakter
Misalnya menjadi stip, garis atau lainnya
Caranya buatlah table seperti gambar diatas
Pastekan kode berikut pada sebuagh modul:
Yang sebelumnya kita sudah membuat nama range misalnya myTabel
Yang akan menyesuaikan dengan kode macro yg ada di modul

Sub ResetValuesToZero()
    For Each n In Worksheets("Sheet2").Range("myTabel")
        If n.Value < 1 Then
            n.Value = "-"
        End If
    Next n
End Sub

Keterangan :
Karakter dapat diganti sesuai keperluan nya pada kode valuenya
Yakni :

            n.Value = "-"
            n.Value = "@"
            n.Value = "-,-"
            n.Value = "…"
            n.Value = "…?"

Selesai
Semoga bermanfaat
Dapatkan Tutorial dan Paket Belajar full VBA melalui kontak langsung WA 082 396 256 577

File sampel dapatkan melalui link dibawah ini




 Conver Zero to Chart