返回列表 上一主題 發帖

[發問] 發生執行階段錯誤'1004': Class Range的Select方法失敗

zzoo123

帖子
10 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-9-29 
最後登錄
2024-11-10 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-3-19 16:23 | 只看該作者

[發問] 發生執行階段錯誤'1004': Class Range的Select方法失敗

我想複製工作表內容貼上值到其他工作表時發生了錯誤
  1. Private Sub 過帳_Click()

  3.     Sheets("過帳表單").Select
  4.     Range("A6").Select
  5.     Application.CutCopyMode = False

  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
複製代碼
收藏 分享

zzoo123

帖子
10 
主題
3 
精華
0 
積分
59 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-9-29 
最後登錄
2024-11-10 
3#
發表於 2017-3-23 02:09 | 只看該作者
感謝GBKEE的幫忙 問題透過 提供的修改程式碼 已經解決 實在太厲害了

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題