动态设置 Listbox 的列数与列宽

aman1516

求助：
　　数据源有n列数据(这里列举７列)，现时想动态生成listbox的列及指定对应的列宽：
　　　　"序号,40;物料类别,60;物料编码,70;物料名称,150;材质,50;规格型号,80;颜色,50;……"　等等
　　目的:　当我在Textbox输入“物料编码,物料名称,规格型号,颜色”指定的其中几列时，则在listbox中只显示对应的列的内容，并对应设置上面对应的列宽。
　　　　　若Textbox为空时，则导入源数据表的所有列内容。

　　　　　请大家帮忙下，谢谢！　　 如何按指定列设置Listbox列数与列宽，并读入内容.rar (14.25 KB, 下载次数: 119)

2014-4-25 09:32 上传

点击文件名下载附件

aoranbuqun

不明白为什么要在textbox输入那么多内容!

VBA万岁

列表框属性中有设置列数及列宽。

VBA万岁

你是要在文本框中输入一个或多个标题后，将列表框中不需要显示的列（标题不在文本框中的列）的列宽设置为0吗？

aman1516

VBA万岁 发表于 2014-4-25 10:10
你是要在文本框中输入一个或多个标题后，将列表框中不需要显示的列（标题不在文本框中的列）的列宽设置为0吗 ...

这也是一种方法。
我要的结果就是只输出指定的列（而不是全部显示，未指定的列不需要显示）。

aman1516

aoranbuqun 发表于 2014-4-25 09:58
不明白为什么要在textbox输入那么多内容!

动态显示“指定”的列，Textgbox中输入的就是“指定条件”

VBA万岁

aman1516 发表于 2014-4-25 12:04
动态显示“指定”的列，Textgbox中输入的就是“指定条件”

Private Sub TextBox1_Change()
Dim i%, j%, c As Long, s$, arr, brr
For i = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column - 1
    If InStr(TextBox1.Text, Cells(1, i).Value) > 0 Then s = s & ":" & i
Next i
s = Right(s, Len(s) - 1)
arr = Split(s, ":")
ReDim brr(1 To ListBox1.ListCount, 1 To UBound(arr) + 1)
For i = 1 To ListBox1.ListCount
    For j = 1 To UBound(arr) + 1
       brr(i, j) = Cells(i, Val(arr(j - 1))).Value
    Next j
Next i
ListBox1.Clear
ListBox1.List = brr
End Sub


Private Sub UserForm_Initialize()
Dim Myr&, arr
nRow = Sheet1.[A65536].End(xlUp).Row
arr = ActiveSheet.UsedRange
With Me.ListBox1
     .Clear
     .ColumnCount = 7
     '.BoundColumn = 7
     .ColumnWidths = "40,60,70,150,50,80,50"
     '.ColumnHeads = True
     .ListIndex = -1
     '.RowSource = Sheet1.Range("A1:G" & nRow).Address(External:=True)
     .List = arr
End With
End Sub

VBA万岁

VBA万岁 发表于 2014-4-25 14:00
Private Sub TextBox1_Change()
Dim i%, j%, c As Long, s$, arr, brr
For i = 1 To Cells(1, Cells.Co ...

是这样的吗？
如何按指定列设置Listbox列数与列宽，并读入内容.rar (23.96 KB, 下载次数: 159)

2014-4-25 14:01 上传

点击文件名下载附件

VBA万岁

VBA万岁 发表于 2014-4-25 14:01
是这样的吗？

代码改进如下：
Private Sub TextBox1_Change()
Dim i%, j%, c As Long, s$, arr, brr
For i = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column - 1
    If InStr(TextBox1.Text, Cells(1, i).Value) > 0 Then s = s & ":" & i
Next i
If s <> "" Then
    s = Right(s, Len(s) - 1)
Else
    For i = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column - 1
        If InStr(Cells(1, i).Value, TextBox1.Text) > 0 Then s = i: Exit For
    Next i
End If
arr = Split(s, ":")
ReDim brr(1 To ListBox1.ListCount, 1 To UBound(arr) + 1)
For i = 1 To ListBox1.ListCount
    For j = 1 To UBound(arr) + 1
       brr(i, j) = Cells(i, Val(arr(j - 1))).Value
    Next j
Next i
ListBox1.Clear
ListBox1.List = brr
End Sub


Private Sub UserForm_Initialize()
Dim Myr&, arr
nRow = Sheet1.[A65536].End(xlUp).Row
arr = ActiveSheet.UsedRange
With Me.ListBox1
     .Clear
     .ColumnCount = 7
     '.BoundColumn = 7
     .ColumnWidths = "40,60,70,150,50,80,50"
     '.ColumnHeads = True
     .ListIndex = -1
     '.RowSource = Sheet1.Range("A1:G" & nRow).Address(External:=True)
     .List = arr
End With
End Sub

VBA万岁

VBA万岁 发表于 2014-4-25 15:24
代码改进如下：
Private Sub TextBox1_Change()
Dim i%, j%, c As Long, s$, arr, brr

附件：
如何按指定列设置Listbox列数与列宽，并读入内容.rar (24.41 KB, 下载次数: 268)

2014-4-25 15:25 上传

点击文件名下载附件