wa'alaikumussalam wr wb Hai Prazt,
Textbox yang diproses dalam penjumlahan bisa jadi berisi nullstring, jadi sebaiknya dipaksa berisi suatu nilai yang tidak mempengaruhi nilai asli atau hasil proses. Misalnya menambahkan angka 0 di depan isi setiap textbox yang diproses. Contoh : cdbl( 0 & txtNilai1.text ) Wassalamu'laikum wr wb Kid On Sat, Oct 1, 2016 at 12:04 PM, [email protected] [belajar-excel] < [email protected]> wrote: > > > 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 <https://go.microsoft.com/fwlink/?LinkId=550986> for > Windows 10 > > > > >
