Excel 验证是否选中了vba复选框

我需要知道是否至少有一个复选框被选中，我有这些代码行，但似乎并不像我预期的那样工作。有人能帮我吗？非常感谢。当我有它如下，它将继续要求用户选中一个框，即使至少有一个框选中

 If Sheet1.ListBox1.Selected(0) = False Or Sheet1.ListBox2.Selected(0) = False Then
    MsgBox "Please check a box"
    Exit Sub
 End If

如果我这样做的话，即使没有复选框，它也不会要求用户选中复选框。但是如果选中了一个框，那么它将要求用户至少选中一个框

 If Sheet1.ListBox1.Selected(0) = True Or Sheet1.ListBox2.Selected(0) = True Then
    MsgBox "Please check a box"
    Exit Sub
 End If

---

谢谢你的帮助。另外，还有一件事，朋友们，如果你是非常友好的帮助我，因为我是新的编码请，请帮助我与非常简单的代码行。我真的很讨厌实现智能代码行，但我不知道它能做什么。我想了解代码的作用，以便下次了解。谢谢,谢谢

这将检查工作表上是否至少选中了一个复选框：

Sub terraniann()
    Dim o As Object
    For Each o In ActiveSheet.OLEObjects
        If InStr(1, o.Name, "CheckBox") > 0 Then
            If o.Object.Value = True Then
                MsgBox "at least one box has been checked"
                Exit Sub
            End If
        End If
    Next
    MsgBox "no checkboxes have been checked"
End Sub

---

为什么要在代码中使用列表框？您不是在使用复选框吗？我从excel工作表中检索列标题，然后将这些列标题作为复选框添加到列表框中，以便用户可以选择要使用的标题。但是在用户开始处理文件之前，我需要确保用户在两个列表框中至少选择了一个复选框。我有四个复选框，但是如果它对两个有效，那么它应该对四个有效。那么您正在检查列表框中的任何项是否被选中？您通常不会只使用Sheet1.ListBox1.ListIndex吗？如果ListIndex为-1，则不选择任何内容Yes Sir。我是编程新手，所以我不知道我可以使用Sheet1.ListBox1.ListIndex。不知道如何使用它，但我会检查谷歌进一步。一旦我知道如何更改，我将立即通知您。当您使用MsgBox Sheet1.ListBox1.ListIndex时会发生什么？这是一个奇特的代码：。非常感谢。我实现了它，但它一直弹出没有选中复选框，即使我在每个ListBox4中至少选中了一个复选框。