时间戳

首页 > 解决方案 > 通过单击选择变量

excel - 通过单击选择变量

问题描述

我想通过单击每个节点从我的面板中选择一个变量，将一个简单的IF ELSE条件应用于我当前vba的脚本。Treeview我知道如何通过选择来做到这一点，Inputbox但不知道如何通过单击来选择？

标签： excelvba

解决方案

我创建了一个新的用户窗体，初始化了 Treeview，如下所示：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim oNode As Node

    With TreeView1
        Set oNode = .Nodes.Add(, , "W1", ThisWorkbook.Name)
        oNode.Expanded = True

        For Each ws In ThisWorkbook.Worksheets
            .Nodes.Add "W1", tvwChild, , ws.Name
        Next
    End With
End Sub

UserForm1.Show然后，当您使用带有 Treeview 的 UserForm调用 Userform 时，就会显示。

然后您可以使用该事件NodeClick对节点执行以下操作：

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

    If Node.Text = "Table1" Then
       ' Do Something
    End If

End Sub

推荐阅读