VBA窗體之ListView

實現窗體功能如下：

1、點擊添加表頭：BtnAddTitle_Click

2、點擊添加記錄：BtnAddRecord_Click

 

 

代碼如下：

Option Explicit

Private Sub BtnAddTitle_Click()
    With ListView1
        .ColumnHeaders.Clear    '添加之前先清空
        Dim i As Integer        '循環變量
        Dim col As Integer      '用於記錄列數
        col = Range("a1").End(xlToRight).Column
        For i = 1 To col
            If i = 1 Then
                .ColumnHeaders.Add i, , Cells(1, i), .Width / col, lvwColumnLeft
            Else
                .ColumnHeaders.Add i, , Cells(1, i), .Width / col, lvwColumnCenter
            End If
        Next
        
        .Gridlines = True       '顯示邊框線
        .FullRowSelect = True   '支持整行選擇
        .View = lvwReport       '設置數據以表格形式顯示
        
    End With
End Sub

Private Sub BtnAddRecord_Click()
    Dim itm As ListItem
    Dim i As Integer, j As Integer
    Dim endCol As Integer, endRow As Integer
    endCol = Range("a1").End(xlToRight).Column
    endRow = Range("a1").End(xlDown).Row
    
    With ListView1
        .ListItems.Clear
        For i = 2 To endRow
            Set itm = .ListItems.Add()
          
            For j = 1 To endCol - 1
                itm.Text = Cells(i, 1)
                itm.SubItems(j) = Cells(i, j + 1)
            Next
        Next
    End With
    
End Sub