標題: [發問] 發生執行階段錯誤'1004': Class Range的Select方法失敗 [打印本頁]

---

作者: zzoo123    時間: 2017-3-19 16:23     標題: 發生執行階段錯誤'1004': Class Range的Select方法失敗

我想複製工作表內容貼上值到其他工作表時發生了錯誤

1. Private Sub 過帳_Click()
   
2. 
   
3.     Sheets("過帳表單").Select
   
4.     Range("A6").Select
   
5.     Application.CutCopyMode = False
   
6. 
   
7.     Sheets("過帳表單").Select
   
8.     Range("A6:F15").Select
   
9.     Application.CutCopyMode = False
   
10.     Selection.Copy
    
11.     Sheets("借出歸還紀錄").Select
    
12.     Range("A3").Select  //這一句會發生執行階段錯誤'1004': Class Range的Select方法失敗
    
13.     Selection.End(xlDown).Select
    
14.     ActiveCell.Offset(1, 0).Range("A1").Select
    
15.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
16.         :=False, Transpose:=False
    
17.    
    
18.     Sheets("過帳表單").Select
    
19.     Range("A6").Select
    
20.    
    
21. End Sub

複製代碼

---

作者: GBKEE    時間: 2017-3-22 09:14

回復 1# zzoo123
你的程式碼在工作表模組
程式碼 Range("A3").Select 是這工作表的Range("A3").Select
**************************
Sheets("借出歸還紀錄").Select  **改變了作用中工作表為Sheets("借出歸還紀錄")**
Range("A3").Select  //這一句會發生執行階段錯誤'1004':
不能在 Sheets("借出歸還紀錄")的 Range中執行, 工作表模組的工作表裡的Range("A3").Select
******************************************
解決方式
可將程式碼放在ThisWorkbook模組 , 試試看
或修改程式碼

1. With Sheets("借出歸還紀錄")
   
2.     .Select
   
3.     .Range("A3").Select
   
4. End With

複製代碼

---

作者: zzoo123    時間: 2017-3-23 02:09

感謝GBKEE的幫忙 問題透過 提供的修改程式碼 已經解決 實在太厲害了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)