Dear BeExceller, Menyambung Scrip yang diberikan Pak Bagus, hasilnya sesuai dengan apa yang saya maksudkan dengan pertanyaan saya pada Studi Kasus. Setelah dituangkan pada Workbook saya ternyata masih mengalami beberapa kendala. Apapun situasi pada Studi Kasus yang saya lampirkan hanya memiliki 2 (dua) TextBox sementara pada workbook saya ada lebih dari 10 (sepuluh) TexBox. Misalnya txtJUMLAH, txtJUMLAH2, txtJUMLAH3, txtJUMLAH4, txtJUMLAH5, txtJUMLAH6, txtJUMLAH7, txtJUMLAH8, txtJUMLAH9, txtJUMLAH10 dan, txtJUMLAH11.
Saya sudah mencuba dengan menggunakan Scrip sbb: Private Sub txtJUMLAH_Change() If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) And IsNumeric(txtJUMLAH3.Text) Then txtTOTAL.Text = txtJUMLAH.Text - txtJUMLAH2.Text- txtJUMLAH3.Text End If End Sub Private Sub txtJUMLAH2_Change() If IsNumeric(txtJUMLAH.Text) And IsNumeric(txtJUMLAH2.Text) And IsNumeric(txtJUMLAH3.Text) Then txtTOTAL.Text = txtJUMLAH.Text - txtJUMLAH2.Text- txtJUMLAH3.Text End If End Sub Tetapi masih Error. Dengan kata lain saya bermaksud menjumlahkan banyak TexBox sekaligus. Mohon bantuan teman-temen BeExceller akan hal tersebut diatas. Sebelum dan sesudahnya saya mengucapkan terima kasih, Regards, Harry Pada Rabu, 13 November 2013 10:05, Harry <[email protected]> menulis: Dear pak Bagus, Terima kasih atas Scrip-nya. It's work. Salam BeExceller. Regards, Harry Pada Rabu, 13 November 2013 6:44, Harry <[email protected]> menulis: 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
