表單控件復選框，用於從其他工作表復制和粘貼文本

Question

我正在尋找一種方法，當我勾選表單控件復選框時，將文本從一張紙復制並粘貼到另一張紙上，而在取消選中它時將其刪除。 目前，我編寫的宏沒有執行任何操作，它沒有出現任何錯誤，只是無法正常工作。 到目前為止，我有：

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而不是“宏錄制”來擺脫“ Select和“一起Activate所有問題……使用Range對象可以簡化代碼，避免混亂的屏幕跳轉等。

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