hai Zuhdi,
1. coba siapkan prosedur pada sebuah module untuk melakukan hapus data,
isinya adalah txt_pada_form.Text = vbNullString, yang merujuk ke
masing-masing textbox pada user form
2. pada text box nomer diisi dengan event change
- langkah pertama adalah melakukan pemeriksaan apakah yang diinput ke
dalam text box tersebut data berupa angka atau bukan, jika inputan bukan
berupa angka maka panggil prosedur yang sudah dibuat pada nomor 1 di atas
lalu keluar dari prosedur yang ada, scriptnya kira2 akan berbunyi
- if not isnumeric(txtno.text) then
- nama_prosedur_nomer_1
- exit sub
- selain itu berarti inputan pada text box nomer adalah berupa angka,
simpan nilai txtno ke dalam sebuah variabel untuk selanjutnya digunakan
mencari data yang sesuai
- untuk itu diperlukan sebuah variabel untuk menyimpan nilai
txtno, sebuah variabel bertipe range untuk menyimpan lokasi
pencarian, dan
variable bertipe range untuk menyimpan range data
- dim variabel_nomer as string, dim variabel_data as range, dim
variabel_pencarian as range
- simpan nilai txtno ke dalam variabel_nomer
- variabel_nomer = form.txtno.text
- set lokasi range data pencarian di sheet 1 mulai cel A5 dan
semua area di sekelilingnya, lalu dipersempit menjadi hanya 1 kolom
- set range_data =
sheets("sheet1").range("a5").currentregion.resize(,1)
- cari datanya, set variabel_pencarian = range_pencarian.find(
variabel_nomer , lookat:= xlwhole)
- setelah itu lakukan pengecekan apakah pencarian data menemukan data
yang sama atau tidak, jika pencarian data tidak menemukan data
maka panggil
prosedur hapus data pada nomer 1 di atas lalu keluar dari prosedur
- if variabel_pencarian is nothing then
- prosedur_hapus_data
- exit sub
- tetapi jika pencarian data berhasil menemukan data yang sama, maka
simpan nomer baris data ke dalam sebuah variabel, nilai baris ini akan
digunakan untuk menampilkan data ke masing-masing tetxt box, untuk ini
diperlukan deklarasi variabel bertipe long
- dim variabel_nomer_baris as long
- setelah nomer baris data sudah ditemukan, saatnya memasukann nilai
data ke dalam setiap text box
- scriptnya kira-kira akan berbunyi; text_box_yang ini =
sheets("nama-sheetnya").cells(nomer_baris , nomer_kolom).value
- ulangi script tersebut untuk setiap text box yang ada
>> tombol Prev diisi dengan script textno.text = txtno.text - 1
>> tombol Next diisi dengan script txtno.tetxt = txtno.text + 1
Semoga dapat dipahami.
Wassalam,
-Miss Jan Raisin-
2014-03-10 12:36 GMT+07:00 <[email protected]>:
>
>
> Dear Master Excel,
> Saya sudah buat contoh form input di worksheet, dan bagaimana supaya bisa
> saya aplikasikan lewat userform, berikut contoh attachment-nya.
> terima kasih
>
> Salam
> Zuhdi
>
>
