Assalamualaikum Wr. Wb.
Untuk No 1.
Coba diperhatikan baris yang di debug
misal :
CDbl(TextBox41.Value)
Ketika textbox41 masih nullstring, maka tidak dapat dikonversi menjadi
bertype double.
Cara 1 adalah dengan menambahkan angka 0 didepannya.
-> bla-bla=cdbl( 0 & textbox41.value )
Cara 2 adalah mengecek lebih dulu isi dari textbox41 dan pastikan bahwa
isinya numerik.
-> if isnumeric(textbox41.value) then
bla-bla=cdbl(textbox41.value)
else
0
end if
Cara 3 adalah penambahan 0 didepan nilai textbox41 kemudian di cek apakah
bernilai numerik.
-> if isnumeric(0 & textbox41.value) then
bla-bla=cdbl(0 & textbox41.value)
end if
Untukl 2.
Buat event change pada checkbox yang PPN itu :
Private Sub CheckBox1_Change()
if checkbox1.value then
textbox30.text="PPN 10%"
else
textbox30.text=vbnullstring
endif
End Sub
Wassalamualaikum Wr. Wb.
Kid.
2011/11/1 Asror Al-Aliif's <[email protected]>
> **
>
>
> Selamat siang,
>
> Pakar Excel di BeExcel, saya sudah membuat program seperti terlampir, tapi
> setelah di gunakan, ada beberapa yang error,
> 1. Saat textbox5,6,7 belum di isi, muncul error, padahal dirumus saya
> tuliskan msgbox '.....'
> 2. Menambahkan fungsi,
> untuk run program ada di sheet launch programn untuk pertanyaan detail ada
> di sheet pertanyaan,
>
> Mohon bantuannya,
> Terimakasih rekan BeExcel.
>
> Salam
>
> Asror
>
>
>
