窗体控件checkbox从不同的工作表中复制和粘贴文本

我正在寻找一种方法来复制和粘贴从一个表格到另一个文本，当我勾选表格控制checkbox，并删除它，当我取消选中。 目前我写的macros什么都不做，它没有出现任何错误，它只是不起作用。 我到目前为止是：

Sub CheckBox3_Click() Application.ScreenUpdating = False If CheckBox3 = True Then Sheets("Data Sheet").Activate Range("B1").Select Selection.Copy Sheets("Sheet1").Select Range("C1").Select ActiveSheet.Paste Application.ScreenUpdating = True End If If CheckBox3 = False Then ActiveSheet.Range("C1").Select Selection.Delete End If End Sub 

任何帮助将不胜感激，谢谢。

Answer 1

要克服运行时错误，请将您的代码更改为

 ActiveSheet.Range("B1").Select 

并针对目标范围C1执行相同的操作

然而，更好的方法是通过使用VBA，而不是“macros录制”一起摆脱Select和Activate所有…使用范围对象，这将简化您的代码，避免杂乱的屏幕跳跃等…

 Private Sub CheckBox1_Click() Dim SrcRange As Range, TrgRange As Range Set SrcRange = Worksheets("Data Sheet").[B1] Set TrgRange = Worksheets("Sheet1").[C1] If CheckBox1 Then TrgRange = SrcRange Else TrgRange = "" End If End Sub