式変更のマクロ

質問

複数の式を一度に変更するマクロを教えて下さい。

セルP5からセルP10それぞれ次のような式が入力されています。

P5・・・=H12-H5
P6・・・=G12-G5
P7・・・=F12-F5
P8・・・=I12-I5
P9・・・=E12-E5
P10・・・=D12-D5

12行目の方に数字を入力していき、OK・NG判定を行うのですが
NGだった場合、12行目の方が14行目や15行目に変わる場合があります。

現在は手打ちで式を変更しているのですが
インプットボックスなどを使用して14と入力したら
P5からP10の式の、12の部分が一括で14に出来るなどということは
出来ますでしょうか？インプットボックスでなくても
一括で自分の指定した行に変更できればそれでも大丈夫です。
H5からD5の方は固定ですので変わることはありません。

ご指導の程、宜しくお願いします。

回答No.2

keithin · ベストアンサー

方法１）
＞NGだった場合、12行目の方が14行目や15行目に変わる

ふつーに考えると
あるセル例えばＡ１にＯＫまたはＮＧの計算結果が現れるとして
Ｐ５：
=IF(A1="OK",H12,H14)-H5
以下同文
のように事前に仕込んでおくだけでは。

方法２）
＞インプットボックスなどを使用して14と入力したら
＞P5からP10の式の、12の部分が一括で14に出来る

ご相談の直接の回答としては
ふつーにＡ１セルに、１２あるいは１４あるいは１５と記入する
Ｐ５：
=INDEX(H:H,A1)-H5
以下同文
のように事前に仕込んでおく。

＃参考
Ｐ５：
=INDIRECT("H"&A1)-H5
などのようにしても出来ます。

お礼

ありがとうございました。

方法2のものが私の求めていたものの形でした！ベストアンサーとさせていただきます！
今後ともよろしくお願いします。

回答No.1

kagakusuki

最初の段階で

P5・・・=H$12-H$5
P6・・・=G$12-G$5
P7・・・=F$12-F$5
P8・・・=I$12-I$5
P9・・・=E$12-E$5
P10・・・=D$12-D$5

の様に入力しておき、14行目のセルに変更する際には、P5～P10を纏めて選択してから、Excelの置換機能を使用して

$12-

を

$14-

に置換してしまえば良いと思います。

【参考URL】
　エクセル2007:指定した文字～文字までを置き換えるには
　　http://www.excel-img.com/database06.html

お礼

ご回答ありがとうございます。

置換機能・・・初めて使用しました。
こんな使い方が出来るんだなと、非常に勉強になりました。

ありがとうございました。