|
数式の中身を置換したい、ということですか ? それなら単純に Cells.Replace 〜
としても「値」が置換されるだけですから、以下のようなコードにしないといけません。
Sub Rep_Formula()
Dim Plus As Long
Const Pmt As String = _
"数式に加算する値を整数で入力して下さい"
With Application
Plus = .InputBox(Pmt, Type:=1)
If Plus = False Then Exit Sub
.ScreenUpdating = False
End With
ActiveWindow.DisplayFormulas = True
On Error Resume Next
Cells.SpecialCells(3).Replace "+*", "+" & Plus
On Error GoTo 0
ActiveWindow.DisplayFormulas = False
Application.ScreenUpdating = True
End Sub
置換の「対象」とする値は、"+"記号に続いてどんな数値であっても
適応するようにアスタリスクで表現していますから、連続して何度でも
実行できます。
|
|