エクセルで簡単なバーコード入力

エクセルで棚卸入力をしようと思っています。
バーコードにて、品目コードを読み取り、続いてバーコードにて数量を
読み取ります。
バーコードで読み取る品目コードは、A列へ事前に入力されており
手順は、品目コード01111を読み取り、その後に数量2500をバーコードで読み取る
Ｂ2へ2500入力される
同じように品目コード011111を読み取り、その後に数量1200をバーコードで読み取る
Ｃ2へ1200入力される
同じように品目コード04444を読み取り、その後に数量3000をバーコードで読み取る
Ｂ5へ3000入力される
・
・
・

それを下記のような感じで、どんどん入力していけるように
エクセルで作りたいのですが、何かいい案はありますでしょうか？
品目コードが同じものを読み取った場合は、Ｃ列、Ｄ列・・・へ入力したいと思っています。


　　　　A 　　　　B 　　　 C
1　　 品目ｺｰﾄﾞ　　数量
2　　 011111　　 2500　 　1200　
3　　 022222
4　　 033333
5　　 044444　　 3000
6　　 055555
7　　 066666

どなたかよろしくお願いします

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2017/10/31 10:33

簡単なサンプルを作ってみました。

下記のVBAを入力を行うシートのWorksheet_Changeイベントプロシジャに張り付けて下さい。
このマクロは、C1セルに商品コードを入力すると該当する商品コードの行の最終列のセル、および、C1セルを選択状態にします。この状態で数量を入力すると、またC1セルに移動するので、次の商品コードを入力し・・・を繰り返すことができます。
バーコードリーダーって、「商品コード＋Enter→数量＋Enter」の繰り返しですよね？であれば、これで行けそうな気がするのですが、いかがでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If Target.Address <> "$C$1" Then Exit Sub
Set r = Range("A:A").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If r Is Nothing Then
MsgBox "標品コードがない！！"
Target.Select
Exit Sub
End If
Set r = Cells(r.Row, Columns.Count).End(xlToLeft).Offset(, 1)
Range(r.Address & "," & Target.Address).Select
End Sub

この回答へのお礼

ありがとうございます。
完璧です

お礼日時：2017/11/06 08:54

No.1 回答者： Wr5 回答日時： 2017/10/25 16:10

どのようなバーコードリーダを使用する予定なのかは不明ですが…

『USB接続の安価なバーコードリーダだとキーボード入力のエミュレーション』となります。
# というかHIDデバイスでキーボードとしてWindowsに認識されます。

エクセルで…となると、WindowsAPI でキーボード入力をかっ攫って、読み込んだバーコードの内容にあわせてセルの移動やらなんやらやることになるかと。
https://www.excel-excel.com/tips/vba_150.html
とても「簡単に」とは行かないと思いますよ。


ちなみに、派遣先で似たような「エクセル＋バーコードリーダ」で物品管理したい。
みたいな要望が出されたことがありますが、結局C#でアプリを作る方向で対応しました。
出力をCSV形式とすることで、「後でエクセルに取り込んでごにょごにょ」可能という方向に。

その後、いろいろ要望が出たようで今は別の人がそのプログラムに手を入れているようですが。
# たまに質問に来ますけど。