我之前也踩过这个动态创建ListView控件的坑！你遇到的复选框不显示、Checked属性不生效的问题，本质是控件渲染顺序和初始化时机不对导致的，下面给你具体的解决步骤和修改后的代码：

核心问题原因 #

Excel VBA中的MSComctlLib.ListView控件在动态创建时，对复选框的初始化有严格的顺序要求：如果先定义列再开启复选框，控件无法正确为第一列分配复选框的渲染区域，导致UI上只显示空白，点击后才触发局部重绘；同时未正确渲染的控件也无法响应Checked属性的设置。

解决方案步骤 #

1. 调整复选框开启的顺序：把.CheckBoxes = True移到添加列和填充数据之前
2. 强制控件重绘：填充完数据后手动触发ListView刷新，或者切换Multipage页面强制系统重新渲染

修改后的创建ListView代码 #

' 确保ListView被添加到Multipage的目标页面中
Set newListView = Controller_MultiPage.Pages(Controller_MultiPage.Pages.Count - 1).Controls.Add("MSComctlLib.ListViewCtrl.1", "ListView_" & Controller_MultiPage.Pages.Count)

With newListView
    .MultiSelect = False
    .Width = Controller_MultiPage.Width - 10
    .Height = Controller_MultiPage.Height - 20
    .View = lvwReport
    .HideColumnHeaders = False
    
    ' 关键：先开启复选框，再定义列
    .CheckBoxes = True
    
    .ColumnHeaders.Add Text:="Signal Name", Width:=.Width / 10 * 4
    .ColumnHeaders.Add Text:="Type", Width:=.Width / 10
    .ColumnHeaders.Add Text:="I/O", Width:=.Width / 10
    .ColumnHeaders.Add Text:="Description", Width:=.Width / 10 * 4
    .FullRowSelect = True
End With

修改后的填充数据代码 #

For Each node In list
    With node.Attributes
        Set listItem = newListView.ListItems.Add(Text:=.getNamedItem("Name").Text)
        listItem.ListSubItems.Add = .getNamedItem("Type").Text
        listItem.ListSubItems.Add = IIf(.getNamedItem("Input").Text = "1", "IN", "OUT")
        listItem.ListSubItems.Add = .getNamedItem("Description").Text
        listItem.Checked = False ' 现在这个设置会正常生效
    End With
Next

' 强制ListView重绘，确保复选框显示
newListView.Refresh

' 可选：如果Refresh不生效，切换Multipage页面触发全局渲染
Dim currPageIdx As Integer
currPageIdx = Controller_MultiPage.Value
Controller_MultiPage.Value = 0 ' 切换到第一个页面
Controller_MultiPage.Value = currPageIdx ' 切回当前页面

额外注意点 #

• 确保动态创建的ListView控件的Parent是Multipage的具体页面（而不是UserForm本身），否则控件的渲染上下文会出错
• 如果你的Excel版本较旧，可能需要确认MSComctlLib控件已正确引用（开发工具 -> 引用 -> 勾选"Microsoft Windows Common Controls 6.0 (SP6)"）

内容的提问来源于stack exchange，提问作者Caligola