|
发表于 2012-10-24 14:39
|
显示全部楼层
本楼为最佳答案
- Private Sub UserForm_Initialize()
- Dim arr, sCode$, sName$
- Dim iRow&
- iRow = [b2].End(xlDown).Row
- arr = Range("B2:c" & iRow).Value
- TreeView1.HideSelection = False
- TreeView1.LineStyle = tvwRootLines '显示出表示可扩展节点的“+”号
- Me.Caption = "会计科目"
- With Me.TreeView1
- For i = LBound(arr) + 1 To UBound(arr)
- sCode = "A" & arr(i, 1)
- sName = arr(i, 2)
- Select Case Len(sCode)
- Case 3: .Nodes.Add Key:=sCode, Text:=sName
- Case 5: .Nodes.Add Relative:=Left(sCode, 3), Relationship:=4, Key:=sCode, Text:=sName
- Case 7: .Nodes.Add Relative:=Left(sCode, 5), Relationship:=4, Key:=sCode, Text:=sName
- End Select
- Next
- For i = 1 To .Nodes.Count
- .Nodes(i).EnsureVisible
- Next i
- For i = 1 To .Nodes.Count
- .Nodes(i).Expanded = False
- Next i
- .Nodes(1).Selected = True
- End With
- End Sub
复制代码 改了下,先不展开所有的项。 |
|