Excel表单：选择复选框时复制单元格的VBA代码

问题描述：

我是新来的Excel表单，想知道是否有人可以帮助简单的代码，我正在尝试为工作创建一个程序。基本上，为了让我的工作更轻松！Excel表单：选择复选框时复制单元格的VBA代码

我正在寻找的是代码，当选择一个特定的复选框，然后我打副本按钮，它会将特定的细胞。我将有多个复选框，但只有一个复制按钮。任何帮助将不胜感激！

请添加您已经尝试过的代码片段。 – searchengine27

答

这是假定您的副本按钮被命名为复制按钮它会复制单元格A1，如果被选中名为CheckBox1复选框 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

非常感谢您的快速回复。我真的很尴尬添加我尝试过的东西。我是原始人。能够让复制按钮工作，但不是复选框。这是我的第一次尝试。但上述作品完美！非常感谢！还有一件事我忘了提及。有没有添加代码的方法，因此一次只能检查一个复选框？非常感谢！！！ – user3806255

我不确定你的意思是“一次只能检查一个复选框”，你能说清楚吗？ – lllpratll

对不起！让我们看看....所以，我有一个带有3个复选框（A1，A2＆A3）的复制按钮，这取决于当我点击复制按钮时复选框将被复选，它将复制特定的单元格编号。但是，我只想要一个复选框可以一次检查。所以，如果我推“A1”，然后选择“A2”，它会导致“A1”取消选中。希望有所帮助！ :) – user3806255

Excel表单：选择复选框时复制单元格的VBA代码

相关推荐