Pak Harry;
coba copas scrip berikut pada masing2 userform:
Utk Pertambahan;
Private Sub txtJUMLAH_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) Then
txtTOTAL.Text = txtJUMLAH.Text -- txtJUMLAH2.Text
End If
End Sub
Private Sub txtJUMLAH2_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) Then
txtTOTAL.Text = txtJUMLAH.Text -- txtJUMLAH2.Text
End If
End Sub
Utk Pengurangan;
Private Sub txtJUMLAH_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) Then
txtTOTAL.Text = txtJUMLAH.Text - txtJUMLAH2.Text
End If
End Sub
Private Sub txtJUMLAH2_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) Then
txtTOTAL.Text = txtJUMLAH.Text - txtJUMLAH2.Text
End If
End Sub
Utk Pembagian;
Private Sub txtJUMLAH_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) Then
txtTOTAL.Text = txtJUMLAH.Text / txtJUMLAH2.Text
End If
End Sub
Private Sub txtJUMLAH2_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) Then
txtTOTAL.Text = txtJUMLAH.Text / txtJUMLAH2.Text
End If
End Sub
Wassalam
~ Bagus ~
----- Original Message -----
From: Harry
To: [email protected]
Sent: Wednesday, November 13, 2013 6:44 AM
Subject: Bls: [belajar-excel] Kalkulator UserForm
Dear BeExceller,
Teman-teman BeExceller, mohon informasinya ya mengenai Pertanyaan saya diatas.
Besar harapan saya mendapat solusi dari teman-teman.
Terima kasih sebelum dan sesudahnya.
Regards,
Harry
Pada Senin, 11 November 2013 16:22, Harry <[email protected]> menulis:
Asslm..
Terima kasih Mr. Kid (Moderator) atas informasinya.
Terkait dengan pertanyaan saya tersebut, pada Studi Kasus yang saya lampirkan
terdapat 4 (empat) UserForm yaitu: Perkalian, Pertambahan, Pengurangan dan
Pembagian.
Pada UserForm Perkalian, pada Studi Kasus yang saya sertakan terdapat 3
(tiga) TextBox yaitu : txtJUMLAH.Value, txtNOMINAL.Value & txtTOTAL.Value.
Jika txtJUMLAH.Value kita isi dengan angka 5 dan txtNOMINAL.Value kita isi
dengan angka 5000, maka pada txtTOTAL.Value otomatis akan terisi dengan jumlah
perkalian yaitu 25000 dengan menggunakan Scrip sbb:
Private Sub txtJUMLAH_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtNOMINAL.Text) Then
txtTOTAL.Text = txtJUMLAH.Text * txtNOMINAL.Text
End If
End Sub
Private Sub txtNOMINAL_Change()
If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtNOMINAL.Text) Then
txtTOTAL.Text = txtJUMLAH.Text * txtNOMINAL.Text
End If
End Sub
Pertanyaan saya adalah:
1. Pada UserForm Penambahan, pada Studi Kasus yang saya sertakan terdapat 3
(tiga) TextBox yaitu : txtJUMLAH.Value, txtJUMLAH2.Value & txtTOTAL.Value.
Pada UserForm Penambahan, bagaimana Scripnya Jika txtJUMLAH.Value kita isi
dengan angka 25000 dan txtJUMLAH2.Value kita isi dengan angka 25000, maka pada
txtTOTAL.Value otomatis akan terisi dengan jumlah penambahan yaitu 50000...???
2. Pada UserForm Pengurangan, pada Studi Kasus yang saya sertakan terdapat
3 (tiga) TextBox yaitu : txtJUMLAH.Value, txtJUMLAH2.Value & txtTOTAL.Value.
Pada UserForm Pengurangan, bagaimana Scripnya Jika txtJUMLAH.Value kita isi
dengan angka 50000 dan txtJUMLAH2.Value kita isi dengan angka 25000, maka pada
txtTOTAL.Value otomatis akan terisi dengan jumlah penambahan yaitu 25000...???
3. Pada UserForm Pembagian, pada Studi Kasus yang saya sertakan terdapat 3
(tiga) TextBox yaitu : txtJUMLAH.Value, txtJUMLAH2.Value & txtTOTAL.Value.
Pada UserForm Pembagian, bagaimana Scripnya Jika txtJUMLAH.Value kita isi
dengan angka 25000 dan txtJUMLAH2.Value kita isi dengan angka 10, maka pada
txtTOTAL.Value otomatis akan terisi dengan jumlah penambahan yaitu 2500...???
Mohon berkenan teman-teman BeExceller dapat memberikan jawaban akan
pertanyaan saya tersebut. Sebelum dan sesudahnya saya ucapkan terima kasih.
Wassalam,
Harry
N/B:
Studi Kasus terlampir
Pada Senin, 11 November 2013 12:11, Mr. Kid <[email protected]> menulis:
Hai Harry,
Thread ini sepertinya berpotensi berhari-hari ndak ada yang reply.
Mungkin BeExceller diberi penjelasan tambahan tentang target dan alur yang
diinginkan.
:)
Wassalam,
Kid.
2013/11/10 Harry <[email protected]>
Dear BeExceller,
Apa kabar teman-teman BeExceller,mudah-mudahan semuanya selalu sehat wal
afiat.
Sudah sekitar 8 bulan saya tidak nimbrung belajar Excel dan VB dari
teman-teman BeExceller sekalian.
Kali ini saya bermaksud menanyakan bagaimana caranya membuat Kalkulator
pada UserForm sebagaimana Studi Kasus terlampir.
Besar harapan kiranya teman-teman BeExceller dapat memberikan pencerahan
terkait Studi Kasus terlampir.
Terima kasih atas berkenan pencerahannya.
Wassalam,
Harry
