Excel-基于单元格内容设置Userform复选框的值

我正在开发一个userform，其中一个部分包含三个复选框，用于表示世界的不同部分。根据它们的组合，在单元格C9中输入文本值

我想让复选框反映用户返回userform时单元格中已经存在的内容。我已经能够对userform中的其他每一项（选项按钮、文本框、组合框）执行此操作，但是我的复选框根本没有响应，它们只是在userform出现时被取消选中，而不管C9的值如何

以下代码位于userform_Initialize模块中。有什么想法吗

If wsM.Range("C9").Value = "EU-5" Then
        NABox.Value = False And EUBox.Value = True And RoWBox.Value = False
    ElseIf wsM.Range("C9").Value = "EU-5 & RoW" Then
        NABox.Value = False And EUBox.Value = True And RoWBox.Value = True
    ElseIf Sheets("Menu").Range("C9").Value = "NA & EU-5" Then
        NABox.Value = True And EUBox.Value = True And RoWBox.Value = False
    ElseIf wsM.Range("C9").Value = "North America" Then
        NABox.Value = True And EUBox.Value = False And RoWBox.Value = False
    ElseIf wsM.Range("C9").Value = "NA & RoW" Then
        NABox.Value = True And EUBox.Value = False And RoWBox.Value = True
    ElseIf wsM.Range("C9").Value = "Rest of World" Then
        NABox.Value = False And EUBox.Value = False And RoWBox.Value = True
    Else: NABox.Value = False And EUBox.Value = False And RoWBox.Value = False
End If

---

谢谢您的帮助。

将

Me.

关键字放在复选框名称前面。
最好使用

SELECT CASE

语句，而不是

ElseIf

NABox.Value=False和EUBox.Value=True和RoWBox.Value=False

需要是三个独立的命令。可以在单独的行上，也可以使用

：

（以下代码中的两个示例）拆分

---

编辑-我认为您不需要显式声明错误的复选框-当表单打开时，默认情况下它们是错误的。

谢谢您的所有三个答案！（.Me/Select Case/not stating false values）正在运行，现在可读性更强。

Private Sub UserForm_Initialize()

    With Me
        Select Case wsm.Range("C9").Value
            Case "EU-5"
                NABox.Value = False
                EUBox.Value = True
                RoWBox.Value = False
            Case "EU-5 & RoW"
                NABox.Value = False : EUBox.Value = True
                RoWBox.Value = False
            Case "NA & EU-5"

            Case Else

        End Select
    End With

End Sub