VBA自学应用（17）——TreeView控件

最新推荐文章于 2025-03-21 12:00:59 发布

star星梦

最新推荐文章于 2025-03-21 12:00:59 发布

阅读量5.5k

点赞数 4

分类专栏： VBA自学应用

本文链接：https://blog.csdn.net/qq_24818403/article/details/104617011

版权

数据图如所示

在这里插入图片描述

首先找到我们的TreeView控件插入

在这里插入图片描述

然后键入如下代码

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim j As Integer
    Dim arr
    arr = Sheet3.Range("b3").CurrentRegion
    With Me.TreeView1
        .Style = tvwTreelinesPlusMinusPictureText
        .LineStyle = tvwRootLines
        .CheckBoxes = False
        With .Nodes
            .Clear
            .Add Key:="科目", Text:="科目名称"
            For i = 1 To