|
例えばシートB〜シートFがあってボタン(シートA)のボタンを押すと
シートB〜Fの各J4〜J20の値が0以下があればメッセージボックスで〜がありませんと表示
※メッセージボックスにはメッセージ+ボタン(閉じる為)
唯、表示はシートAでしかもシートBのJ4が0以下のときはシートBのC4をメッセージで””がありませんの””の間にいれる。
尚、いっぱい0以下があるときは閉じるを押すと次のがでてくる(順次閲覧したい)
ほかのサイトで回答を頂いたのですが
Sub Sample()
Dim ws As Worksheet
Dim c As Range
For Each ws In Sheets(Array("シートB", "シートC", "シートD", "シートE", "シートF"))
For Each c In ws.Range("J4:J20")
If c.Value <= 0 Then
MsgBox ws.Name & " の " & c.Address(0, 0) & " がありません"
End If
Next
Next
MsgBox "終了しました"
End Sub
上記のコードだと
例えばシートFのJ4が条件をみたす(0以下)時に
”シートFのJ4がありません”と表示されます
これを
”シートFの在庫がありません”と表示したいです
※C4=在庫
J4のときC4.J5のときC5と20までしたいのですがオフセットとかでおこなうのでしょうか?
|
|