Penjumlahan pada textbox

Penjumlahan pada textbox


Ada komentar yang bertanya tentang Textbox berkaitan dengan penjumlahan
Mas maaf mau tanya & maaf bila pertanyaannya menyimpang dari judul artikel.
Mas gimana cara penjumlahan otomatis antara 2 textboxt atau lebih dan hasilnya akan tampil di textbox lainnya tanpa cmd button. Terima kasih sebelumnya mas



Penjumlahan pada textbox

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
Baris kode macro yang digunakan untuk penjumlahan adalah

Private Sub TextBox2_Change()
TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub

Modul diatas akan berjalan ketika nilai textbox2 dirubah.
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 if
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 ini

Private Sub TextBox2_Change()
if TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
end if
TextBox3.Value = TextBox1.Value + TextBox2.Value
End Sub

Dan modul terakhir ini adalah penjumlahan jika nilai textbox terformat mata uang atau angka desimal

Private Sub TextBox2_Change()
if TextBox1.Value = "" or TextBox2.Value = "" then
Exit Sub
end if
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

Share this: