Ada dua hal dalam kasus ini, yaitu : 1. menampilkan hasil filter ke suatu control 2. mengubah nilai yang ditampilkan dalam suatu control
Untuk nomor 1 bisa dengan listbox, (bisa mencoba meniru dan menyesuaikan yang ada di thread : http://tech.groups.yahoo.com/group/belajar-excel/message/25702) 1. sort data nya sesuai kriteria 2. hitung jumlah record yang sesuai kriteria 3. ubah properti rowsource listbox dengan area data yang baru sebanyak hasil nomor 2 Untuk nomor 2 membutuhkan textbox atau control lain sebagai lokasi pengisian nilai baru dan tombol untuk melakukan update. 1. event change listbox akan membaca nilai yang bisa diubah dan dimasukkan ke setiap control tertentu (manfaatkan listindex milik listbox) 2. event click tombol update berisi proses untuk menulis nilai yang diubah (dari control nilai baru) ke sheet dengan dibantu listindex milik listbox untuk menemukan baris record dalam sheet. Wassalam, Kid. 2013/6/21 sin.ur4t <[email protected]> > ** > > > Yth. Pak MrKid > > Belum maknyuss, Mungkin kodenya msh kurang pas. Tapi lupakan saja lah, sbb > saya sudah 'nggak nafsu lagi sama fitur spreadsheet'. Gara-garanya, Tadi > saya jalan2 ke postingan lama dan ke excel help, konon penggunaan fitur > spreadsheet lebih ditujukan untuk keperluan sharing data tabel antara bbrp > user di Web, agar semua user bisa berinteraksi langsung dengan tabel tsb. > Padahal kebutuhan saya nggak se-ribet itu :D. > > Yang saya inginkan hanya memfilter data tabel di sheet sumbe sesuai > kriteria tertentu, lalu data hasil filter tsb ditampilkan pada control > (tool??) Spreadsheet untuk diedit. Nah data hasil editan tsb kemudian > dikembalikan lagi ke sheet sumber. Nampaknya control spreadsheet kurang > praktis untuk keperluan dimaksud. Mohon komentarnya, Pak MrKid dan > rekan-rekan. Terima kasih sebelumnya. > > Salam > Sinurat > > > --- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote: > > > > Coba ubah bagian yang berbunyi : > > With Spreadsheet1 > > .Range("A4:F4").Resize(lRec).Value = rngData.Value > > .Range("B:B").NumberFormat = "dd MMM yyyy" > > .Range("D:F").NumberFormat = "#,##0" > > .Range("A:F").AutoFit > > End With > > > > menjadi : > > With Spreadsheet1 > > .enableevents=false > > with.activeworkbook.activesheet > > .Range("A4:F4").Resize(lRec).Value = rngData.Value > > .Range("B:B").NumberFormat = "dd MMM yyyy" > > .Range("D:F").NumberFormat = "#,##0" > > .Range("A:F").AutoFit > > end with > > .enableevents=true > > End With > > > > Jadi, object Application dalam Excel setara dengan object nama object > OWC11 > > spreadsheet control > > Perhatian, Object control OWC11 Spreadsheet tidak sama dengan Excel , > > sehingga bisa jadi ada kemampuan Excel yang tidak ada dalam object OWC11 > > Spreadsheet. > > > > Wassalam, > > Kid. > > > > > > > > > > 2013/6/19 Imam Sinurat <sin.ur4t@...> > > > > > ** > > > > > > > > > > Yth. Para pakar dan rekan excelers.. > > > > > > Mohon dibantu bagaimana cara mengedit data terpilih (hasil filter) via > > > spreadsheet control di dalam userform, > > > lalu mengembalikannya ke dalam tabel data asli. Saya pakai OWC versi > 11. > > > > > > Terima kasih sebelumnya. > > > > > > Wassalam > > > Sinurat > > > > > > > > > > > > > >
