Excel VBA:输入命令按钮时使用复选框值

时间:2018-05-05 17:34:11

标签: excel vba button checkbox command

我正在尝试通过在Excel中编写一个旧的“选择你自己的冒险”书籍来教自己VBA(仅仅是为了我自己的乐趣,而不是出售)。我有一张带有单个ActiveX复选框(“chkTakeCoins”)和单独命令按钮的工作表。这些不在Userform中,它们只是在工作表上。我无法弄清楚如何编写命令按钮代码以查看chkTakeCoins是真还是假。我是否需要从命令按钮代码调用chkTakeCoins复选框?如下所示,我收到了“需要对象”的错误。

    Sub btn5to147_Click()
        If chkTakeCoins.Value = True Then
             Sheets("Inventory").Range("coins") = 1
        Else
             Sheets("Inventory").Range("coins") = 0
        End If
        Worksheets("147").Activate
    End Sub

帮助表示赞赏。

0 个答案:

没有答案