TreeView构造树形结构快速录入

 

Private Sub CommandButton1_Click()
With Sheets("科目表")
If .Range("b2:b" & .[b65536].End(3).Row).Find(treeWorking.SelectedItem.Text) Is Nothing Then
ActiveCell = treeWorking.SelectedItem.Text
End If
End With
If ActiveCell <> "" Then Unload Me
End Sub

Private Sub treeWorking_DblClick()
With Sheets("科目表")
If .Range("b2:b" & .[b65536].End(3).Row).Find(treeWorking.SelectedItem.Text) Is Nothing Then
ActiveCell = treeWorking.SelectedItem.Text
End If
End With

If ActiveCell <> "" Then Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
Dim j As Long
Dim k As Long
Dim Title As String
Dim xNode As Node
Dim NodeKey As String
Dim NodeKey2 As String

j = Sheets("科目表").Range("A65536").End(xlUp).Row
With Me.treeWorking
For i = 2 To j
Set xNode = .Nodes.Add
NodeKey = Sheets("科目表").Range("A" & i).Text
With xNode
.Key = NodeKey
.Text = NodeKey
.Expanded = False
'.Expanded = False
End With
Next i
j = Sheets("科目表").Range("C65536").End(xlUp).Row
For i = 2 To j
Set xNode = .Nodes.Add(Sheets("科目表").Range("B" & i).Text, tvwChild)
NodeKey = Sheets("科目表").Range("C" & i).Text
With xNode
.Key = NodeKey
.Text = NodeKey
.Expanded = False '0625
End With
Next i
End With

Set xNode = Nothing
End Sub