وَعَلَيْكُمُ لسَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
script yang diubah adalah yang berwarna biru
sKey = TextBox1.Text
TextBox2.Text = vbNullString
TextBox3.Text = vbNullString
if len(sKey) < 4 then
exit sub
end if
Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
If Not rgFind Is Nothing Then
TextBox2.Text = rgFind.Offset(, 1).Value
TextBox3.Text = rgFind.Offset(, 2).Value
Else
MsgBox "Data tidak ditemukan", VbOkOnly, "Hasil Pencarian"
End If
وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
-Miss Jan Raisin-
Pada 3 Februari 2014 19.53, <[email protected]> menulis:
>
>
> Assalamu'alaikum Mr.Kid
>
>
> Saya sudah coba seperti yang Mr. Kid sarankan termasuk pada saran Mr. Kid
> yang terdahulu.
>
> Berikut script yang saya tuliskan:
>
>
> if len(skey)<4 then
> msgbox"Data tidak ditemukan..."
> exit sub
> endif
>
> Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
>
>
> Dengan script tersebut saat dalam textbox1 saya isi baru satu huruf saja
> msgbox sudah muncul, kalo tidak salah itu berarti proses sudah berjalan
> sebelum textbox1 terisi 4 huruf.
>
>
> Saya sudah coba dengan memunculkan dari event selanjutnya dan berhasil,
> rasanya kurang sreg aja Mr. Kid. Maunya kan event di textbox1 berjalan saat
> textbox sudah terisi 4 huruf atau huruf ke-4 selesai di ketikkan.
>
>
> Mohon maaf kalo saya ga ngerti-ngerti & bertanya terus.
>
>
>
> Terimaksih.
>
>
> Wassalam
>
> Haris
>
>
> ---In [email protected], <mr.nmkid@...> wrote:
>
> Hai Haris,
>
> 1. Bagaimana formulasi yang harus saya buat agar sistem baru membaca
> setelah data yang saya input penuh 4 karakter.
>
> >> sudah dibahas di email yang lalu kan ya (
> https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/30083
> )
> bunyinya begini :
> 2. nilai data yang dicari pasti lebih dari 3 karakter (ada penulisan teks
> 0 di karakter pertama)
>
> >> diberi kondisi terhadap jumlah karakter inputan yang diletakkan sebelum
> baris berbunyi :
>
> Set rgFind = Range("b:b").Find(sKey, lookat:=xlWhole)
> dengan bunyi script kondisinya adalah :
> if len(skey)<4 then
> exit sub
> endif
>
>
> 2. Bagaimana formulasi yang harus dibuat jika database di file yang
> berdeda.
>
> >> buka workbook yang berbeda itu, lalu ambil nilai dari workbook
> berbeda itu dan disimpan dalam variabel sKey. Setelah itu baru baris-baris
> pemeriksaan seperti nomor 1 lagi. Jangan lupa tutup workbook berbeda
> tersebut setelah tidak digunakan lagi.
> >> script buka workbook lain bisa diperoleh dari record macro (jika suka
> pakai record macro).
> >> methods milik workbook yang digunakan adalah methods open
> dim wbkApp as workbook, wbkLain as workbook
> set wbkapp=thisworkbook
> set wbklain=workbooks.open("nama workbook lain lengkap dengan pathnya")
>
> >> untuk tutup workbook lain menggunakan methods close seperti :
> worksbooks("nama workbooknya").close false 'false berarti tanpa di save
> kalau ada perubahan nilai data
> atau jika workbook berbeda sudah disimpan dalam variabel obejct workbook
> bernama wbkLain seperti script di atas tadi, bisa berupa :
> wbklain.close false
>
>
>
>
> Wassalam,
> Kid.
>
>
