[belajar-excel] kesalahan penjumlahan mata uang

[praztm...@gmail.com [belajar-excel]]

Assalamu’alaikum…
Dear para master dan rekan-rekan semua
Saya ingin menjumlahkan data dari beberapa textbox tepatnya ada 8 textbox yang 
akan saya jumlahkan, dan format masing masing textbox adalah format mata uang 
(contoh : 2000 tertulis 2.000), tetapi dalam prosesnya ada debug pada hasil 
penjumlahan tersebut, cekrip sbb (debug ada pada bagian yang ada Highlight 
kuning) ;

Mohon penyelesaiannya rekan-rekan semua..

'hasil perkalian
Private Sub TextBox2_Change()
If TextBox2.Value = "" Or TextBox3.Value = "" Then
TextBox4.Value = ""
Exit Sub
End If
TextBox4.Value = Format(CDbl(TextBox2.Value) * CDbl(TextBox3.Value), "#,##0")
Summing
End Sub

Private Sub TextBox5_Change()
If TextBox5.Value = "" Or TextBox6.Value = "" Then
TextBox7.Value = ""
Exit Sub
End If
TextBox7.Value = Format(CDbl(TextBox5.Value) * CDbl(TextBox6.Value), "#,##0")
Summing
End Sub

Private Sub TextBox8_Change()
If TextBox8.Value = "" Or TextBox9.Value = "" Then
TextBox10.Value = ""
Exit Sub
End If
TextBox10.Value = Format(CDbl(TextBox8.Value) * CDbl(TextBox9.Value), "#,##0")
Summing
End Sub
Private Sub TextBox11_Change()
If TextBox11.Value = "" Or TextBox12.Value = "" Then
TextBox13.Value = ""
Exit Sub
End If
TextBox13.Value = Format(CDbl(TextBox11.Value) * CDbl(TextBox12.Value), "#,##0")
Summing
End Sub

Private Sub TextBox14_Change()
If TextBox14.Value = "" Then
TextBox14.Value = ""
Exit Sub
End If
TextBox14.Value = Format(CDbl(TextBox14.Value), "#,##0")
Summing
End Sub
Private Sub TextBox15_Change()
If TextBox15.Value = "" Then
TextBox15.Value = ""
Exit Sub
End If
TextBox15.Value = Format(CDbl(TextBox15.Value), "#,##0")
Summing
End Sub
Private Sub TextBox25_Change()
If TextBox25.Value = "" Then
TextBox25.Value = ""
Exit Sub
End If
TextBox25.Value = Format(CDbl(TextBox25.Value), "#,##0")
Summing
End Sub
Private Sub TextBox26_Change()
If TextBox26.Value = "" Then
TextBox26.Value = ""
Exit Sub
End If
TextBox26.Value = Format(CDbl(TextBox26.Value), "#,##0")
Summing
End Sub
'menampilkan total
Private Sub CommandButton7_Click()
Unload Me
End Sub

Private Sub Summing()
On Error GoTo abc
TextBox27 = Format(TextBox27 * 1, "#,##0")
Exit Sub
abc:
TextBox27.Value = ""
TextBox27.Value = Format(CDbl(TextBox4.Value) + CDbl(TextBox7.Value) + 
CDbl(TextBox10.Value) + CDbl(TextBox13.Value) + CDbl(TextBox14.Value) + 
Val(TextBox15.Value) + Val(TextBox25.Value) + CDbl(TextBox26.Value), "#,##0")
End Sub

Sent from Mail for Windows 10