Board logo

標題: [發問] 錯誤1004 [打印本頁]
作者: li_hsien    時間: 2013-11-19 10:59     標題: 錯誤1004

GOOGLE了一下好像常常有這種情況

跑到 ".Range(Cells(j, 1), Cells(j, 23)).Copy"
就發生錯誤了
我一直抓不出問題@@

我單獨抓出錯誤那行執行還可以跑

不知是哪邊出錯了

麻煩各位大大幫幫忙  謝謝  :  )
  1. Sub CommandButton1_Click()

  3.     For i = 5 To 10
  4.         
  5.         MsgBox "Sheets: " & i
  6.         
  7.         With Worksheets(i)
  8.         
  9.         row_from = .Range("A35536").End(xlUp).row
  10.         
  11.         For j = 2 To row_from

  13.             If .Range("S" & j) <> 0 Then
  14.             MsgBox "欄位: " & j
  15.             row_to = Worksheets(4).Range("A35536").End(xlUp).row + 1
  16.             .Range(Cells(j, 1), Cells(j, 23)).Copy      <------錯誤1004
  17.             Worksheets(4).Cells(row_to, 1).PasteSpecial Paste:=xlPasteAll
  18.             .Range(Cells(j, 1), Cells(j, 23)).Interior.Color = 65535

  20.             End If
  21.         Next
  22.         End With
  23.     Next
  24.    
  25. End Sub
複製代碼
作者: GBKEE    時間: 2013-11-19 11:36

回復 1# li_hsien
Sub CommandButton1_Click() 這程序是工作表物件模組中的程序 對嗎?

  2.          With Worksheets(i)
  3.               .Range(.Cells(j, 1), .Cells(j, 23)).Copy      '正確
  4.              ' .Range(Cells(j, 1), Cells(j, 23)).Copy       '錯誤1004
  5.              ' 這Cells(j, 1), Cells(j, 23) 是這程序工作表物件模組中的Cells
  6.              '組合在.Range( , )會錯誤  1004
  7.          With End
複製代碼
作者: li_hsien    時間: 2013-11-19 11:42

回復 2# GBKEE


板大你真的是救星!!!

謝謝你

想破頭一直找不到 原來是差在那小小的一點@@
作者: GBKEE    時間: 2013-11-19 11:52

回復 3# li_hsien
想破頭一直找不到

放在一般模組(Module)或 ThisWorkbook,不會有錯誤,但 .Range(Cells(j, 1), Cells(j, 23)).Copy      
這Cells(j, 1)是作用中工作表的Cells(j, 1),不是With Worksheets(i)的Cells(j, 1)
作者: li_hsien    時間: 2013-11-19 13:10

回復 4# GBKEE

我還真不知有這微妙的差異

但如果 .Range(.Cells(j, 1), .Cells(j, 23)).Copy

放在一般模組(Module)或 ThisWorkbook上

也可以運行嗎???



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