Excel VBA技术问题：MultiPage表单中ListBox无法选中行

看起来你已经搞定了提交按钮添加数据到ListBox的功能，现在卡在选中ListBox行回显数据这一步对吧？这种点击无响应的情况，多半是事件绑定、焦点或者控件设置的问题，我给你梳理几个常见的排查和解决方向：

1. 确认ListBox的Click或Change事件已正确编写 #

首先最容易忽略的是：你有没有给ListBox添加对应的事件处理代码？要实现选中行回显，必须在ListBox的Click或者Change事件里写逻辑。

举个具体的代码示例（假设你的TextBox叫TextBox1，CheckBox叫CheckBox1，ListBox是ListBox1）：

Private Sub ListBox1_Click()
    ' 先判断是否有选中的行（ListIndex=-1表示无选中）
    If ListBox1.ListIndex <> -1 Then
        ' 回显TextBox内容（假设ListBox第1列存的是TextBox的值）
        TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 0)
        ' 回显CheckBox状态（假设ListBox第2列存的是CheckBox的布尔值）
        CheckBox1.Value = CBool(ListBox1.List(ListBox1.ListIndex, 1))
    End If
End Sub

⚠️ 注意：这段代码必须放在对应MultiPage页面的代码模块里（比如你的目标页面是MultiPage1.Pages(0)，那代码要在这个页面的代码窗口，而不是用户窗体的通用模块）。

2. 检查ListBox的基础属性设置 #

几个关键属性别搞错了：

• Enabled属性：确保ListBox的Enabled是True，如果是False，控件会变灰，根本无法点击。
• SelectionMode属性：设置为fmSelectionModeSingle（单选）或者fmSelectionModeMultiSimple（多选），要是设成fmSelectionModeNone，肯定选不了行。
• MultiColumn属性：既然是多列ListBox，要确保MultiColumn设为True，且ColumnCount和你添加数据的列数一致。

3. 排查焦点被抢占的问题 #

MultiPage偶尔会出现焦点异常的情况，比如页面切换后，ListBox没获得焦点，或者其他控件（比如TextBox）一直霸占焦点。可以试试这两个办法：

• 在MultiPage的Change事件里，强制给ListBox设置焦点：

Private Sub MultiPage1_Change()
    ' 当切换到目标页面时（假设是第1个页面，索引从0开始）
    If MultiPage1.Value = 0 Then
        ListBox1.SetFocus
    End If
End Sub

• 确保ListBox的TabStop属性是True，这样用户能通过Tab键切换到它，也能保证点击时能获取焦点。

4. 检查数据添加时的格式是否正确 #

如果ListBox的数据是通过代码添加的，要确保添加的格式和后续回显逻辑匹配。比如添加CheckBox状态时，要存布尔值而不是字符串，不然回显时CBool转换会出错，导致事件代码静默报错，看起来就像控件没响应。

正确的添加数据示例：

Private Sub CommandButton1_Click()
    ' 添加数据到ListBox
    With ListBox1
        .AddItem
        .List(.ListCount - 1, 0) = TextBox1.Text
        .List(.ListCount - 1, 1) = CheckBox1.Value ' 直接存布尔值，不要转成字符串
    End With
End Sub

5. 排查控件层级问题 #

有时候ListBox会被其他控件（比如标签、框架）覆盖，表面上能看到，但点击时其实点到了上层控件。可以右键点击MultiPage页面，选择「顺序」->「置于顶层」，把ListBox放到最上层。

你可以按照上面的步骤一步步排查，先从事件代码和基础属性开始，这两个是最常见的问题。如果还是不行，可以把你的相关代码贴出来，我再帮你细化分析。

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