VBA入门到进阶常用知识代码总结60

最新推荐文章于 2020-03-02 18:33:01 发布

tiansdk320

最新推荐文章于 2020-03-02 18:33:01 发布

阅读量550

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104366561

版权

本文详细介绍了如何在VBA中使用treeview控件，包括注意事项、基础操作如添加节点，以及数据导入、读取、动态添加、修改和删除节点的方法。通过示例代码展示了如何与Excel数据交互，实现动态管理树形结构数据。

摘要由CSDN通过智能技术生成

第60集 treeview控件
287、注意事项
注意：64位office无法加载该控件，32位可以运行。
288、基础知识
treeview控件添加节点的ADD方法
Treeview1.Nodes.Add(上一级节点的索引值,是否为子节点,节点的索引值,节点上显示的文字,图标的索引号,选取节点时的图标)
一级节点的索引值和创建节点的位置为空。则表示创建是的顶级节点。
索引值不能为数字，为string类型。
289、数据导入
在这里插入图片描述
Private Sub UserForm_Initialize()
Dim Nodx As node
TreeView1.ImageList = ImageList1 '从imagelist控件中提取图片
Set Nodx = TreeView1.Nodes.Add(, , “总公司”, “总公司人事结构”, 1) '总公司是顶级节点的索引值,
For x = 2 To Range(“B65536”).End(xlUp).Row
C1 = Cells(x, 1)
c2 = Cells(x, 2)
If Len(c2) = 1 Then '如果代码长度为1，说明是顶级节点下的二级节点
Set Nodx = TreeView1.Nodes.Add(“总公司”, tvwChild, “A” & c2, C1 & “(” & c2 & “)”, 2)
'总公司：上一级节点的索引值
‘tvwChild：子节点
’ “A” & C2：C2是代码，连接A后作该节点的索引值，连接A的原因是索引不能为纯数字’
’ C1 & “(” & C2 & “)” 是显示的内容，A列的内容+代码
’ 2 是imagelist1控件中序号为2的图片
ElseIf Len(c2) = 3 Then '如果代码长度为3，说明是三级节点
Set Nodx = TreeView1.Nodes.Add(“A” & Left(c2, 1), tvwChild, “A” & c2, C1 & “(” & c2 & “)”, 3)
ElseIf Len(Cells(x, 2)) = 6 Then
Set Nodx = TreeView1.Nodes.Add(“A” & Left(c2, 3), tvwChild, “A” & c2, C1 & “(” & c2 & “)”, 4)
End If
Next
End Sub
290、数据读取
Private Sub TreeView1_Click()
Dim MyItem As node
Set MyItem = TreeView1.SelectedItem 'SelectedItem正在选取的节点
If Len(MyItem.Key) = 2 Then 'SelectedItem.Key 正在选取节点的索引值
TextBox1 = 截取名称(MyItem.Text) '如果是顶级节点,公司名称等于节点的显示内容(去掉代码)
TextBox2.Value = “”
TextBox3.Value = “”
TextBox4 = Replace(MyItem.Key, “A”, “”) '替