dongeng dibawah ini dibaca dengan cermat sambil melihat keadaan aslinya
(soalnya cuma sambil lihat dari gdocs, kalau ada cell yang di-merge gak
kelihatan).
1. dari sheet ke-2 (apapun namanya)
>> data hanya akan terisi max 6 baris
>> 6 baris itu akan unique di kolom bernama PV.No. (pakai object Excel
Table, jadi pasti header hanya 1 baris)
>> record mulai dari baris 4 (asumsinya, sesuaikan kalau ternyata ada
baris yang di-merge)
>> kolom PV.No. ada di kolom G (asumsinya, sesuaikan kalau ternyata
ada kolom yang di-merge
>> jadi range anchor ada di kolom H baris 4 (H4)
2. Menyiapkan isian combobox item
>> Tulis 6 item tersebut di kolom PV No. (berarti pada range G4:G9)
>> beri nama range bernama _myItem_ dengan cara klik kanan -> Name a
range
3. Menyiapkan isian combo
>> Copy H3 sampai Q3 (kolom-kolom 01 sampai 10 dalam excel table)
>> ke sheet pertama
>> klik kanan cell AA2 -> paste special -> values -> transpose -> OK
>> klik AA1 dan tulis Lokasi lalu ENTER
>> blok AA2 sampai AA11 dan beri nama range dengan nama _myLokasi_
4. ke VBE (tekan ALT F11)
>> buat userform baru, misal diberi nama frmCoba
>> buat 2 combobox dalam userform
>> klik Combobox pertama
-> isi properti RowSource dengan _myItem_
-> isi properti (Name) dengan cboItem
>> klik Combobox kedua
-> isi properti RowSource dengan _myLokasi_
-> isi properti (Name) dengan cboLokasi
>> lihat frame ProjectExplorer -> double click object sheet dalam frame
tersebut yang isinya ada excel object table
-> lihat properti (Name)
-> ganti namanya dengan shtMyTarget
>> double click userform bernama frmCoba
>> buat sebuah tombol (commandbutton)
-> properti (Name) diganti menjadi cmdSimpan
-> properti Caption diganti menjadi Simpan
>> buat sebuah textbox
-> properti (Name) diganti menjadi txtNilai
5. Isi script di cmdSimpan
>> double click tombol Simpan yang telah terbuat
>> copas script berikut :
if cboItem.listindex=-1 then
exit sub
elseif cbolokasi.listindex=-1 then
exit sub
endif
shtMyTarget.range("H4").offset( cboitem.listindex ,
cbolokasi.listindex ).value = txtNilai.text
6. lihat UserForm yang ada, tekan tombol X dalam userform lalu tekan F5
-> pilih sebuah item dari combobox pertama (cboItem)
-> pilih sebuah item dari combobox kedua (cboLokasi)
-> isi text box dengan 12345
-> tekan tombol Simpan
-> tekan tombol X yang ada di userform
7. kembali ke worksheet (tekan ALT F11)
8. lihat isi tabel yang ada di sheet ke-2 yang ada object Excel Table-nya
Peringatan!!!
1. Step di atas dibentuk dengan keadaan sheet yang tampak seperti ini :
[image: Inline image 1]
Yang dianggap kolom NO ada di kolom A dan setiap kolom dikanannya akan naik
menjadi B,C,dst. Jika ternyata ada yang di-merge kolom, maka sesuaikan
cerita diatas agar kolomnya sesuai. Idealnya, data dasar tidak berisi cell
yang di-merge. Kalau ada, berarti sudah mulai ndak ideal.
Baris dihitung dari baris bertuliskan Delivery sebagai baris 1 dan setiap
text berikutnya adalah baris baru yang menaik (2,3,4,dst). Jika ada baris
yang di-merge, maka sesuaikan cerita diatas.
Range anchor dalam script adalah H4, yaitu kolom 01 pada record pertama.
G4:G9 harus sudah diisi lebih dulu jika memang unique, karena item di G4:G9
inilah yang akan menjadi isi combobox pertama (cboItem).
2. jika ada masalah, lampirkan hasil ujicoba step diatas (persis)
Wassalam,
Kid.
2013/5/29 achmad adi <dido...@ymail.com>
> **
>
>
> mohon masukan nya,,mr kid
>
>
> ------------------------------
> *Dari:* achmad adi <dido...@ymail.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Selasa, 28 Mei 2013 16:37
> *Judul:* [belajar-excel] input edit simpan sesuai cell
>
>
> dear mr kid,,
> ini lanjutan dari masalah saya sebelumnya,,,
> agar lebih jelasnya saya lampirkan att yang abru,,,
> sebelumnya banyak terimakasih ,,,,
>
>
>
>
<<penampakan.gif>>
