返回列表 上一主題 發帖

選擇性貼上引數的用法

paddyliu

帖子
44 
主題
22 
精華
0 
積分
79 
點名
0  
作業系統
Win7 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2011-1-22 
最後登錄
2017-5-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-4 18:14 | 只看該作者

選擇性貼上引數的用法

各位先進，小弟我寫了一段選擇性貼上的語法
Sheets(3).Range("D7:M36").Copy
Sheets(3).Range("D7:M36").PasteSpecial Paste:=xlValue, operation:=xlNone
但執行後卻無任何作用？
後來修改成以下
Sheets(3).Range("D7:M36").Copy
Sheets(3).Range("D7:M36").PasteSpecial xlPasteValues
卻可以正常執行，
由於小弟是剛踏入VBA新手，不知上述兩者寫法的差異是在？
或是第一段有寫錯的地方要如何修正？
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-6-4 18:29 | 只看該作者
回復 1# paddyliu

Sheets(3).Range("D7:M36").Copy
Sheets(3).Range("D7:M36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Sheets(3).Range("D7:M36").Copy
Sheets(3).Range("D7:M36").PasteSpecial xlPasteValues

Sheets(3).Range("D7:M36").Value = Sheets(3).Range("D7:M36").Value

TOP

doom834

帖子
20 
主題
5 
精華
0 
積分
61 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
台灣桃園 
註冊時間
2010-9-1 
最後登錄
2019-4-26 
3#
發表於 2012-6-4 21:55 | 只看該作者
Sheets(3).Range("D7:M36").Value = Sheets(3).Range("D7:M36").Value
降子寫就可以將原先公式的部分變成通用格式儲存嗎??
那我的程式碼又可以精簡了~~
又學到一招了!!

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題