返回列表 上一主題 發帖

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

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

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

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

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

回復 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

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

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題