麻辣家族討論版版 - Powered by Discuz! Board

標題: 可以寫一個VBA將數值清除,而不清除公式嗎?? [打印本頁]

作者: peter95 時間: 2017-2-13 23:21 標題: 可以寫一個VBA將數值清除,而不清除公式嗎??

可以寫一個VBA將數值清除,而不清除公式嗎??
附上檔案
說明圖片
非常感謝大家的幫忙解答
謝謝
說明圖片
[attach]26605[/attach]

我的檔案
[attach]26603[/attach]

作者: peter95 時間: 2017-2-13 23:31

附上小弟的檔案

請大家幫忙
謝謝
[attach]26606[/attach]

作者: ML089 時間: 2017-2-14 08:16

回復 2# peter95

Sub Macro1()
'
' 選取範圍，CTRL+G，按特殊，選擇常數，確定
'

'
Range("A2:D999").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End Sub

作者: peter95 時間: 2017-2-14 09:07

回復 peter95

Sub Macro1()
'
' 選取範圍，CTRL+G，按特殊，選擇常數，確定
'

'
Range(" ...
ML089 發表於 2017-2-14 08:16

感謝M大提供
但小弟可能不會設定執行M大程式後
小弟的A欄品項的文字不見了
請問我可以怎麼改善
感謝大家
感謝M大

[attach]26607[/attach]

作者: baomin 時間: 2017-2-14 11:43

回覆peter95
你把Range("A2

999").Select改成Range("B2

999").Select，品項名稱就會存在

作者: ML089 時間: 2017-2-14 14:47

回復 4# peter95

Sub Macro1()
'
' 選取範圍，CTRL+G，按特殊，選擇常數，確定'
'
'Range("A2:D999").Select
'改為
Range("B2:D999").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
End Sub

上述程式碼完全使用巨集錄製，你只要開啟巨集錄製手動操作一遍再關閉錄製，你就可以利用錄製的巨集程式碼去改寫。

你可以試試下列操作及錄製巨集
' 選取範圍，CTRL+G，按特殊，選擇常數，確定'

作者: ML089 時間: 2017-2-14 14:51

新手 VBA 入門常見問題
http://forum.twbts.com/thread-10449-1-1.html

作者: peter95 時間: 2017-2-14 17:36

回復 6# ML089

請問M大
關於程式中的

Selection.SpecialCells(xlCellTypeConstants, 23).Select

括弧中的23是啥意思

[attach]26610[/attach]

作者: ML089 時間: 2017-2-14 22:48

回復 8# peter95

23，這是錄製巨集出來的，可能是指下列4種型態都包含

XlSpecialCellsValue constants / Value
xlErrors /16
xlLogical / 4
xlNumbers / 1
xlTextValues / 2

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