不在列表视图、VBA Excel上显示/创建自定义标头

Question

我在Excel VBA的列表视图中创建自定义标头时遇到问题。不确定是代码还是系统，Office16 x64。提前感谢大家的帮助。

Private Sub UserForm1_Initialize()
    With ListView1
        .View = lvwReport
        .Gridlines = True    
    End With

        With .ColumnHeaders
            .Clear
            .Add , , "Item", 40
            .Add , , "Subitem-1", 55
            .Add , , "Subitem-2", 55
            .Add , , "Subitem-3", 55
            .Add , , "Subitem-4", 55
        End With

End Sub

Answer 1

实际上，这是End With的错误位置，因为您的第二个With .ColumnHeaders以一个点开头，它需要在第一个With内。将第一个End With移到第二个End With的最后面。

Private Sub UserForm1_Initialize()
    With ListView1
        .View = lvwReport
        .Gridlines = True    

        With .ColumnHeaders
            .Clear
            .Add , , "Item", 40
            .Add , , "Subitem-1", 55
            .Add , , "Subitem-2", 55
            .Add , , "Subitem-3", 55
            .Add , , "Subitem-4", 55
        End With 'this ends With .ColumnHeaders

    End With 'this ends With ListView1
End Sub