Wah kok semakin menarik nih pembahasannya... malah menimbulkan pertanyaan pertanyaan baru ni. Apakah bisa Columheads lebih dari satu ? terimakasih ;)
________________________________ From: Haps <[email protected]> To: [email protected] Sent: Monday, October 3, 2011 4:04 AM Subject: Re: [belajar-excel] memindahkan listbox ke kolom ya tinggal menambah 1 (satu) pernyataan: ListBox1.Selected(n) = False saja... '---------------------------- Private Sub CommandButton1_Click() ' *siti Vi / 2 okt 2011; *modif: haps / 3 Oct 2011 Dim n As Integer, r As Integer r = 1 With Range("H6") .CurrentRegion.Offset(1, 0).ClearContents For n = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(n) = True Then r = r + 1 .Cells(r, 1) = ListBox1.List(n) ListBox1.Selected(n) = False <<--hanya ini End If Next n End With End Sub '--------------------------------- Alkisah, di sebuah ListBox bernama ListBox1 dan Range sekolom yg berada di bawah cell H6 Sebelum mulai mengurus Listbox, area Hasil dibersihkan dulu dari sisa2 hasil sebelumnya (jika ada) Loop For N - Next N, mengunjungi semua Item dlm Listbox, satu persatu, urut Index dari Index pertama ( = 0) sampai Index terakhir ( = .ListCount - 1) Setiap kunjungan, Item (dlm Listbox1) yg sedang dikunjungi, di-Evaluasi status "selected"nya Jika statusnya = terContreng (.Selected(N) = True ), maka - nilai variable R (di sini R dipakai sbg Index Baris pada kolom Hasil) dinaikkan satu (R = R + 1) - baris yg berindex R (pada kolom hasil) tsb diisi dgn Item yg sedang di-kunjungi oleh Loop ( .List(N)) - Item ys sedang dikunjungi (dan valuenya sudah disalin ke Kolom Hasil di sheet) itu, kemudian langsung di-hilangkan Contrengan-nya ( .Selected(Index) = False ) Setelah berpamitan, mungkin juga ada acara kecil cipika-cipiki.. & sedikit air-mata pura-pura.., kunjungan segera dilanjutkan ke Item dengan nomor Index (N) berikutnya Acara "kunjung-mengunjung" baru akan berakhir ketika nilai N sudah mencapai batas akhir-nya --- mungkin seperti itu, bahasa-manusia-nya .. CMIIW.. -haps- 2011/10/2 bagusejogja <[email protected]> >ok's banget.....tapi saya coba mengotak atik code setelah menekan tombol "gini >ya" data yang aktif pindah ke kolom dan data di listbox centrangnya menjadi >bersih blm bisa bisa, master stdev(i) mau menanyakan lagi;)... tq master... > >________________________________ >From: STDEV(i) <[email protected]> >Sent: Sunday, October 2, 2011 6:50 PM > >Mungkin begini... >Private Sub CommandButton1_Click() > 'siti Vi / 2 okt 2011 > Dim n As Integer, r As Integer > r = 1 > With Range("H6") > .CurrentRegion.Offset(1, 0).ClearContents > For n = 0 To ListBox1.ListCount - 1 > If ListBox1.Selected(n) = True Then > r = r + 1 > .Cells(r, 1) = ListBox1.List(n) > End If > Next n > End With >End Sub >'--------------
