質問編集履歴

6 説明書追加

oyashiro

oyashiro score 20

2018/03/26 14:17  投稿

Excelでバーコードリーダーでバーコードを読み取り値のチェック
ExcelのAにS001という値を入力し、Bに1という値があった場合、
その商品は登録済という仮定にし、
バーコードリーダーで読み取った値がS001だった場合、登録済というポップアップをだすようチェック機能を作成したいです。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
知恵袋で似た案件がありました。
```
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub '変更されたセルがA1でなければ終わり
Dim rng As Range
Set rng = Sheets("Sheet2").Range("A:A").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'A1の値をSheet2のA列で探す
If rng Is Nothing Then '無かったら
MsgBox "ありません"
Range("A1").Value = "" '値を消す(必要なら)
Range("A1").Select 'A1選択(必要なら)
Else
MsgBox "登録済"
End If
End Sub
```
これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと
ポップアップが出ません。
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
バーコードリーダー名:BEVA
付属の説明書は添付画のように、テスト用バーコードのみです。
![イメージ説明](5ed43effecb8f0de9df3b0c5c88f973f.jpeg)
![イメージ説明](392ccc44a28f82c237ab7d6236bef84a.jpeg)
![イメージ説明](626468ab09e6a4656359ef7e2ab6d401.jpeg)
![イメージ説明](626468ab09e6a4656359ef7e2ab6d401.jpeg)
![イメージ説明](a84c7c4b017aaa87a38516c66ffd8c83.jpeg)
![イメージ説明](41aa5640ea5c3badfb10a1c669dc82f3.jpeg)
![イメージ説明](1bc4d550b7e0606fad52e111e76c1a91.jpeg)
![イメージ説明](88a99ca6908669641ad6c12c7c371939.jpeg)
![イメージ説明](040f449dcdd92a327a92e9b7b8904de3.jpeg)
  • Excel

    2991 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

5 画像修正

oyashiro

oyashiro score 20

2018/03/26 13:44  投稿

Excelでバーコードリーダーでバーコードを読み取り値のチェック
ExcelのAにS001という値を入力し、Bに1という値があった場合、
その商品は登録済という仮定にし、
バーコードリーダーで読み取った値がS001だった場合、登録済というポップアップをだすようチェック機能を作成したいです。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
知恵袋で似た案件がありました。
```
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub '変更されたセルがA1でなければ終わり
Dim rng As Range
Set rng = Sheets("Sheet2").Range("A:A").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'A1の値をSheet2のA列で探す
If rng Is Nothing Then '無かったら
MsgBox "ありません"
Range("A1").Value = "" '値を消す(必要なら)
Range("A1").Select 'A1選択(必要なら)
Else
MsgBox "登録済"
End If
End Sub
```
これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと
ポップアップが出ません。
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
バーコードリーダー名:BEVA
付属の説明書は添付画のように、テスト用バーコードのみです。
![イメージ説明](06d0f6e03579e83741c3c7b3347e53ab.jpeg)
![イメージ説明](5ed43effecb8f0de9df3b0c5c88f973f.jpeg)
![イメージ説明](392ccc44a28f82c237ab7d6236bef84a.jpeg)
![イメージ説明](626468ab09e6a4656359ef7e2ab6d401.jpeg)
  • Excel

    2991 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

4 添付画像追記

oyashiro

oyashiro score 20

2018/03/26 13:10  投稿

Excelでバーコードリーダーでバーコードを読み取り値のチェック
ExcelのAにS001という値を入力し、Bに1という値があった場合、
その商品は登録済という仮定にし、
バーコードリーダーで読み取った値がS001だった場合、登録済というポップアップをだすようチェック機能を作成したいです。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
知恵袋で似た案件がありました。
```
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub '変更されたセルがA1でなければ終わり
Dim rng As Range
Set rng = Sheets("Sheet2").Range("A:A").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'A1の値をSheet2のA列で探す
If rng Is Nothing Then '無かったら
MsgBox "ありません"
Range("A1").Value = "" '値を消す(必要なら)
Range("A1").Select 'A1選択(必要なら)
Else
MsgBox "登録済"
End If
End Sub
```
これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと
ポップアップが出ません。
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
バーコードリーダー名:BEVA
付属の説明書は添付画のように、テスト用バーコードのみです。
付属の説明書は添付画のように、テスト用バーコードのみです。
![イメージ説明](06d0f6e03579e83741c3c7b3347e53ab.jpeg)
  • Excel

    2991 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

