ListBox选中内容无法显示至TextBox问题排查求助

核心问题1：变量作用域导致CommandButtonEnviar_Click无法获取选中值 #

selectedPersons和selectedFunctions是ListBoxSector_Click事件内的局部变量，仅能在该事件过程中使用。到CommandButtonEnviar_Click事件里，这两个变量属于未初始化状态，因此调试弹窗显示为空。

核心问题2：ListBoxSector_Click内的冗余代码与未声明变量 #

代码在计算完人员和职能字符串后，先手动清空文本框再赋值，属于无意义的冗余操作；同时未声明变量j，违反VBA变量声明规范，可能引发隐性错误。

核心问题3：多选中模式下的选中项判断逻辑失效 #

当ListBox设置为fmMultiSelectMulti时，ListIndex仅返回最后选中项的索引，用ListBoxSector.ListIndex >= 0判断是否有选中项会遗漏部分选中情况。

修复后的完整代码 #

首先在用户窗体模块顶部添加Option Explicit强制变量声明，避免隐性错误：

Option Explicit
' 声明模块级变量，让所有事件过程都能访问
Dim selectedPersons As String
Dim selectedFunctions As String
Dim fechaOriginal As String ' 补充声明该变量

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ListBoxSector.MultiSelect = fmMultiSelectSingle
    
    OptionButton1.Caption = "Nota Unica"
    OptionButton1.Value = True
    OptionButton2.Caption = "Multiples Notas"
    
    ' 指定包含该列的工作表
    Set ws = ThisWorkbook.Sheets("Tabla")
    
    ' 查找A列有数据的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 将A列从第4行开始的值填充到ListBoxSector
    For i = 4 To lastRow
        If ws.Cells(i, "A").Value <> "" Then ' 避免空单元格
            ListBoxSector.AddItem ws.Cells(i, "A").Value
        End If
    Next i
   
    ' 在TextBoxFecha中显示今日日期，格式为指定样式
    TextBoxFecha.Value = Format(Date, "dd ""de"" mmmm ""de"" yyyy")
    fechaOriginal = TextBoxFecha.Value ' 保存原始日期
End Sub

Private Sub OptionButton1_Click()
    ListBoxSector.MultiSelect = fmMultiSelectSingle
    ' 切换选择模式后刷新选中值
    UpdateSelectedItems
End Sub
 
Private Sub OptionButton2_Click()
    ListBoxSector.MultiSelect = fmMultiSelectMulti
    ' 切换选择模式后刷新选中值
    UpdateSelectedItems
End Sub

' 把获取选中项对应人员和职能的逻辑封装成独立子过程
Private Sub UpdateSelectedItems()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    ' 每次刷新前先清空变量
    selectedPersons = ""
    selectedFunctions = ""

    ' 指定包含该列的工作表
    Set ws = ThisWorkbook.Sheets("Tabla")
    
    ' 查找A列有数据的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有ListBox项，检查是否被选中
    For i = 0 To ListBoxSector.ListCount - 1
        If ListBoxSector.Selected(i) Then
            For j = 4 To lastRow
                If ws.Cells(j, "A").Value = ListBoxSector.List(i) Then
                    If selectedPersons <> "" Then
                        selectedPersons = selectedPersons & " "
                        selectedFunctions = selectedFunctions & " "
                    End If
                    selectedPersons = selectedPersons & ws.Cells(j, "B").Value
                    selectedFunctions = selectedFunctions & ws.Cells(j, "C").Value
                    Exit For
                End If
            Next j
        End If
    Next i
    
    ' 更新文本框显示
    TextBoxPersona.Value = selectedPersons
    TextBoxFuncion.Value = selectedFunctions
End Sub

Private Sub ListBoxSector_Click()
    ' 点击ListBox时刷新选中值
    UpdateSelectedItems
End Sub

Private Sub CheckBoxFecha_Change()
    If CheckBoxFecha.Value Then
        ' 勾选复选框时，重置日期
        TextBoxFecha.Value = Format(Date, "dd ""de"" mmmm ""de"" yyyy")
    Else
        ' 取消勾选时，恢复修改后的日期
        TextBoxFecha.Value = fechaOriginal
    End If
End Sub

Private Sub TextBoxFecha_Change()
    ' 用户手动修改时更新原始日期
    fechaOriginal = TextBoxFecha.Value
End Sub

Private Sub CommandButtonEnviar_Click()
    Dim hasSelected As Boolean
    ' 检查是否有选中项（兼容单/多选中模式）
    hasSelected = False
    For i = 0 To ListBoxSector.ListCount - 1
        If ListBoxSector.Selected(i) Then
            hasSelected = True
            Exit For
        End If
    Next i
    
    If Not hasSelected Then
        MsgBox "Por favor, selecciona una Cámara de Turismo.", vbExclamation, "Campo Obligatorio"
        Exit Sub
    End If
    
    If TextBoxNota.Text = "" Then
        MsgBox "El campo 'Nota' no puede estar vacío.", vbExclamation, "Error"
        Exit Sub
    End If
    
    ' 现在可以正常访问模块级变量
    MsgBox "Selected Persons: " & selectedPersons
    MsgBox "Selected Functions: " & selectedFunctions
End Sub

关键修复点说明 #

1. 模块级变量声明：将selectedPersons、selectedFunctions和fechaOriginal声明在模块顶部，让所有事件过程都能访问，彻底解决作用域问题。
2. 逻辑封装：把获取选中项对应数据的逻辑封装成UpdateSelectedItems子过程，避免代码重复，同时在ListBox点击、单选/多选按钮切换时调用，确保数据实时更新。
3. 选中项判断优化：遍历ListBox所有项判断是否被选中，兼容单选中和多选中模式，避免ListIndex判断的局限性。
4. 强制变量声明：添加Option Explicit，要求所有变量必须声明，避免未声明变量引发的隐性错误。

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