TreeView Excel 2007以編程方式選擇複選框

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

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

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

ParentNode

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

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

ParentNode

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

等..（你的想法，其excel表......）

什麼是vba代碼選擇/取消選擇框？我一直在尋找很多，無法找到這個簡單問題的答案....

Thx提前！

Answer 1

在訪問我假設你使用使用屬性.checked

只是設置爲true，你想打勾

這裏的箱子是一個代碼示例

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

同一控制

你應該適應它在excel中的工作