Question

我在excel 2007中有一个带有复选框的TreeView。

我希望在填充树时选中所有复选框
我希望在选择/取消选择列表的父节点时，选择/取消选择所有子节点

以下是我到目前为止编写的代码：

Private Sub UserForm_Initialize()

 'Set control defaults
 With Me
      .CommandButton1.Caption = "Close"
      .Label1 = vbNullString
      .ZonesTree.LineStyle = tvwRootLines
 End With

 'Populate the Treeview
 Call TreeView_Populate

End Sub

Private Sub TreeView_Populate()

Dim wbBook As Workbook
Dim wsZones As Worksheet
Dim rngZones As Range
Dim rngCinemas As Range
Dim lngRows As Long

Set wbBook = ThisWorkbook
Set wsZones = wbBook.Worksheets("Cinemas")

'lngRows = wsZones.Range("A65536").End(xlUp).row
lngRows = wsZones.UsedRange.Rows.Count
Set rngZones = wsZones.Range("A1:A" & lngRows)

Dim rngBC As Range
Set rngBC = wsZones.Range("B1:C" & lngRows)


Dim rCell As Range
Dim lastCreatedKey As String
Dim rowCount As Integer
Dim currentRowRange As Range
rowCount = 1
lastCreatedKey = ""

With Me.ZonesTree.Nodes
      'Clear TreeView control
      .Clear

        For Each rCell In rngZones
            If Not rCell.Text = "" Then
                .Add Key:=rCell.Text, Text:=rCell.Text
                lastCreatedKey = rCell.Text
            Else
                Set currentRowRange = rngBC.Rows(rowCount)
                .Add Relative:=lastCreatedKey, relationship:=tvwChild, Key:=currentRowRange.Cells(, 2).Text, Text:=currentRowRange.Cells(, 1).Text
            End If
            rowCount = rowCount + 1
        Next rCell
End With
End Sub

Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
 Me.Label1.Caption = Node.Key
End Sub


Private Sub CommandButton1_Click()
 Unload Me
End Sub

此树以这种方式从工作表中选择数据：

---甲--------- ---------乙ç--------- d

ParentNode

------------ ChildNode

ParentNode

------------ ChildNode

ParentNode

------------ ChildNode

等等......（你明白了，它是一张excel表......）

选择/取消选择框的vba代码是什么？我一直在搜索，但找不到这个简单问题的答案....

提前谢谢！

Answer 1

我假设的访问使用相同的控件，您使用的属性是.checked

只需将您想要勾选的框设置为true

这是一个代码示例

Set iNode = objTree.Nodes.Add(strParent,tvwChild, strKey, strText)
iNode.Checked = true

你应该让它适应excel

Treeview Excel 2007以编程方式选中复选框

1 个答案: