如何使对窗体ListBox控件的多列列表框的数据？？？

苏小亓

例子.zip (104.34 KB, 下载次数: 142)

2018-7-29 13:43 上传

点击文件名下载附件

ftgli

listview了解一下

苏小亓

ftgli 发表于 2018-7-29 16:22
listview了解一下

不知道怎么弄。

苏小亓

ftgli 发表于 2018-7-29 16:22
listview了解一下

能不能帮我改一下。

ivccav

请参考帖子，专门讲Listbox的：http://club.excelhome.net/thread-1451605-1-1.html

你设计的程序还可以加上编号查询，详见附件：





例子.zip (104.39 KB, 下载次数: 344)

2019-1-1 14:07 上传

点击文件名下载附件

lujkhua

看是不是你要的效果

1. Private dic As Object
   
2.    
   
3. Private Sub ListBox1_Click()
   
4.     ListBox2.Clear
   
5.     ListBox3.Clear
   
6.     ListBox2.List = dic(ListBox1.Text).keys
   
7. End Sub
   
8. 
   
9. Private Sub ListBox2_Click()
   
10.     ListBox3.Clear
    
11.     ListBox3.List = dic(ListBox1.Text)(ListBox2.Text).keys
    
12. End Sub
    
13. 
    
14. Private Sub ListBox3_Click()
    
15.     ActiveCell = ListBox1.Text
    
16.     ActiveCell.Offset(, 1) = ListBox2.Text
    
17.     ActiveCell.Offset(, 2) = ListBox3.Text
    
18.     Unload Me
    
19. End Sub
    
20. 
    
21. Private Sub UserForm_Initialize()
    
22.     Dim i As Long, arr(), j As Long, c(1 To 4) As String
    
23.     Set dic = Nothing
    
24.     Set dic = CreateObject("Scripting.Dictionary")
    
25.     arr = Sheets("产品规格").Cells(1, 1).CurrentRegion.Value
    
26.     For i = 1 To UBound(arr)
    
27.         For j = 1 To 4
    
28.             c(j) = arr(i, j)
    
29.         Next
    
30.         If Not dic.Exists(c(2)) Then Set dic(c(2)) = CreateObject("Scripting.Dictionary")
    
31.         If Not dic(c(2)).Exists(c(3)) Then Set dic(c(2))(c(3)) = CreateObject("Scripting.Dictionary")
    
32.         If Not dic(c(2))(c(3)).Exists(c(4)) Then Set dic(c(2))(c(3))(c(4)) = CreateObject("Scripting.Dictionary")
    
33.     Next
    
34.     ListBox1.List = dic.keys
    
35. End Sub
    
36. 
    
37. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
38.     Unload Me
    
39.     Set dic = Nothing
    
40. End Sub

复制代码

10307951261

留个脚印  

OKJSJSF

ftgli 发表于 2018-7-29 16:22
listview了解一下

请问前辈，当WORD列表框显示EXCEL工作表中的多行数据时，要想让表头（标题行）垂直方向上固定不动时，ROWSOURCE方法是确定不行的吗？如果确定不行，我将不再纠结于此，就采用listview。

larer

OKJSJSF 发表于 2019-12-9 22:15
请问前辈，当WORD列表框显示EXCEL工作表中的多行数据时，要想让表头（标题行）垂直方向上固定不动时，ROW ...

肯定是不行了,在窗体中就可以,但是在工作表中就不行,我试过