Excel VBA批量检查用户窗体ListBox选中状态的问题求助

我有一个用户窗体Userform1，其中包含4个已填充选项的ListBox（ListBox1至ListBox4）。用户选择条目后点击CommandButton1，VBA宏会将每个ListBox的值写入Excel日志工作表，目前填充选项及写入数据的代码均正常运行。

现在需要在写入数据前强制检查所有ListBox都有选中项，否则后续分析会丢失数据完整性。我已掌握单个ListBox的检查方法，但希望写通用代码适配任意数量的ListBox，三次尝试均出现问题：

尝试1及错误 #

'Attempt 1
For Each Control In Me.Controls
    If Controls.Name Like "Listbox*" Then
        If Controls.Value <> "" Then
            Else: MsgBox ("You must select a value for every list.")
            GoTo ERROR_ENDSUB
        End If
    End If
Next

报错信息：438“对象不支持该属性或方法”，报错行：If Controls.Name...
错误原因：循环变量是单数Control，但代码里误用了复数Controls（窗体的控件集合），应该用Control.Name；另外直接通过名称匹配控件类型不可靠，若遇到非ListBox控件调用Value属性会报错。

尝试2及错误 #

'Attempt 2
Dim sh as Worksheet
Set sh = ThisWorkbook.Sheets("Downtime")
For i = 1 To 4
    If "sh.listbox" & i & ".value" <> "" Then
        Else: MsgBox ("You must select a value for every list.")
        GoTo ERROR_ENDSUB
    End If
Next

问题：代码无效，即使ListBox为空仍会写入数据且无提示框
错误原因：这里只是拼接了一个字符串"sh.listbox1.value"，并没有实际获取控件的Value属性，字符串永远不为空，所以判断逻辑完全失效。

尝试3及错误 #

'Attempt 3
Dim LB as ListBox
For i = 1 To 4
    Set LB = ListBoxes("Listbox" & i)
    If LB.Value <> "" Then
        Else: MsgBox ("You must select a value for every list.")
        GoTo ERROR_ENDSUB
    End If
Next

报错信息：编译错误“子程序或函数未定义”，高亮Listboxes()
错误原因：ListBoxes()是Excel工作表的控件集合方法，用户窗体的控件需要通过Me.Controls来获取，不能直接调用这个方法。

背景：我是化工工程师，此前仅擅长Excel公式，近一周才开始学习VBA，因公司表格自动化任务规模扩大，对VBA对象模型不熟悉。

正确解决方法 #

方法1：遍历窗体所有ListBox（通用适配任意数量） #

通过控件类型判断，遍历窗体上所有ListBox，检查选中状态：

Private Sub CommandButton1_Click()
    Dim ctrl As Control
    
    ' 遍历所有控件，检查ListBox选中状态
    For Each ctrl In Me.Controls
        ' 准确判断当前控件是否为ListBox
        If TypeName(ctrl) = "ListBox" Then
            ' ListIndex=-1表示未选中任何项
            If ctrl.ListIndex = -1 Then
                MsgBox "请为所有列表选择选项！", vbExclamation
                Exit Sub ' 或跳转到你的ERROR_ENDSUB标签
            End If
        End If
    Next ctrl
    
    ' 以下是原有的写入数据到工作表的代码
    ' ......

ERROR_ENDSUB:
    ' 错误处理或清理代码（如果有的话）
End Sub

优势：无需指定ListBox数量，新增ListBox后代码自动适配，判断逻辑更可靠。

方法2：按名称批量指定（适合固定数量ListBox） #

如果ListBox命名固定为ListBox1至ListBoxN，可通过控件名称直接获取：

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim lb As ListBox
    
    ' 检查ListBox1到ListBox4
    For i = 1 To 4
        ' 通过窗体控件集合获取指定名称的ListBox
        Set lb = Me.Controls("ListBox" & i)
        If lb.ListIndex = -1 Then
            MsgBox "请为所有列表选择选项！", vbExclamation
            Exit Sub
        End If
    Next i
    
    ' 写入数据的代码
    ' ......

ERROR_ENDSUB:
End Sub

说明：Me.Controls("控件名")是用户窗体中获取控件的正确方式，避免混淆工作表控件和窗体控件。

内容的提问来源于stack exchange，提问作者Julie S.