Board logo

標題: [發問] 請問儲存格複製的問題 [打印本頁]
作者: yiwei0707    時間: 2017-12-5 19:30     標題: 請問儲存格複製的問題

請問一下"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
複製代碼
作者: Hsieh    時間: 2017-12-6 09:24

回復 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
作者: yiwei0707    時間: 2017-12-7 21:36

回復 2# Hsieh


    測試更改了之後就沒出現錯誤，但資料並不會COPY到"06"工作表的位子…
作者: Hsieh    時間: 2017-12-7 23:03

回復 3# yiwei0707


    這是針對程式碼錯誤的修正，至於資料沒辦法寫入，光看部份程式碼是無法給你任何建議的
作者: yiwei0707    時間: 2017-12-8 12:13

回復 4# Hsieh


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

[attach]28097[/attach]
作者: Hsieh    時間: 2017-12-10 09:52

回復 5# yiwei0707


    還是出在指定工作表的問題
[attach]28102[/attach]
作者: yiwei0707    時間: 2017-12-10 19:54

回復 6# Hsieh


    謝謝大大的幫忙~



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