返回列表 上一主題 發帖

[發問] 程式碼..哪裡寫錯了

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-3-26 19:56 | 只看該作者

[發問] 程式碼..哪裡寫錯了

請問各位老師
以下這段程式碼..哪裡寫錯了
Sheet4.Range("K7:m65536").Copy
Sheets8.Range("A8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
收藏 分享

VBALearner

帖子
102 
主題
14 
精華
0 
積分
142 
點名
0  
作業系統
Win10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2016-7-31 
最後登錄
2020-3-21 

論壇贊助勳章
2#
發表於 2017-3-26 23:52 | 只看該作者
回復 1# oak0723-1

Sheet,Sheets 一個有s一個沒s?! 這工作表物件名稱是你自己設的嗎...還是打錯?!
簡單的複製貼上教學如下= ="
https://blog.gtwang.org/programming/excel-vba-programming-workbook-worksheet-cell/3/
真心感謝每一位願意分享所學、指導新手的人!

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2017-3-27 08:34 | 只看該作者
VBALearner謝謝你關注我這個問題
我是先用錄的再修改
我是想把Sheet4.Range("K7:m65536").複製到
Sheets8.Range("A8")選擇性貼上(值)
不知哪個地方出錯

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
4#
發表於 2017-3-27 10:07 | 只看該作者
這樣呢
Sheets(4).Range("K7:M65536").Copy
Sheets(8).Range("A8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
5#
發表於 2017-3-27 13:33 | 只看該作者
回復 1# oak0723-1
這應是版本問題，2003版會出現錯誤，因為2003版最多只能存入65536列的資料，因此你要將65529列(來源範圍)的資料放入65528列(目標範圍)是不被允許的。

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
6#
發表於 2017-3-27 16:32 | 只看該作者
確實如Kubi老師所述
謝謝Changbanana..VBALearner..Kubi老師們的指導
我得解了

TOP

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
7#
發表於 2017-4-1 23:56 | 只看該作者
回復 1# oak0723-1


Public Sub fff()

Sheets(8).Range("A8:C65536").Value = Sheets(4).Range("K7:M65536").Value

End Sub

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
8#
發表於 2017-5-25 15:40 | 只看該作者
感恩謝謝
感恩謝謝
感恩謝謝

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題