listbox

fan800326

请老师帮忙修改下。谢谢！

蓝桥玄霜

1. Private Sub UserForm_Initialize()
   
2.     Caption = Sheet2.Name & "账单查询"
   
3.     arr = Sheet2.Range("A2:M" & Sheet2.[g65536].End(3).Row)
   
4.     With ListBox1
   
5.         .ColumnCount = 13
   
6.         .ColumnWidths = "70;70;70;70,70,70;70,70,70,70,70,70,0"
   
7.         .List = arr
   
8.     End With
   
9.     With ListBox2
   
10.         .Font.Size = 11 '设置字体
    
11.         .ForeColor = vbBlue '字体颜色
    
12.         .RowSource = Sheet2.Range("A2:L2").Address '引用工作表区域，为单元格地址字符串
    
13.         .ColumnHeads = True '是否显示标题，设置RowSource时有效，注意数据区域地址不包含标题行在内
    
14.         .ColumnCount = 13 '显示的列数
    
15.         .ColumnWidths = "70;70;70;70,70,70;70,70,70,70,70,70,0"  '设置每列列宽，宽度为0时隐藏该列
    
16.     End With
    
17. End Sub
    
18. 
    

复制代码

半百

是不是输入B:I列任意关键字都可以？

tanglf188

大概就是这样吧