Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7541 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【38380】数値置換のマクロ
質問  みほ  - 06/6/1(木) 13:02 -
引用なし
パスワード
   セル番号＋１という式が　あるセルに入力されています
その式の＋１を＋２とか＋３等　任意の数値に置換えるのをマクロで作成したいのですが、どうしたら良いか分かりません。

マクロの登録機能で作成すると
Cells.Replace What:="+1", Replacement:="+3", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

となりました。Replacement:="+3"の部分を　どのように変更すれば良いのでしょうか
置換える数値はマクロの中で”繰り返し”という名前で取得しています。

説明がうまく出来ませんが、どなたか教えてください。
【38382】Re:数値置換のマクロ
回答  Statis  - 06/6/1(木) 13:11 -
引用なし
パスワード
   こんにちは
これで如何かな？


>Replacement:="+3"

Replacement:= "+" & 繰り返し
【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

置換の「対象」とする値は、"+"記号に続いてどんな数値であっても
適応するようにアスタリスクで表現していますから、連続して何度でも
実行できます。
【38417】Re:数値置換のマクロ
お礼  みほ  - 06/6/2(金) 11:06 -
引用なし
パスワード
   Statisさん、Kein さん　有難うございました。
うまく作成できそうです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7541 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free