Messages In This Digest (2 Messages)
Messages
- 1a.
-
Re: (Belajar-Excel) Membuat menu Pada Userform
Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com asrorcakep
Sat Nov 5, 2011 3:14 am (PDT)
Selamat sore rekan2 BeExcel smua,
Mohon maaf nee, membuka pertanyaan ini lagi, saya sudah mempelajari ttg membuat menu tsb, tapi saya mentok di ukuran form,
Saya sudah membuat form dengan lebar 480 dan tinggi 500, tapi ketika di run tinggi form berubah, dan tidak sesuai dengan yang sya buat,
Mohon pencerahan,
Terimakasih.
Asror
Safety is my responsibility
Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Wed, 26 Oct 2011 11:29:56
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] (Belajar-Excel) Membuat menu Pada Userform
* Commandbuttonnya di termpatkan di userfrom
* jika button dimanfaatkan untuk memanggil makro yg antara lain bertugas
membuat print-out, didalam perintahnya disertakan perintah
meng *HIDE userform *sebelum cetak dimulai
dan meng UnHIDE UserFOrm setelah cetak selesai
* atau jika Commandbutton (ex ActiveX control) yg di *tempelkan di sheet*
(bukan di userform) bisa di FORMAT /di-set propertiesnya) agar menjadi
NON-PRINTED OBJECT
[image: set to non printed object.PNG]
btw,
ini situs ivan s. moala yg menjelaskan pembuatan dropdwon menu di userform
tsb
penjelasannya tuntas, mungin pak asror akan bisa mempraktekkan setelah
membacanya
http://www.xcelfiles.com/API_ Userform_ MenuMaker. html
- 2a.
-
DTPicker
Posted by: "Harry" hariansyahptk@yahoo.com hariansyahptk
Sat Nov 5, 2011 3:14 am (PDT)
Kepada Moderator Belajar Excel dan teman-teman anggota Belajar Excel,
Terlampir saya sertakan contoh Studi
Kasus sebagai bahan referensi.
Dari contoh studi kasus tersebut
dapat dinyatakan bahwa kolom nama, no telp, penerima file, tujuan pinjam &
petugas arsip harus diisi (sebagaimana contoh rumus dibawah) karena jika tidak
program tersebut tidak bisa menyimpan data yang telah diisi pada sheet
Registrasi P.
'check for a part number
If Trim(Cbonama.Value) = "" Then
Cbonama.SetFocus
MsgBox
"Masukkan nama lengkap anda (User)"
Exit
Sub
End If
'check for a part number
If Trim(txtnotelp.Value) = "" Then
Me.txtnotelp.SetFocus
MsgBox
"Masukkan No. Telp (HP) anda"
Exit
Sub
End If
'check for a part number
If Trim(Me.txtpenerimafile.Value) =
"" Then
Me.txtpenerimafile.SetFocus
MsgBox
"Masukkan nama anda"
Exit
Sub
End If
'check for a part number
If Trim(Me.Cbotujuanpinjam.Value) =
"" Then
Me.Cbotujuanpinjam.SetFocus
MsgBox
"Masukkan tujuan anda meminjam File Arsip"
Exit
Sub
End If
'check for a part number
If Trim(Me.Cbopetugasarsip.Value) =
"" Then
Me.Cbopetugasarsip.SetFocus
MsgBox
"Masukkan nama petugas arsip yang melayani anda"
Exit
Sub
End If
Pertanyaan saya adalah:
1. Bagaimana jika kita ingin
menambahkan perintah Tanggal Kembali harus / wajib dicentang (√), bagaimanakah
cara dan rumusnya…??? Jika tidak program tersebut tidak bisa menyimpan data
yang telah diisi pada sheet Registrasi P.
2. Pada kolom Tanggal Pinjam dan
Tanggal Kembali formatnya adalah bulan/tanggal/tahun yang outputnya (Registrasi
P) adalah tanggal-bulan-tahun. Bagaimana caranya jika ingin menggantinya dengan
format tanggal-bulan-tahun yang outpunya (Registrasi P) juga dengan format
tanggal-bulan-tahun…???
3. Dari contoh rumus dibawah ini
dapat digunakan untuk mencari posisi data buku yang kita inginkan. Bagaimana
cara dan rumusnya jika dimana posisi pointer tersebut berada dapat ditandai
dengan background warna (KUNING / MERAH) agar
lebih mudah mencari dimana posisi pointer tersebut berada…???
Private Sub CommandButton1_Click()
Dim
xCell As Range
Set
xCell = Cells.Find(What:=TextBox1. Text, _
After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not
xCell Is Nothing Then
xCell.Activate
Range("E1") = xCell.Address(0, 0)
Else
Range("E1") = ""
MsgBox "DATA YANG ANDA CARI TIDAK DITEMUKAN. PERIKSA KEMBALI
PENULISANNYA", vbExclamation, "Hasil Pencarian"
End If
End Sub
Private Sub registrasiarsippinjam_Click( )
frmregistrasippinjam.Show
End Sub
Sebelum dan sesudahnya saya
mengucapkan banyak terima kasih.
Regards,
Harry
N/B: Pertanyaan No. 1 & 2 yang
diutamakan.
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar