Untuk dasar dasar textbox sendiri sudah pernah saya ulas pada artikel "Kontrol Textbox bagian satu" silahkan dibaca baca untuk sekedar saling mengingatkan, jawaban atas pertanyaan diatas tentang penjumlahan dengan textbox.
Langsung saja saya jawab dengan asumsi
- Textbox Hasil # Textbox3
- Kemudian Textbox1 dan Textbox2 merupakan target yang akan dijumlah
Modul VBE untuk menjumlah
Private Sub TextBox2_Change()
TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub
Modul diatas akan berjalan ketika nilai textbox2 dirubah.TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub
Untuk menghindari debug saat Textbox1 dan Textbox2 bernilai blank atau "" maka anda perlu menambahkan sedikit modul dibawah ini
Private Sub TextBox2_Change()
if TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
End Sub
Modul diatas adalah syarat untuk menjalankan modul penjumlahan, syarat
untuk menjalankan penjumlahan adalah Textbox1 dan Textbox2 tidak boleh
bernilai Blank atau "", jadi ketika modul diatas disatukan akan menjadi
seperti iniif TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
End Sub
Private Sub TextBox2_Change()
if TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub
Dan modul terakhir ini adalah penjumlahan jika nilai textbox terformat mata uang atau angka desimalif TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub
Private Sub TextBox2_Change()
if TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
TextBox3.Value = Format(Cdbl(TextBox1.Value) + Cdbl(TextBox2.Value), "#,##0")
End Sub
Mungkin demikian saja jawaban atas pertanyaan diatas Penjumlahan pada textbox, dan semoga bermanfaat
if TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
TextBox3.Value = Format(Cdbl(TextBox1.Value) + Cdbl(TextBox2.Value), "#,##0")
End Sub
Maaf gan mmau tanya...
ReplyDeleteSaya sudah mencoba memakai rumus seperti di atas akan tetapi hasilnya tidak sesuai mungkin bisa di bantu pemecahannya...
Apakah ada yang salah dengan pengaturan lainnya atau bagaimana.
Jika saya jalan kan dengan mengisi
Contoh = textbox1 diisi 10 dan textbox2 di isi 5 maka hasil textbox3 yang seharusnya = 15 akan tetapi hasil yang saya dapat = 105
Mohon pencerahannya..
Terima kasih sebelumnya