==1==. diasumsikan textbox berada di sheet1 bernama TextBox1 textbox berada di sheet2 bernama TextBox1 demikian juga textbox (yg akan dipakai untuk mengajukan KRITERIA PENCARIAN) di sheet LAIN, tetap bernama TextBox1 tabel berisi data HANYA juga berada di sheet1 misal D5:J1000 Pencarian hanya akan menunjukkan MATCHED Data yg pertamakali ditemui Jika ada data berikutnya yg ternyata memenuhi kriteria, tidak dicari.
Cara berikut ini, anda dapat mengajukan Kriteria pencarian melalui textbox yg
berada di sheet mana saja (asal textboxnya bernama TextBox1)
prosedur sub ditulis di module umum (module level aplikasi)
Sub cari()
Dim datRng As Range, x As Range
Dim Kriteria
Set datRng = Sheets("Sheet1").UsedRange
Kriteria = ActiveSheet.TextBox1.Value
For Each x In datRng
If CStr(x) = Kriteria Then
datRng.Parent.Activate
x.Select
Exit For
End If
Next
End Sub
==2==
sama seperti cara 1 tetapi variable DatRng di-assigned dengan
object range (berisi data) yg berada di sheet2
==3==
Kasusnya ndakjelas..
(a)
UserForm sebaiknya digunakan sbg KANVAS untuk menggambar Controls LAIN
(misal combobox, textbox-, listbox dsb) lalu melalui controls tsb kita bermain
main dengan data. karena controls yg siti sebut itu punya property bernama
VALUE.
----- "sehingga apabila userform tersebut diisi data maka "
Dengan pertanyaan itu ..
Apakah anda menginginkan sesuatu dituliskan di USERFORnya langsung ??
Pada wajah UserForm tidak dapat ditulisi data, yg bisa ditulisi bagian
CAPTIONnya
(yg akan tampak sebagai "Title" pada Userform tsb)
Bisa pula kita meyimmpan data di Userform pada property TAG nya (tetapi tidak
secara visual kelihatan oleh user)
(b)
kata kata anda "data tabel sheet 1 akan merujuk pada data. sheet 2"
juga sulit dibayangkan apa maksudnya / apa yg ingin dihasilkan.
Sebaiknya anda mengajukan kasus dengan contoh data yg NYATA
dan dilampirkan sebagai workbook, jika lebihbesar d/p 250KB harap dikompres
dulu..
Supaya para calon penanggap tidak perlu "kerjabakti dulu" membuat contoh data
(dan belum tentu cocok dengan maksud anda..)
==4==
Fungsi HLOOKUP dan VLOOKUP
cara menuliskan (sintaks), dan contoh penggunaannya dapat anda jumpai di
HELP excel yg ada punyai
(klik menu insert > function, pilih nama fungsi, pada dialog Function
Arguments,
klik link "Help on this function"
Anda juga dapat mendownload pelajaran dasar excel di milis ini
http://tech.groups.yahoo.com/group/belajar-excel/files/
atau kita tunggu ada teman-teman kita dimilis ini yg akan memberi penjelasan
fungsi² yg termasuk kategory "Pembacan Tabel" ini
saran:
- hendaknya bertanya ke milis : 1 topik satu posting / jangan borongan.
tiap topik diberi subject yg specifik topik tsb (agar anak cucu kita nanti
dapat mencari topik di milis ini menjadi gampang dan ketemu yg dicari)
- jika kita sering bekerja dengan excel, sebaiknya kita punya textbook
standar pengoperasian excel.
--------------------------------------------------------------------------------
----- Original Message -----
From: Arista Syahdana
To: [email protected]
Sent: Friday, February 26, 2010 8:35 PM
Subject: [belajar-excel] Menemukan data
Dear, Moderator. Saya ingin tanya tentang VBA excel.
1.Saya ingin mencari data dari sebuah tabel dengan melalui textbox. Misalnya
pada textbox1 saya masukkan Ana. Maka pada tabel akan aktif cell yang mempunyai
value Ana.
2. Jika saya ingin melakukan hal diatas tapi dari sheet yang berbeda bagaiman
caranya? Misalnya saya sedang berada di sheet 1 sedangkan tabel yang dituju
pada sheet 2.
3. Saya huga ingin menggunakan user form di sheet 1 sehingga apabila userform
tersebut diisi data maka data tabel sheet 1 akan merujuk pada data. sheet 2
4 Bagaimanakah penggunan fungsi Vlookup dan HLookup. Mohon beri contoh.
Terima kasih
<<function wizzard.GIF>>
