| |
例えばシート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のＪ4が条件をみたす（0以下）時に
”シートＦのJ4がありません”と表示されます
これを
”シートＦの在庫がありません”と表示したいです
※C4＝在庫
J4のときC4．J5のときC5と20までしたいのですがオフセットとかでおこなうのでしょうか？
|
|
さくら
- 08/12/5(金) 23:05 -
