エクセルとバーコードリーダーによって、在庫管理をしようと考えています。バーコードリーダーには、スキャンによって値が入力されるとPC上でtabキーを押す、という機能があるので、エクセルにリーダーで読み込んだ値が入力されたあと、次のセルに移動することができます。ですので、商品のバーコードを次々に読んでいって、エクセルのシート上にデータを蓄積させていきます。
この蓄積される行をsheet1につくった一覧表からcountif関数でチェック(shhet2にバーコード数値=商品名のリストがある)し、どの商品が何個あるかを数えていくようにしています。
=COUNTIF(10:10,Sheet2!D7)・・・(リーダーから入力される値が入る行:元リスト)
お尋ねしたいのは、バーコードから入力される値が、元リストにあるかどうかを照合し、リストに無い値が読み込まれた場合にエクセル上で警告音を鳴らすようにできないのか?という事です。
小型のノートPCでこのエクセルを動かし、肩掛けかばんに入れてバーコードリーダーだけ手元に。という事を考えているので、警告ダイアログ等は出さす、音だけで知らせるようにしたいのです。
以上、よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>回答をいただいて、すぐに試してみたのですが、リストにある値でもBeep音が鳴ります…
う~ん、何故でしょうね?
ちなみに新しいブックで
Sheet2
A B
ABC
DEF
GHI
とでも準備して
Sheet1の名前のタブ、コードの表示で
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Set c = Sheets("Sheet2").Range("A1:A8").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If c Is Nothing Then
MsgBox Target.Value & "はありません"
Else
MsgBox Target.Value & "は" & c.Address
End If
End Sub
を貼り付けて、適当なセルに ABC と入れた場合、ZZZと入れた場合で実験してみてください。
Sheets("Sheet2").Range("A1:A8").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
のTerget.ValueはSheet1の変更があったセルの値(本番では、バーコードで入力した値)
Sheet2のA1~A8を検索して
If c Is Nothing Then は もし見つからなければ
という分岐です。
見つかったら音を出すということなので、VBAの力を借りないと出来ません。
エクセルVBAで検索すると勉強のためのサイトがいくつもあります。
一度、根気強く勉強してもらうと、将来にも役にたつと思います。
No.2
- 回答日時:
例えばSheet1の名前のタブを右クリック、コードの表示
VBエディターが起動したら
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Row = 10 Then
Set c = Sheets("Sheet2").Range("B2:H8").Find(What:=Target.Value, LookIn:=xlValues, _
LookAt:=xlWhole)
If c Is Nothing Then Beep
End If
End Sub
を貼り付けして閉じてみてください。
VBAの動作を説明すると
Sheet1の10行目が変更されたら
Sheet2のB2:H8の範囲を検索、変更された値が検索値
もし、検索して何も見つからなければ Beep(音を出す)
といったような流れです。
後は、ご自身のシートにあわせて編集してみてください。
お返事が遅れて申し訳ありませんでした。
回答をいただいて、すぐに試してみたのですが、リストにある値でもBeep音が鳴ります…
でも、値は正しいのでcountifを入れている方のリストは数字がカウントされていきます。
VBAはさっぱりわからなかったので、いろいろ調べてみましたが、いまだ解決できません。
あまり長い間返答なしも失礼かと思いましたので、いったんお礼を申し上げようとコメントいたしました。
具体的な例もあげずに質問したのに、ご回答いただきありがとうございました。
No.1
- 回答日時:
今一、良くわからないのですが
>バーコードから入力される値が→Sheet2のB2~F7の入力される値?
>元リストにあるかどうかを照合し→Sheet1のどこにあるのでしょうか?
>リストに無い値が読み込まれた場合にエクセル上で警告音を鳴らす
→VBAの力を借りて出来ます。
添付画像のどこにバーコードの値が入って、検索する範囲がどこなの補足してください。
この回答への補足
言葉足らずというか説明が変で申し訳ありませんでした・・・
・バーコードから入力される値
絵が小さくて見えにくいですが、Sheet1のA10から右に続いています。バーコードのトリガーを押すたびに、バーコードを読む→エクセルのA10に値が入る→自動でB10がアクティブに→次のバーコードを読む・・・という動作をしています。
・元リストにあるかどうかを照合
Sheet2が元リストです。縦が商品の種類・横が商品のサイズです。
たとえば、バーコードをスキャンし、バーコードの数値がエクセルのSheet1のA10に162300017004と入ったとします、Sheet2の「黄/17.0」という元リストの数値と符合するので、Sheet1の「黄/17.0」に1がカウントされます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで値ではなく関数を参照する方法 6 2023/03/19 00:50
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Excel(エクセル) IF 関数で「〇〇 という文字を含む場合」の分岐処理で表示された数字はSUMで数字集計できますか? 3 2022/08/02 16:29
- Excel(エクセル) エクセルの自動更新のタイミングについて 1 2022/07/20 16:12
- Excel(エクセル) エクセル 関数について 4 2022/08/05 11:03
- デジタルカメラ 写真撮影可能なバーコードリーダーを探しています 2 2022/05/26 17:15
- Excel(エクセル) エクセル365の関数。誕生日表記がおかしい 2 2022/10/17 18:52
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- 日本語 読解力の質問です(Excel含む) 12 2022/08/02 13:25
- Excel(エクセル) 荷捌作業効率をあげるためのエクセル関数を教えてください。 8 2022/10/07 08:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
甲状腺が腫れているが血液検査...
-
勃起する時って痛いんですか? ...
-
小数点以下を繰り上げたものを...
-
MIN関数で空白セルを無視したい...
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
エクセル指定した範囲からラン...
-
尿検査前日に自慰行為した時の...
-
中出しをするとお腹が痛い・・・。
-
一番多く表示のある値(文字列...
-
精子が黄色?
-
【Excelで「正弦波」のグラフを...
-
ある範囲のセルから任意の値を...
-
Excel条件付書式(残業45時間以...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報