エクセル VBA Replace について

質問

XP microsoft visual basic 6.0 です

はじめに

A1 に =SUM(A2:A5) と記入してます
A2 から A5 には何も記入されていないので A1 の値は 0 です

そこで

Sub a()
Dim e As Range
For Each e In ActiveSheet.UsedRange
e.Value = Replace(e.Value, "あ", "")
Next
End Sub

を実行すると A1 の =SUM(A2:A5) が 0 と計算結果のみの数字に置き換えられてしまうのですが、何故なのでしょうか

置換後も 関数式を残しておきたいのですが何か良い方法はありませんか

よろしくお願いします

回答No.1

cistronezk · ベストアンサー

式が入力されているセルでは置換処理をスキップしてはどうでしょうか。つまり、

＞e.Value = Replace(e.Value, "あ", "")

これをたとえば

If Left(e.Formula, 1) <> "=" Then
e.Value = Replace(e.Value, "あ", "")
End If

としてみては。

お礼

このような解決策があったのですね
無事完成させることができました
ありがとうございました

回答No.2

Sinogi

> A1 の =SUM(A2:A5) が 0 と計算結果のみの数字に置き換えられてしまうのですが、何故なのでしょうか

e.Value = Replace(e.Value, "あ", "")

この式では　Range　としての e に　.Value (値)を設定しています。
なので計算式の結果の値である 0 に置換された結果です。

お礼

単純に "あ" を "" へと置換する意味でしか考えていませんでした
これからまた勉強に励みたいと思います
ありがとうございました