返回列表 上一主題 發帖

[發問] 請問儲存格複製的問題

[發問] 請問儲存格複製的問題

請問一下"06"&"TEMP"皆在同一活頁簿裡
但用以下的方式會出現錯誤訊息
執行階段錯誤 '1004':
應用程式或物件定義上的錯誤

請問語法那裡有錯誤??
是否有大大可以幫忙解說一下。謝謝
  1.     If K = 1 Then
  2.     Else
  3.         For I = 1 To K
  4.             J = Sheets("TEMP").Cells(I, 1)
  5.             Sheets("06").Range(Cells(J, 5), Cells(J, 6)) = Sheets("TEMP").Range(Cells(I, 2), Cells(I, 3))
  6.         Next
  7.     End If
複製代碼
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

回復 1# yiwei0707
    If K = 1 Then

    Else

        For I = 1 To K

            J = Sheets("TEMP").Cells(I, 1)

            Sheets("06").Range(Sheets("06").Cells(J, 5), Sheets("06").Cells(J, 6)) = Sheets("TEMP").Range(Sheets("TEMP").Cells(I, 2), Sheets("TEMP").Cells(I, 3))

        Next

    End If
學海無涯_不恥下問
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 2# Hsieh


    測試更改了之後就沒出現錯誤,但資料並不會COPY到"06"工作表的位子…
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 3# yiwei0707


    這是針對程式碼錯誤的修正,至於資料沒辦法寫入,光看部份程式碼是無法給你任何建議的
學海無涯_不恥下問
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 4# Hsieh


    附上檔案,請大大幫忙協助一下。謝謝

分類銷售查詢.zip (669.57 KB)
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 5# yiwei0707


    還是出在指定工作表的問題
分類銷售查詢.rar (256.71 KB)
學海無涯_不恥下問
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 6# Hsieh


    謝謝大大的幫忙~
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題