麻辣家族討論版版 » Excel程式區 » 請問儲存格複製的問題

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 20
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: OS X & Windows 10
軟體版本: Office 2003 & Office 365
閱讀權限: 10
性別: 男
註冊時間: 2017-7-20
最後登錄: 2022-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-12-5 19:30 | 顯示全部帖子

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

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

請問語法那裡有錯誤??
是否有大大可以幫忙解說一下。謝謝

If K = 1 Then
Else
For I = 1 To K
J = Sheets("TEMP").Cells(I, 1)
Sheets("06").Range(Cells(J, 5), Cells(J, 6)) = Sheets("TEMP").Range(Cells(I, 2), Cells(I, 3))
Next
End If

複製代碼

樓主熱帖

收藏

小學生 Rank: 1

帖子: 20
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: OS X & Windows 10
軟體版本: Office 2003 & Office 365
閱讀權限: 10
性別: 男
註冊時間: 2017-7-20
最後登錄: 2022-7-25

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-12-7 21:36 | 顯示全部帖子

回復 2# Hsieh

測試更改了之後就沒出現錯誤，但資料並不會COPY到"06"工作表的位子…

小學生 Rank: 1

帖子: 20
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: OS X & Windows 10
軟體版本: Office 2003 & Office 365
閱讀權限: 10
性別: 男
註冊時間: 2017-7-20
最後登錄: 2022-7-25

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-12-8 12:13 | 顯示全部帖子

回復 4# Hsieh

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

分類銷售查詢.zip (669.57 KB)

小學生 Rank: 1

帖子: 20
主題: 6
精華: 0
積分: 26
點名: 0
作業系統: OS X & Windows 10
軟體版本: Office 2003 & Office 365
閱讀權限: 10
性別: 男
註冊時間: 2017-7-20
最後登錄: 2022-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-12-10 19:54 | 顯示全部帖子

回復 6# Hsieh

謝謝大大的幫忙~

靜思自在 : 要比誰更受誰．不要比誰更怕誰。

返回列表下一主題上一主題