Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43397 / 76732 ←次へ | 前へ→

【38383】Re:数値置換のマクロ
回答  Kein  - 06/6/1(木) 13:23 -

引用なし
パスワード
   数式の中身を置換したい、ということですか ? それなら単純に 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

置換の「対象」とする値は、"+"記号に続いてどんな数値であっても
適応するようにアスタリスクで表現していますから、連続して何度でも
実行できます。

2 hits

【38380】数値置換のマクロ みほ 06/6/1(木) 13:02 質問
【38382】Re:数値置換のマクロ Statis 06/6/1(木) 13:11 回答
【38383】Re:数値置換のマクロ Kein 06/6/1(木) 13:23 回答
【38417】Re:数値置換のマクロ みほ 06/6/2(金) 11:06 お礼

43397 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free