命令按鈕當中,如何能將Sheet1複製到Sheet2
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
命令按鈕當中,如何能將Sheet1複製到Sheet2
命令按鈕當中,如何能將Sheet1複製到Sheet2, 以下寫法會出現錯誤, 該怎麼寫才好?
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A11").Select
ActiveSheet.Paste
End Sub |
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select '==>感謝指正錯誤
Range("A11").Select
ActiveSheet.Paste
End Sub
可是, 我是在CommandButton1_Click()的情況下執行會有,
執行階段錯誤'1004'
Class Range 的Select方法失敗
請教先進,如何解. |
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
多謝指點, 我會多多參考新手 VBA 入門常見問題.
請教先進,
如程式碼在Sheet3
3#的02.Sheets("Sheet1").Select, 要如何修改 |
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
|
請教只要Range("A1"到"A10"), 使用Sheets("Sheet1").Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A11")的模式該如何表達, 感謝再感謝! |
|
|
|
|
|
|
|
發表於 2012-2-16 15:43
| 
