Hai Ozan, Sepertinya lampiran berisi script yang Anda gunakan akan bermanfaat dalam mencari sumber masalahnya.
Biasanya, hal seperti ini disebabkan karena ada proses yang terus bekerja tanpa henti. Coba diperiksa ulang, proses penambahan data yang dilakukan disertai proses pencegahan bekerjanya suatu event lain atau tidak. Logika sederhananya, ketika sebuah proses bekerja, maka ada pengaturan agar event tertentu tidak bereaksi. Misal, ketika sumber data listbox diubah, maka event change listbox tidak boleh bekerja. Pencegahan event suatu control tidak bisa diatur dengan properti enableevents milik application. Jadi Anda harus membuat variabel penyimpan informasi tentang suatu proses sedang berlangsung atau tidak. Variabel ini ber-scope module agar dapat diakses oleh seluruh prosedur dalam module yang sama. Events yang tidak boleh bekerja ketika suatu proses sedang berlangsung harus segera keluar dari prosedur events tersebut jika variabel menunjukkan adanya proses yang sedang dikerjakan oleh events lain. Kid Sent from my smart enough phone > On Jan 28, 2016, at 12:04, Pauzan Ozan [email protected] [belajar-excel] > <[email protected]> wrote: > > Trmksih mr.kid ats pnjlsnnya Sy sudh mncba ap yg sdh mr.kid jlskn kpda sy > judul heider bsa dtmpilkn stlh sy mnmbhkn nma range untk sumbr dta pd > rowsource. tp stiap sy mlkukn pnmbhn/input dta n mnkan tmbol smpan mka app ms > excel sya akn trhnti/merestart..bgimna solusinya dmna ltak kslhn vba nya sy > mnta tlong dbtulkn. (Jpg error trlpr) Thnk.. Wassalam, Ozan Pada tanggal 26 > Jan 2016 16.34, "'Mr. Kid' [email protected] [belajar-excel]" > <[email protected]> menulis: > > > > Wa'alaikumussalam wr wb > > > Hai Ozan, > > Tentang ActiveX control ListBox ber-header : > 1. ActiveX > control ListBox memiliki properti bernama ColumnHeads. > 2. Nilai untuk > properti ini adalah TRUE (ListBox menampilkan header) atau FALSE [default] > (ListBox tidak menampilkan header). > 3. Properti ColumnHeads hanya > berpasangan dengan properti RowSource (jika ListBox diletakkan dalam > UserForm) atau ListFillRange (jika ListBox diletakkan di dalam worksheet). > > 4. Properti RowSource atau ListFillRange diisi dengan alamat lengkap area > range sumber data yang akan menjadi isi ListBox atau diisi dengan nama range > (nama range dengan scope workbook jika ListBox di dalam UserForm atau berbeda > sheet dengan sumber data) > 5. Area range sumber data untuk RowSource atau > ListFillRange tidak berisi baris header alias hanya record data saja, tetapi > 1 (satu) baris tepat di atas record pertamanya adalah baris header sebanyak 1 > (satu) baris. > > Contoh : > Sebuah ListBox yang ada di sebuah UserForm akan > diisi dengan suatu data yang ada di sheet bernama [Sumber Data] > Area > records ada di range A2:B4 > Header di baris 1, yaitu di A1:B1 > > > > > Pengaturan properti ListBox > 1. ColumnCount : diset bernilai 2, karena ingin > menampilkan 2 kolom dari sumber data. > * Renungkan juga manfaat pengaturan > ColumnCount yang di-set nilainya kurang dari jumlah kolom sumber data.... > * > Misal, sumber data memiliki 17 kolom, tetapi yang pantas ditampilkan > kehadapan user adalah 5 kolom pertama saja, maka ColumnCount di set bernilai > 5. > > 2. ColumnHeads : diset bernilai TRUE, karena ingin menampilkan baris > header (dalam hal ini baris bertuliskan Produk dan Nilai) > > 3. RowSource > (karena ListBox ada di UserForm) [properti ListFillRange yang digunakan bila > ListBox di dalam worksheet] > diisi dengan bunyi alamat range sumber data > sebagai berikut : > 'Sumber Data'!$A$2:$B$4 > * Jika area range A2:B4 telah > dibuatkan sebuah nama range bernama '_myList_' maka properti ini diisi dengan > nama range tersebut > _myList_ > > ---------------- > > > Peringatan !!! > 1. > Pengubahan terhadap sumber data (misal suatu nilai di dalam range) harus > disertai pendefinisian ulang properti RowSource atau ListFillRange. > 2. > Untuk menghapus isi properti RowSource : > > nama_listbox.RowSource=vbnullstring > 3. Untuk mengisi properti RowSource : > > nama_listbox.RowSource="rujukan sumber data" > * "rujukan sumber data" bisa > berupa variabel bertipe string yang berisi teks alamat lengkap sumber data > atau nama range > > Contoh : ListBox bernama lstPRODUK > > lstPRODUK.RowSource=vbnullstring 'bersihkan dulu > > lstPRODUK.RowSource="'Sumber Data'!$A$2:$B$4" 'definisikan ulang > > > Pendefinisian ulang jika merujuk ke suatu nama range : > > lstPRODUK.RowSource="_myList_" 'definisikan ulang > > > Wassalamu'alaikum wr > wb > Kid > > > > > 2016-01-27 7:08 GMT+07:00 Pauzan Ozan [email protected] > [belajar-excel] <[email protected]>: >> >> >> >> Dear Para Master > Be-Exceller >> >> Mohon bantuan untuk problem yang saya alami >> bgaimna VBA > supaya saya dapat menampilkan judul header yg ad pada tabel ke listbox yang > ada pd userform.(file terlampir) >> Atas bantuannya Saya hanya bisa ucapin > terima kasih saja >> >> wassalam.. > > > > >
