[[20171207014033]]　『NGの場合メッセージボックスで音を出す』（mamiko）　ページの最後に飛ぶ

『NGの場合メッセージボックスで音を出す』（mamiko）

<緊急> VBAコードご教授ください。

A列にスキャンしたデータが表示され、
そのデータを別シートと付け合わす。
B列に判定結果のOK or NGが入っているのですが、
NGの場合は赤丸に白いX（停止マーク）。
メッセージボックスを表示するときにシステムエラーの音が鳴り一時停止。
「現品を確認してください！」のメッセージ。
カーソルがそのセルで停止 ⇒ 確認完了なら確認完了ボタンを押し、
「確認OKですか？」メッセージ ⇒ OK ⇒ 次のセルへ。（ここではOK と戻るボタン）
保留なら「保留します」メッセージ。カーソルがそのセルで停止。
という感じにしたいのですが、VBAのコードを教えて下さい。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

検索代行
https://www.moug.net/tech/exvba/0100033.html
http://excel-ubara.com/excelvba3/

（隠居じーさん） 2017/12/07(木) 07:43

音の関係は「VBA　Beep」で検索するとよいでしょう。
　
そもそもですが、リアルタイムに問題が発覚すると言うよりも、
すでに問題箇所が判明しているんでしょう？
MsgBoxなどを表示すると、ワークシートの操作はできなくなりますし、
余り得なことはありません。
　
B列のNGがついている行をフィルタで抽出して、
さっさと問題解決したほうが有益だと思うけど、どんなものでしょうか。
　
なお、老婆心で申し上げるが、こうした掲示板で「緊急」などと書くのは
「百害あって一利なし」です。
素直に反応する人よりも、
自分の都合を前面に押し出す勝手な人、という
マイナスの印象を持つ人のほうが多いように感じます。
　
普通の質問であれば、皆さん競ってコメントをされるので、
余計なことは言わなくてもOKです。（と言うより、言わない方が良い）
現にコメントがありましたが、反応ないのはなぜ？

（γ） 2017/12/09(土) 10:38

隠居じーさん様
参考にさせて頂きます
ありがとうございました

Y様
ありがとうございます
不慣れで申し訳ございません
（mamiko） 2017/12/09(土) 21:58

 復元しておきました。回答がついているのに削除するなんて回答者に対して失礼では？
（bi） 2017/12/10(日) 08:11

復元ご苦労さまです。
2017/12/09(土) 10:38　の私の発言
2017/12/09(土) 21:58（mamiko）さんの発言
が除外されていたので、追加しました。
　
「私の発言は復元に値せず」とは思っておりません。
　
・音に関する情報も示しています。
・逐一MsgBoxを出すのは迂遠ではないかというのも、適切な指摘と考えます。
　一括処理で転記するとかなら、MsgBoxは不要ですし、
　ひとつひとつエラー解決しようにも、
　MsgBox表示中はシートの操作はできませんから、
　もともとが無理な構想です。
　
緊急という発言へのコメントが不適切だったという指摘でしょうか。
言わないと伝わらないこともあります。
質問者は相当に自分勝手な方と見受けます。
他人の発言も含めて削除してください、という発言にその一端が出ています。
もうすこしマナーを弁えて欲しいと思いました。

日時が漏れました。

（γ） 2017/12/10(日) 11:29

知恵袋とのマルチだったのですが
そこでのやりとりからの推測です。
（γさん同様フィルタ利用の提案でしたが向こうも削除されました）

１）A列に、バーコードスキャナーで読み取った結果を表示
２）B列に、判定結果を数式で表示

この操作を繰り返す。
音がでると、ディスプレイを見ずに操作ができるメリットがある

ということかと。

ならば、要望通りではありませんが
妥協案として、入力規則の利用はどうか考えていました。

で、昨夜、コメントをためらっている間に
なぜか、削除されてしまいました。
今となっては、何がしたかったのか不明です。

（マナ） 2017/12/10(日) 12:16

 隠居じーさんさんが回答していたのまでは見ていたのですが、完全に
 復元しきれていなかったようで大変失礼しました。

 知恵袋でも質問していたのですね。私が見たのはQ&Aサロンでした。
 21時58分の回答で「参考にさせて頂きます」と書いておきながら
 その数時間後に質問・回答を消すってどういうことなんでしょう。
（bi） 2017/12/10(日) 13:12

お手数をお掛けしました。
ありがとうございます。
（γ） 2017/12/10(日) 16:39

コメント返信：

[[20171207014033]] 『NGの場合メッセージボックスで音を出す』（mamiko） ページの最後に飛ぶ

[[20171207014033]]　『NGの場合メッセージボックスで音を出す』（mamiko）　ページの最後に飛ぶ