请帮忙 建立treeview 一二级目录

东方168

请帮忙 建立treeview 一二级目录，建好后，点击相应 节点，EXCEL选择相应的行

micch

1. Dim rng0 As Range
   
2. Private Sub TreeView1_Click()
   
3.     With Me.TreeView1
   
4.         r = CInt(Right(.SelectedItem.Key, 3))
   
5.         rng0.Cells(r, 1).Activate
   
6.     End With
   
7. End Sub
   
8. Private Sub UserForm_Initialize()
   
9.     Set rng0 = Sheet1.Range("a3:c" & 99)
   
10.     ar = rng0.Value
    
11.     With Me.TreeView1
    
12.         .LineStyle = tvwRootLines
    
13.         .Nodes.Add , , "R000", "ROOT"
    
14.         For i = 2 To UBound(ar)
    
15.             If Len(ar(i, 1)) > 0 Then
    
16.                 k1 = k1 + 1
    
17.                 key1 = "R" & Format(i, "000")
    
18.                 grd = ar(i, 1)
    
19.                 .Nodes.Add "R000", tvwChild, key1, grd
    
20.             End If
    
21.             If Len(ar(i, 2)) > 0 Then
    
22.                 k2 = k2 + 1
    
23.                 cls = ar(i, 2)
    
24.                 .Nodes.Add key1, tvwChild, "RR" & Format(i, "000"), cls
    
25.             End If
    
26.         Next
    
27.     End With
    
28. End Sub

复制代码

aodo

我以前凑的一个三级菜单，你试试，有注释，位置不对自己改

东方168

aodo 发表于 2024-6-23 15:58
我以前凑的一个三级菜单，你试试，有注释，位置不对自己改

是您的版本高吗，我这打不开，提示“无法装载这个对象，因为它不适用于这台计算机”

aodo

东方168 发表于 2024-6-23 16:16
是您的版本高吗，我这打不开，提示“无法装载这个对象，因为它不适用于这台计算机”

我没有看你的附件要求，我这只是快速录入的三级菜单，没有你要求的窗体

东方168

aodo 发表于 2024-6-23 16:32
我没有看你的附件要求，我这只是快速录入的三级菜单，没有你要求的窗体

谢谢，已经 参考改成了

东方168

treeview 有没有属性，使其初始化时就是展开状态

micch

不知道有没有直接设置的属性，全部展开就写一个循环好了

1. Dim rng0 As Range
   
2. Private Sub TreeView1_Click()
   
3.     With Me.TreeView1
   
4.         r = CInt(Right(.SelectedItem.Key, 3))
   
5.         rng0.Cells(r, 1).Activate
   
6.     End With
   
7. End Sub
   
8. Private Sub UserForm_Initialize()
   
9.     Set rng0 = Sheet1.Range("a3:c" & 99)
   
10.     ar = rng0.Value
    
11.     With Me.TreeView1
    
12.         .LineStyle = tvwRootLines
    
13.         .Nodes.Add , , "R000", "ROOT"
    
14.         For i = 2 To UBound(ar)
    
15.             If Len(ar(i, 1)) > 0 Then
    
16.                 key1 = "R" & i + 1000
    
17.                 .Nodes.Add "R000", tvwChild, key1, ar(i, 1)
    
18.             End If
    
19.             If Len(ar(i, 2)) > 0 Then
    
20.                 key2 = "RR" & i + 1000
    
21.                 .Nodes.Add key1, tvwChild, key2, ar(i, 2)
    
22.             End If
    
23.             If Len(ar(i, 3)) > 0 Then
    
24.                 .Nodes.Add key2, tvwChild, "RRR" & 1000 + i, ar(i, 3)
    
25.             End If
    
26.         Next
    
27.         For Each Node In .Nodes
    
28.             Node.Expanded = True
    
29.         Next
    
30.     End With
    
31. End Sub

复制代码