標題: 選擇性貼上引數的用法 [打印本頁]

---

作者: paddyliu    時間: 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    時間: 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

---

作者: doom834    時間: 2012-6-4 21:55

Sheets(3).Range("D7:M36").Value = Sheets(3).Range("D7:M36").Value
降子寫就可以將原先公式的部分變成通用格式儲存嗎??
那我的程式碼又可以精簡了~~
又學到一招了!!

---

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