エクセル 警告メッセージ 第２弾

以前、下記の質問に対して、ご回答を頂きました。
感謝・感謝・感謝でした。
ただ、この場合はワークシート全体に１０未満の数値がなった場合にメッセージボックスが
表示される様ですが、セルE１・２・３など各セルに対して１０未満、１００未満、１０００未満など
同様にメッセージボックスの表示はできるのでしょうか。
あれば是非ご教示頂きたく宜しくお願い致します。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下質問した内容です。
↓↓↓
エクセル2013を使用しており、商品在庫管理を作成したく以下質問致します。

・ある商品の在庫数が少なくなってきた場合に警告が出る様にしたい！
A１セル（月首の在庫数）
B１セル（当月入庫数）
C１セル（当月出庫数）
D１セル（A1＋B1－C1）
E１セル←このセルにD１の値＜１０になった場合に警告メッセージやアイコンが表示される。
　　　　 また最大値が１００、最小値が１０として１００に近ければ青色、最小値に近くなると
　　　　 セルが赤になるような書式を設定出来るのでしょうか？
　　　　 また、あればご教授頂けますと幸いです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
ここからが頂いた回答になります。
↓↓↓
青と赤については条件付き書式で対応できると思います。
D1セルを選択　→　条件付き書式　→　セルの強調表示ルール　→　指定の範囲内　→　左の窓に　10　を、右の窓に　55　を入力
→　書式の右側▼をクリック　→　ユーザー設定の書式　→　塗りつぶしから「赤
を選択しOK

同様に
D1セルを選択　→　条件付き書式　→　・・・中略・・・　→　左の窓に　56を　右の窓に　100　を入力　→　「青」を選択しOK
（ちょうど中間の　55　は「赤」の方に入れています）

ここで10未満の場合ですが、VBAになります。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　VBE画面を閉じてExcel画面に戻ってください。

Private Sub Worksheet_Calculate() 'この行から//
If Range("D1") < 10 Then
MsgBox "在庫が10未満になりました"
End If
End Sub 'この行まで//

これでD1セルが10未満になった場合に
メッセージボックスが表示されます。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

No.1 ベストアンサー 回答者： tom04 回答日時： 2015/12/14 20:54

こんばんは！

前回回答したものです。

前回のコードは他のセルに入力があっても「再計算」されてしまいますので、
常にメッセージボックスが表示されてしまうと思います。

単純にやれば良かったのですね。
要するにE列に表示させたい！というコトのようですので、
E1セルに
=IF(D1<10,"10未満",IF(D1<100,"100未満",IF(D1<1000,"1000未満","")))
という数式を入れフィルハンドルで下へコピーしてみてください。

※　前回のようにVBAでメッセージボックスを表示させたい場合は
Changeイベントの方が良いと思います。

尚、以下は参考程度で試してみてください。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り、A～C列に数値を入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
If Intersect(Target, Range("A:C")) Is Nothing Or Target.Count > 1 Then Exit Sub
With Target
Select Case Cells(.Row, "D")
Case Is < 10
MsgBox "D" & .Row & "セルが10未満になりました"
Case Is < 100
MsgBox "D" & .Row & "セルが100未満になりました"
Case Is < 1000
MsgBox "D" & .Row & "セルが1000未満になりました"
End Select
End With
End Sub ’この行まで//

※　条件付き書式は考慮していません。

とりあえずはこの程度で・・・m(_ _)m

この回答へのお礼

今回もありがとうございました。本当に感激です。
ただ...さらに欲が出てきまして...また質問させて頂きます。

お礼日時：2015/12/15 14:08