Selasa, 12 November 2013

Re: [belajar-excel] Kalkulator UserForm



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
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 <hariansyahptk@yahoo.com> 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 <mr.nmkid@gmail.com> 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 <hariansyahptk@yahoo.com>
 
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







__._,_.___


=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___
Diposting oleh di

1 komentar:

  1. Unknown13 November 2018 pukul 23.16

    mohon pencerahan

    saya membuat sebuah form menu utama dengan nama file menuutama
    dalam menu utama terdapat 5 tombol dengan fungsi masing-masing tombol akan saya lingkan dengan form yang berada dalam file berbeda, seperti berikut :

    tombol 1 menuju file 1
    tombol 2 menuju file 2
    tombol 3 menuju file 3
    tombpl 4 menuju file 4
    tombol 5 menuju file 5

    masing masing file memiliki form input data

    saya bingung membuat menu utama bisa terkoneksi dengan file-file yang dimaksud menggunakan vba excel
    mohon bantuannya

    terimakasih sebelumnya

    BalasHapus

Langganan: Posting Komentar (Atom)