3 付属の説明書を添付

oyashiro

oyashiro score 20

2018/03/26 13:06  投稿

Excelでバーコードリーダーでバーコードを読み取り値のチェック
ExcelのAにS001という値を入力し、Bに1という値があった場合、
その商品は登録済という仮定にし、
バーコードリーダーで読み取った値がS001だった場合、登録済というポップアップをだすようチェック機能を作成したいです。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
知恵袋で似た案件がありました。
```
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub '変更されたセルがA1でなければ終わり
Dim rng As Range
Set rng = Sheets("Sheet2").Range("A:A").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'A1の値をSheet2のA列で探す
If rng Is Nothing Then '無かったら
MsgBox "ありません"
Range("A1").Value = "" '値を消す(必要なら)
Range("A1").Select 'A1選択(必要なら)
Else
MsgBox "登録済"
End If
End Sub
```
これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと
ポップアップが出ません。
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
バーコードリーダー名:BEVA
バーコードリーダー名:BEVA
付属の説明書は添付画のように、テスト用バーコードのみです。
  • Excel

    2991 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

2 バーコードリーダー名追記

oyashiro

oyashiro score 20

2018/03/26 11:47  投稿

Excelでバーコードリーダーでバーコードを読み取り値のチェック
ExcelのAにS001という値を入力し、Bに1という値があった場合、
その商品は登録済という仮定にし、
バーコードリーダーで読み取った値がS001だった場合、登録済というポップアップをだすようチェック機能を作成したいです。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
知恵袋で似た案件がありました。
```
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub '変更されたセルがA1でなければ終わり
Dim rng As Range
Set rng = Sheets("Sheet2").Range("A:A").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'A1の値をSheet2のA列で探す
If rng Is Nothing Then '無かったら
MsgBox "ありません"
Range("A1").Value = "" '値を消す(必要なら)
Range("A1").Select 'A1選択(必要なら)
Else
MsgBox "登録済"
End If
End Sub
```
これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと
ポップアップが出ません。
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
バーコードリーダー名:BEVA
  • Excel

    2991 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

1 調査内容追記

oyashiro

oyashiro score 20

2018/03/26 11:28  投稿

Excelでバーコードリーダーでバーコードを読み取り値のチェック
ExcelのAにS001という値を入力し、Bに1という値があった場合、
その商品は登録済という仮定にし、
バーコードリーダーで読み取った値がS001だった場合、登録済というポップアップをだすようチェック機能を作成したいです。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
※私は、phpやjavascriptは経験ありますがマクロを使用したことがありません。
知恵袋で似た案件がありました。
```
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub '変更されたセルがA1でなければ終わり
Dim rng As Range
Set rng = Sheets("Sheet2").Range("A:A").Find(Range("A1").Value, LookIn:=xlValues, LookAt:=xlWhole) 'A1の値をSheet2のA列で探す
If rng Is Nothing Then '無かったら
MsgBox "ありません"
Range("A1").Value = "" '値を消す(必要なら)
Range("A1").Select 'A1選択(必要なら)
Else
MsgBox "登録済"
End If
End Sub
```
これで解決に近いのですが、バーコードを読み取ったあと、エンターキーを押さないと
ポップアップが出ません。
バーコードを読み取った時点でポップアップが出るようにするにはどうしたらよいでしょうか?
  • Excel

    2991 questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

思考するエンジニアのためのQ&Aサイト「teratail」について詳しく知る