VBA用户表单ListBox值无法传递至Excel表格问题求助

核心原因：ListBox多选模式导致Value属性失效 #

你的CityListBox大概率被设置成了多选模式（MultiSelect属性不是fmMultiSelectSingle）。当ListBox允许多选时，Value属性无法返回单一选中值，会直接返回Null，这就是触发"invalid use of null"错误的根本原因。

验证方法 #

打开用户表单设计模式：

1. 选中CityListBox控件
2. 查看右侧属性窗口的MultiSelect选项
   • 如果显示为fmMultiSelectMulti或fmMultiSelectExtended，就确认是这个问题

解决办法 #

情况1：仅需单选城市（匹配你的需求场景）

直接把MultiSelect属性修改为fmMultiSelectSingle，之后CityListBox.Value就能正常返回选中的城市名称，原有代码无需改动。

情况2：需要支持多选功能

如果要保留多选逻辑，必须修改OKButton_Click中的取值代码，不能直接用Value，要通过遍历选中项获取内容：

Private Sub OKButton_Click()
    Dim emptyRow As Long
    Dim selectedCity As String
    Dim i As Integer
    
    Sheets("DinnerPlannerData").Activate
    
    ' 遍历ListBox获取选中城市（示例为取第一个选中项，可改为拼接多个）
    selectedCity = ""
    For i = 0 To CityListBox.ListCount - 1
        If CityListBox.Selected(i) Then
            selectedCity = CityListBox.List(i)
            ' 若需拼接多个选中项，替换为：selectedCity = selectedCity & ", " & CityListBox.List(i)
            Exit For ' 取第一个选中项后退出循环
        End If
    Next i
    
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    Cells(emptyRow, 1).Value = NameTextBox.Value
    Cells(emptyRow, 2).Value = PhoneTextBox.Value
    Cells(emptyRow, 3).Value = selectedCity ' 使用获取到的选中值
    Cells(emptyRow, 4).Value = DinnerComboBox.Value
    
    ' 其余原有代码保持不变...
End Sub

额外优化：防止空选报错 #

可以在代码开头增加判断，避免用户未选择城市就点击OK：

If CityListBox.ListIndex = -1 Then
    MsgBox "请选择城市！"
    Exit Sub
End If

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