listbox列表框 模糊查询 分列显示 加入标题

qiangxiang

首先感谢“模糊录入_LDY”原创作者，启发了我。但我还想改动一下，以便更适合工作，但技术有限，麻烦请各位老师帮我解答一下，谢谢了！！

蓝桥玄霜

1. Private Sub UserForm_Initialize()
   
2. Dim k, t, j&, dd, sc, Arr1()
   
3. Arrsj = Sheet1.[a1].CurrentRegion
   
4. For j = 1 To UBound(Arrsj)
   
5.     k = k + 1
   
6.     ReDim Preserve Arr1(1 To 5, 1 To k)
   
7.     For t = 1 To 5
   
8.         Arr1(t, k) = Arrsj(j, t)
   
9.     Next
   
10.     If j <> 1 Then dd = dd + Arrsj(j, 4): sc = sc + Arrsj(j, 5)
    
11. Next
    
12. TextBox4 = sc
    
13. TextBox2 = dd
    
14. 
    
15. With Me.ListBox1
    
16.     .ColumnCount = 5 '设定列表框列数
    
17.     .ColumnWidths = "100,100,100,100,100"
    
18.     .List = Application.Transpose(Arr1)
    
19.     .Visible = True
    
20. End With
    
21. End Sub
    

复制代码

蓝桥玄霜

请见附件。

qiangxiang

蓝桥玄霜 发表于 2015-4-5 17:31
请见附件。

太感谢蓝桥玄霜版主出手相助，谢谢！！问题迎刃解决！

jpj123

蓝桥玄霜 发表于 2015-4-5 17:29

蓝版的代码很经典，值得学习!

snowfly1112

迷糊了快一周了，终于找到了。