Excel2003 マクロ 計算結果に入力規則を

質問

指定したセルに指定した範囲以外の数字を入力した時にエラーが出るという処理は
入力規則でできると思うのですが
計算結果には適用されませんよね？

具体的に言うと、
A1~A5の合計SUMをA6に出す場合、A6を入力規則で1~5としても
A1=2 A2=2 A3=2 A4=2 A5=2
とするとA6に10と表示されてしまいます

これをマクロで上の例だとA6の計算結果が１を下回る、もしくは5を上回った時点で警告を出して停止させるようにしたいです

よろしくお願いします。

回答No.3

keithin

はてさて？あなたのブックがどうなってるのかなんて、ご質問に書いてないことは判りようもありません。
まずはまっさらのブックに回答通りに行って、結果を確認してください。
その後、あなたの実際のブックにあなたが仕込んだ一体何が悪さをしているのか、あなたご自身で探し当てて下さい。

そういうのがメンドクサイのなら、ご相談は「警告を出して停止させるようにしたい」だけですから。
回答のマクロを

private sub Worksheet_Calculate()
　if range("A6") < 1 or range("A6") > 5 then
　　msgbox "Ａ６の値が範囲を逸脱しました"
　end if
end sub

としてしまえば、あなたのブック（の内緒のナニカ）と干渉する心配も無くなります。

回答No.2

keithin

既出回答で述べられている通り、入力規則は「数式の計算結果が変わる、その原因となった数字を入力するセル」に取り付けます。
これはマクロを使って同じことを試みる場合も、基本的には考え方は全く一緒です。

で。
マクロについて知りたいというのが今回あなたの直接のご質問なので、実際にマクロでやってみます。

手順：
Ａ６の数式は事前に記入しておく
シート名タブを右クリック、コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Calculate()
　if range("A6") < 1 or range("A6") > 5 then
　　msgbox "Ａ６の値が範囲を逸脱しました"
　　application.enableevents = false
　　application.undo
　　application.enableevents = true
　end if
end sub

ファイルメニューから終了してエクセルに戻る
Ａ１：Ａ５に数字を記入する。

補足

詳しく書いていただきありがとうございます。
試しにやってみたところ、動作した後に

「エラー1004　Undoメソッドは失敗しました」

と出たのですが、これはどうすればいいか分かりますでしょうか・・？
何度もすみません

回答No.1

tsubuyuki

マクロを使用しなくても、入力規則で十分対応できます。

考え方を逆にすると見えてきます。
> A6を入力規則
ではなく、Ａ１～Ａ５に入力規則を入れます。
Ａ１～Ａ５を選択した状態で、
　　入力規制→数式：=AND($A$6<=5,$A$6>0)
としてやると良いですよ。

絶対参照（＄）をお忘れなく＾＾