可以寫一個VBA將數值清除,而不清除公式嗎??

peter95

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

下載 (191.88 KB)

2017-2-13 23:20

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

peter95

附上小弟的檔案

請大家幫忙
謝謝
Book1.rar (6.15 KB)

下載次數: 7

2017-2-13 23:31

ML089

回復 2# peter95

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

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

peter95

回復  peter95

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

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

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

下載 (26.3 KB)

2017-2-14 09:07

baomin

回覆peter95
你把Range("A2999").Select改成Range("B2999").Select，品項名稱就會存在

ML089

回復 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

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

peter95

回復 6# ML089

請問M大
關於程式中的

    Selection.SpecialCells(xlCellTypeConstants, 23).Select

括弧中的23是啥意思

下載 (79.68 KB)

2017-2-14 17:36

ML089

回復 8# peter95

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

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