エクセルのマクロについて教えて下さい。

質問

添付した画像の様な注文管理シートがあります。
バーコードリーダーを使ってバーコードのJANを読み取り、該当する商品を検索したいです。
商品コードは 自社コード/JAN の形式になっています。

入荷した商品のバーコードを読み取ると、該当する商品のD列に読み取った日付を自動的に入力したいです。
その際に、既に入荷している商品はスキップして、未入荷の商品を検索する方法を教えて下さい。

例えば、 JAN 49000001 のバーコードを読み取った場合、D10に本日の日付を入力したいです。

また、バーコードを読むと、該当するセルにカーソルが移動する方法も合わせて教えて頂きたいです。
こちらも既に入荷している商品はスキップして、未入荷の商品を検索したいです。

例えば、 JAN 49000002 のバーコードを読み取った場合、A12にカーソルが移動する様にしたいです。

関数やマクロ等を使用して、これらを行う方法を教えて頂きたいです。
よろしくお願いします。

動作環境 windows 7 PRO
エクセル2010

バーコードリーダー BC-BR900L

補足

出力用のデータの入力先はセルにしたいと思います。
特にセルでなくてはならない理由は今の所ありませんが、空いた列を使用したいです。
この例だとE列でお願いします。

カーソルの移動の理由ですが、作業の工程が違うので、カーソル移動が必要です。

日付を入れる方は、商品の荷受け作業の際に使用します。
バーコードを読んで、どの注文分の商品が該当するかを付け合わせる際に使用したいです。

カーソルの移動は、発送作業の際に使用します。

バーコードを読んで、どの発送分かを確認する際に使用したいです。

実際のシートには、顧客情報や注文番号などのセルが存在しています。
それらの情報を確認する際に使用したいです。

わかりにくい説明で申し訳ありませんが、どうかよろしくお願いします。

回答No.1

WindFaller · ベストアンサー

こんにちは。

回答が付かないようですが、これは、私自身、バーコード・リーダーのイベント（Excelに信号が入ってきた時にが感知する機能）が、あるかどうか分からないので、ご質問に応える前に、少し、簡単な実験を手伝ってもらわないと、先に進めません。この種の、私の知識は、Excel95の時ぐらいで、止まってしまっていますので、新しい機械に対応できるか分からないのです。

まず、簡単なマクロを、シートモジュールに貼り付けていただいて、Excelが反応するかを見てもらいます。"BC-BR900L" は、USBキーボードインターフェイスを持っているようなので、これを試してみてください。

新規のブックを開いて、シートタブを右クリック--コードの表示で、以下を貼り付けます。

'//
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
　Beep
　MsgBox Target.Address(0, 0) & "に入力されました。"
End Sub
'//

そこで、バーコード・リーダーに読み込ませます。
その時に、「◯◯に入力されました。」というメッセージが現れましたでしょうか？

もし、それが可能なら、話を進めます。というか、ここの回答者なら誰でも可能になります。最初のハードルを越えればよいだけなのです。

私の覚えたのは、DDEという特殊な入力形態のものでしたが、その後、ActiveX コントロール（現在はこちらが多い）になってから、よく分からなくなってしまいました。