Dear Mr. Kid, Terimakasih masukannya, Saya akan pelajari terlebih dhulu, Terimakasih jg untuk BeExcel,
Asror Safety is my responsibility Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! -----Original Message----- From: "Kid Mr." <[email protected]> Sender: [email protected] Date: Tue, 1 Nov 2011 13:39:41 To: <[email protected]> Reply-To: [email protected] Subject: Re: [belajar-excel] Tanya Error 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 > > >
