Excel TreeView多列

看看这个。

获取列A的完整范围以循环行。还可以得到b、c的范围,并使用计数器来指示您所在的行。

Private Sub TreeView_Populate()

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

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

    lngRows = wsZones.UsedRange.Rows.Count
    Set rngZones = wsZones.Range("A1:A" & lngRows)
    Dim rngBC As Range
    Set rngBC = wsZones.Range("B1:C" & lngRows)

    'lngRows = wsZones.Range("A65536").End(xlUp).Row
    'Set rngZones = wsZones.Range("A1:A" & lngRows)

    Dim lElement As Long
    Dim rCell As Range
    Dim rowCount As Integer
    rowCount = 1

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

            For Each rCell In rngZones
                'We have a group name in the A columns so we attach it to the tree
                If Not rCell.Text = "" Then
                    .Add Key:=rCell.Text, Text:=rCell.Text
                    'THIS IS WHERE I BLOCK!!
                    'Need the range from Columns B and C until the next Value in the A Column
                    'in order to add the children nodes....
                            .Add relative:=CinemaName, _
                              relationship:=tvwChild, _
                              Key:=CinemaName(here it will be B column), CinemaInfos(C column)
                              Text:=CinemaName(B column)
                End If
                'this is how to get the bc range
                Dim currentRowRange As Range
                Set currentRowRange = rngBC.Rows(rowCount)
                Dim b As String
                Dim c As String
                b = currentRowRange.Cells(, 1)
                c = currentRowRange.Cells(, 2)
                rowCount = rowCount + 1
            Next rCell
    End With
    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.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

实际上,我希望C列值作为键,B列值作为childrennode的文本。

下一个问题是,我正在使用此树的复选框模式,这意味着所有节点都是可选的。 我希望在默认情况下: -选中所有复选框

-选择/取消选择父节点时,所有子节点都将被选择/取消选择。

-我想让选定的数据存储在某个地方

有人知道怎么做吗? 亲切的问候, 磷