|
供参考 listbox 多列的方法
- Dim Res_Data()
- Res_Data = ThisWorkbook.Sheets("会计科目").UsedRange.Value
- Dim List_Data(), Find_Num As Long
- Dim L1 As Long, L2 As Long
- ReDim List_Data(1 To 3, 1 To UBound(Res_Data))
- For I = 3 To UBound(Res_Data)
- If InStr(Res_Data(I, 1), TB_Lookup) > 0 Or InStr(Res_Data(I, 2), TB_Lookup) > 0 Then
- Find_Num = Find_Num + 1
- L1 = Len(Res_Data(I, 1))
- L2 = Len(Res_Data(I, 2))
- List_Data(1, Find_Num) = Res_Data(I, 1)
- List_Data(2, Find_Num) = Res_Data(I, 2)
- List_Data(3, Find_Num) = Res_Data(I, 3)
- End If
- Next
- ReDim Preserve List_Data(1 To 3, 1 To Find_Num)
- If Find_Num = 0 Then
- MsgBox "找不到任何包含关键字的有效数据!" & Chr(13) & Chr(13) & _
- "请尝试减少关键字符数或重新输入。", vbInformation, "乐天工作室:温馨提示!"
- TB_Lookup.SetFocus
- Else
- ListBox1.ColumnCount = 3
- ListBox1.List = Application.WorksheetFunction.Transpose(List_Data)
- ListBox1.ColumnWidths = "100;100;100"
- End If
复制代码
|
|