質問: "" '値を消す(必要なら) Range("A1").Select 'A1選択(必要なら) Else MsgBox "登録済" End If End Sub ``` これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと ポップアップが出ません。 バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか? バーコードリーダー名:BEVA 付属の説明書は添付画のように、テスト用バーコードのみです。 ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/5ed43effecb8f0de9df3b0c5c88f973f.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/392ccc44a28f82c237ab7d6236bef84a.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/626468ab09e6a4656359ef7e2ab6d401.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/a84c7c4b017aaa87a38516c66ffd8c83.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/41aa5640ea5c3badfb10a1c669dc82f3.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/1bc4d550b7e0606fad52e111e76c1a91.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/88a99ca6908669641ad6c12c7c371939.jpeg) ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/040f449dcdd92a327a92e9b7b8904de3.jpeg)
回答: バーコードリーダーの設定が大事です。 簡単に組むにはキーボード入力エミュレーションが利くのが大前提で、 RS-232C接続だと別途COMM通信のActiveXなどの組み合わせが必要になって大変です。 また、特に設定を施さないと、バーコードを読んだまま文字列出力するだけなので、 末尾付加文字を例えばTABやENTERなどにすることで、 Excel上でもきっかけがつかめて処理しやすくなるでしょう。 ワークシートを例えば2枚にして、 一方はバーコード読み取り向けUI、 もう一方をチェック機能用にデータを羅列させるなどしておきます。 バーコード読み取り向けシート上にTextboxを置いて、 KeyPressイベントでTABやEnterを検出して、 チェック機能を書けば良いと思います。 質問内容が変わったので加筆。 バーコードリーダーの設定で、 末尾付加文字列としてEnterを追加すれば済む話です。 バーコードリーダーのメーカーや販社のサポートページに、 設定用のバーコードリストが掲載されているはずです。 (これがないと話にならないし、実現できません。) バーコードリーダーのモデルごとに、 設定用バーコードも異なることが多々あります。 バーコードリーダーの説明書をお読みください、 としか言いようがありません。 バーコードリーダーの型番でネット検索すると見つけられることもあります。