VBA树形菜单录入问题

zpy2 · 发表于 2024-12-17 07:22

https://club.excelhome.net/forum.php?mod=viewthread&tid=1690633&fromguid=hot&extra=&mobile

VBA报价系统 · 发表于 2024-12-17 14:23

https://club.excelhome.net/forum ... p;extra=&mobile

这样用下拉菜单一个的选择和多级联动的效果一样，我不想用这种的，就和ERP一样用鼠标选择一个后面紧跟着出现子级在选择，以此类推选择后点击就输入到单元格里面去了的那种

VBA报价系统 · 发表于 2024-12-17 14:28

扑腾发表于 2024-12-17 02:49
前两天有类似的问题我做了个附件：虽然不适合你，但应该是你想要的效果

谢谢，代码有点类似，就是看不懂，怎么办呢，彻底小白一个

VBA报价系统 · 发表于 2024-12-17 14:28

micch 发表于 2024-12-16 22:22
treeview有不兼容的情况，不过确实比较直观

效果差不多，有文件我看下可以不？

VBA报价系统 · 发表于 2024-12-17 16:20

shiruiqiang 发表于 2024-12-16 19:00
就是从品牌开始的七级联动。可以下拉列表试试

多级联动我会，但是不会通过代码来实现树型菜单

大灰狼1976 · 发表于 2024-12-17 16:34

treeview简单示例，修改一下输出位置就能套用

一指禅62 · 发表于 2024-12-18 20:54

本帖最后由一指禅62 于 2024-12-18 21:21 编辑

VBA报价系统发表于 2024-12-16 16:41
这是在论坛里面找的两种解决方案，但是两种结合起来刚好是我想要的，初学VBA啥都看不懂，摸索了两天了，哪 ...

我看见我了

chxw68 · 发表于 2024-12-18 22:32

用treeview控件实现的，不知是否符合楼主意图。

zpy2 · 发表于 2024-12-19 09:46

VBA报价系统发表于 2024-12-17 14:23
这样用下拉菜单一个的选择和多级联动的效果一样，我不想用这种的，就和ERP一样用鼠标选择一个后面紧跟着 ...

treeview选择器啊，看动画

chxw68 · 发表于 2024-12-19 10:59

Sub test()
Dim r%, i%
Dim arr, brr
Dim nodex As Node
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("sheet1")
.AutoFilterMode = False
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:h" & r)
End With
With Worksheets("sheet2")
With .TreeView1
.Style = 7
.LineStyle = 1
.Nodes.Clear
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 2)) Then
Set nodex = .Nodes.Add(, , arr(i, 2), arr(i, 2))
d(arr(i, 2)) = Empty
End If
ss = arr(i, 2)
For j = 3 To 6
If Not d.exists(ss & "_" & arr(i, j)) Then
Set nodex = .Nodes.Add(ss, 4, ss & "_" & arr(i, j), arr(i, j))
d(ss & "_" & arr(i, j)) = Empty
End If
ss = ss & "_" & arr(i, j)
If j = 6 Then
If Not IsArray(nodex.Tag) Then
nodex.Tag = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7), arr(i, 8))
End If
End If
Next
Next
End With
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] VBA树形菜单录入问题