使用VBA

在活動單元格粘貼我想要一個表（範圍A1至AV3）從工作表2複製到活動單元格在工作表1個使用VBA

我當前的代碼是：

Private Sub CommandButton1_Click() 
Worksheets("Sheet2").Range("A1:AV3").Copy 
Worksheets("Sheet1).ActiveCell.PasteSpecial Paste:=xlPasteFormats 
Worksheets("Sheet1").ActiveCell.PasteSpecial Paste:=xlPasteValues 
End Sub

可以

任何人的幫助我解決這個問題？我希望每次點擊按鈕時，它都會複製到任何活動單元格。

來源

2017-03-11 Rosya Chairani

如果* Sheet1 *不是「Active」，那麼'ActiveCell'將不在該表單上。 –

該按鈕位於Sheet 1 ，所以當單擊按鈕時，Sheet1將處於活動狀態。 –

您在工作表（「Sheet1）.ActiveCell.PasteSpecial粘貼：= xlPasteFormats」末尾缺少一點'''是'工作表（「Sheet1」）。ActiveCell.PasteSpecial粘貼：= xlPasteFormats' –

假設你ActiveCell處於「工作表Sheet1」，並命令按鈕也是「工作表Sheet1」，沒有必要ActiveCell前加Worksheets("Sheet1")，只是使用類似下面的代碼：

Private Sub CommandButton1_Click() 

Worksheets("Sheet2").Range("A1:AV3").Copy 
ActiveCell.PasteSpecial xlPasteFormats 
ActiveCell.PasteSpecial xlPasteValues 

End Sub

來源

2017-03-11 15:06:01

aaaaa非常感謝你，它的工作原理，謝謝 –

@RosyaChairani只是確保你的'ActiveCell '確實在「Sheet1」中 –

@ShaiRado - 如果用戶單擊Sheet1上的按鈕（按鈕代碼位於Sheet1的代碼片上），活動單元**是否不會在Sheet1上？當另一個工作表處於活動狀態時，正在嘗試以編程方式「點擊」Sheet1的代碼表上的私人子表單。我想如果選擇了一個對象，它可能會失敗。 – Jeeped

回答

相關問題