复选框的Excel宏如果为true

时间:2017-04-18 14:11:29

标签: excel vba excel-vba

我需要一个宏或一行来添加到我的代码中,当复选框为true或" Checked"我需要它将特定单元格的内容复制到同一工作簿中的工作表中的另一个内容我能够获得的是此代码

Intellij

但是正如你所看到的那样,只有当我选中了复选框时才能让我复制并粘贴这个范围我需要的是在复选时将其复制并且可能不让它到达sheet2中的单元格允许在一些指定的单元格中粘贴多个选项我知道我有代码sheet2.select但我老实说不知道任何其他编码,我需要为超过一百个单元格编写这种编码,所以非常感谢您的帮助如果有人可以请你死在这里

1 个答案:

答案 0 :(得分:0)

 If CheckBox1.Value = True Then 
   ThisWorkbook.Sheets("Sheet2").Range("A1:C4").Value = ThisWorkbook.Sheets("Sheet1").Range("A1:C4").Value 
 End if