Excel 表单：选中复选框时复制单元格的 VBA 代码答案

【问题标题】：Excel Form: VBA Code to copy a cell when a check box is selectedExcel 表单：选中复选框时复制单元格的 VBA 代码
【发布时间】：2016-10-05 09:24:09
【问题描述】：

我是 Excel 表单的新手，想知道是否有人可以为我尝试为工作创建的程序提供简单的代码。基本上，是为了让我的工作更轻松！

我正在寻找的是当一个特定的复选框被选中并且我点击一个复制按钮时，它会复制一个特定的单元格的代码。我将有多个复选框，但只有一个复制按钮。任何帮助将不胜感激！

【问题讨论】：

请添加您已经尝试过的代码sn-ps。

标签： excel checkbox activex vba

【解决方案1】：

这假设您的复制按钮被命名为 CopyButton 如果选中名为 CheckBox1 的复选框，它将复制单元格 A1 A2 如果选中 CheckBox2 等，您可以更改下面的单元格引用你并没有真正指定如何处理复制的数据，所以它只是复制它而不做任何事情

Public Sub CopyButton_Click()

    if(CheckBox1.Value = true) then
        ActiveSheet.Range("A1").copy
    end if

    if(CheckBox2.Value = true) then
        ActiveSheet.Range("A2").copy
    end if

    'copy the chunk above for more check boxes

End Sub

【讨论】：

非常感谢您的快速回复。实际上，我很尴尬地添加了我尝试过的内容。我是原始人。能够使复制按钮起作用，但不能使复选框起作用。这是我第一次尝试这个。但以上作品完美！太感谢了！还有一件事我忘了提。有没有办法添加代码，所以一次只能检查一个复选框？非常感谢！！！
我不知道你说的“所以一次只能选中一个复选框”是什么意思，你能说清楚一点吗？
对不起！让我们看看....所以，我有一个带有 3 个复选框（A1、A2 和 A3）的复制按钮，这取决于我点击复制按钮时选中的复选框，它将复制特定的单元格编号。但是，我只希望一次能够选中一个复选框。所以，如果我按下“A1”然后选择“A2”，它将导致“A1”取消选中。希望有帮助！ :)
啊，是的，我现在明白了.. 您可以添加一些代码，这样当您更改复选框的值时，其他复选框的值也会相应更改，但是更简洁的方法是使用选项按钮。它们的功能类似于复选框，但默认情况下您一次只能选择一个，这应该是完美的。您需要用选项按钮替换您的复选框，并将代码从 CheckBox1.Value 更改为 OptionButton1.Value 等，但应该这样做，下面的链接以获取有关选项按钮的更多信息:) excel-easy.com/vba/examples/option-buttons.html