in Me.lbx.MultiSelect = fmMultiSelectMulti
that case,,, the line have 50,000 data..
i want to select the all data... but, lbx.selected(i)=true....... is no good... this is slow... for loop.. at once,one stop,,,, setting *** Sent via Developersdex http://www.developersdex.com *** |
in Me.lbx.MultiSelect = fmMultiSelectMulti
You don't say a lot about what you are doing, but this might be a way to do it
Dim lRow as long dim myRange as range Set myRange = activesheet.cells(1,1) 'First cell of range to select lRow = activesheet.cells(activesheet.rows.count,myrange.c olumn).end(xlup).row if lRow myRange.row then Set myRange = myRange.resize(lrow-myrange.row + 1,1) end if myRange.select -- HTH, Barb Reinhardt "x taol" wrote: that case,,, the line have 50,000 data.. i want to select the all data... but, lbx.selected(i)=true....... is no good... this is slow... for loop.. at once,one stop,,,, setting *** Sent via Developersdex http://www.developersdex.com *** |
in Me.lbx.MultiSelect = fmMultiSelectMulti
It is a listbox on the userform..... in that listbox control...... *** Sent via Developersdex http://www.developersdex.com *** |
in Me.lbx.MultiSelect = fmMultiSelectMulti
Please review this site, then try again.
http://home.satx.rr.com/badour/html/post.html "x taol" wrote: that case,,, the line have 50,000 data.. i want to select the all data... but, lbx.selected(i)=true....... is no good... this is slow... for loop.. at once,one stop,,,, setting *** Sent via Developersdex http://www.developersdex.com *** |
in Me.lbx.MultiSelect = fmMultiSelectMulti
yes, I explain....
I have a userform. the userform has a listbox. a property the listbox is set following below. lbx.MultiSelect = fmMultiSelectMulti when the listbox have 10000 data, the problem has. when the 10000 data is selected... the slow... and then press a commandbutton on the form, the event occur. I want to select all data of listbox, fastly. *** Sent via Developersdex http://www.developersdex.com *** |
in Me.lbx.MultiSelect = fmMultiSelectMulti
Try this worked very quickly @ 6000 + rows
Option Explicit Private Sub CommandButton1_Click() With Me.ListBox1 .RowSource = "A1:F65536" <--- change for your needs End With End Sub Private Sub UserForm_Initialize() With Me.ListBox1 .ColumnCount = 6< --- change for your needs End With End Sub "x taol" wrote: yes, I explain.... I have a userform. the userform has a listbox. a property the listbox is set following below. lbx.MultiSelect = fmMultiSelectMulti when the listbox have 10000 data, the problem has. when the 10000 data is selected... the slow... and then press a commandbutton on the form, the event occur. I want to select all data of listbox, fastly. *** Sent via Developersdex http://www.developersdex.com *** |
All times are GMT +1. The time now is 03:45 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com