penjumlahan excel vba 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

Modul VBE untuk menjumlah 

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 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
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
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