baru di test gitu aja....
Lha ini coding yang lebh ngawurr..
silaken diawurr...
Module UserForm
Private Sub CMDCLS_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
TextBox6.Value = Format(TextBox1.Value * 5000, "#,##0")
Summing
End Sub
Private Sub TextBox2_Change()
TextBox7.Value = Format(TextBox2.Value * 5000, "#,##0")
Summing
End Sub
Private Sub TextBox3_Change()
TextBox8.Value = Format(TextBox3.Value * 5000, "#,##0")
Summing
End Sub
Private Sub TextBox4_Change()
TextBox9.Value = Format(TextBox4.Value * 6000, "#,##0")
Summing
End Sub
Private Sub TextBox5_Change()
TextBox10.Value = Format(TextBox5.Value * 7000, "#,##0")
Summing
End Sub
Private Sub Summing()
TextBox11.Value = Format(Val(TextBox6.Value) + Val(TextBox7.Value) + _
Val(TextBox8.Value) + Val(TextBox9.Value) + _
Val(TextBox10.Value), "#.##0")
End Sub
Semprull Ki!!
*
*
*
*
2012/7/9 Mohammad Syafii <[email protected]>
> **
>
> sorry gan.....
> setelah saya coba cara dari ki semprul hasilnya masih sedikit ngawur
> hasil penjumlahannya bukan di jumlahkan tapi ditambahkan di belakangnya
>
> isi ku lampirkan file-nya
> tolong gan solusinya
>
>
