Dear Mbak siti mbak saya sudah tes dan berhasil mbak saya bisa login dengan menyembunyikan password dan hasil inputannya pun bisa mencari baris yang kosong, saya ada pertanyaan lanjutan didalam form tersebut saya menggunakan 1. combo box untuk menampilkan data seperti Jenis : Harian, Mingguan, Bulanan, dsb 2. text box untuk data jumlah kerja 3. Text Box untuk Jumlah kerja hasil konversi sebenernya didalam macro ini bisa tidak saya menampilkan hasil perhitungan misalnya begini pas saya memilih jenis Harian maka di kolom text box untuk data jumlah kerja maka di text box jumlah kerja hasil konversi muncul hasil
saat ini saya membuat fungsinya menggunakan rumus if jadi if cmdpembayaran.text="Harian" then txtjml.text=cdbl(txthari)*1 else if cmdpembayaran.text="Mingguan" then txtjml.text=cdbl(txthari)/7 end if end if mbak saya menggunakan rumus ini dan berhasil hanya saja ada kekurangannya pada saat di form text box harinya saya hapus maka dia akan menjadi error itu harusnya bagaimana ya mbak, mohon petunjuknya? regards fandy if cmdjenis= --- On Thu, 10/22/09, siti Vi <[email protected]> wrote: From: siti Vi <[email protected]> Subject: Re: [belajar-excel] Pembuatan Login dan Pengisian Form To: [email protected] Date: Thursday, October 22, 2009, 8:43 AM Mungkin begini: 1 TABEL YG KOKOH dan BAIK Sheet Master Pegawai Judul Kolom tabel di baris 6 dan 7 sebaiknya tidak dibuat MERGED CELL., biarkan sebagai Cells yg SEHAT. (mau dipakai sbg patokan baris kosong yg harus diisi bukan !?) Setelah di-UnMerged, Judul Kolom akan berada di baris 6 Baris data akan dimulai ditulis di baris 7 (PojokKiriAtas Data ada di C7) Ini harus saya katakan di sini karena ada hubungannya dengan point 3. yaitu mencari nilai iRow dan TxtNo. 2. KARAKTER PASSWORD pada module UserForm LOGIN tambahkan prosedur Private Sub UserForm_Initialize () TXTPASS.PasswordCha r = "*" End Sub 3. INPUT KE TABEL AGAR SELALU MENCARI BARIS BARU pada Module UserForm FRMINPUT (a) pada prosedur UserForm_Initialize : Private Sub UserForm_Initialize () Dim r As Integer, ws As Worksheet, c As Byte, darr() Set ws = Worksheets(" Master Pegawai") txtNo.Value = ws.Cells(Rows. Count, 3).End(xlUp). Row - 6 (b) pada PROSEDUR CmdInput_Click Private Sub CMDINPUT_Click( ) Dim irow As Long, ws As Worksheet Set ws = Worksheets(" Master Pegawai") irow = ws.Cells(Rows. Count, 3).End(xlUp). Offset(1, 0).Row ----- Original Message ----- From: Fandy Rasyid To: belajar-excel@ yahoogroups. com Sent: Thursday, October 22, 2009 08:54PM Subject: [belajar-excel] Pembuatan Login dan Pengisian Form Dear Rekan-rekan perkenalkan nama saya fandy sat ini saya sedang mencoba untuk belajar membuat fungsi perhitungan dengan menggunakan macro yang tersedia di excel, hanya saja ada kendala yang saya hadapi, sebelumnya saya telah membaca penginputan dengan menggunakan form di pembahasan sebelumnya dari bahasan tersebut ingin saya kembangkan untuk pembuatan perhitungan gaji dengan ditambahkan fungsi Login, tetapi di form login ini saya tidak bisa menyembunyikan passwordnya untuk menyemunyikan password itu bagaimana caranya? terus didalam form penginputan saya sudah mengikuti contoh dari pembahasan sebelumnya tetapi malah hasil penginputannya tidak bisa pindah ke row selanjutnya, kira22 salah dimana ya?? mohon bantuannya username dan password = fandy dan 123 Terima kasih fandy (fandy474)
