[belajar-excel] Digest Number 3981

Milis Belajar Microsoft Excel Group

1 Message

Digest #3981

1a

Re: kesalahan penjumlahan mata uang by "Mr. Kid" nmkid.family@ymail.com

Message

1a

Re: kesalahan penjumlahan mata uang

Sun Oct 2, 2016 2:07 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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, praztmath@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> 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
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use