[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『スキャンデータをエラー表示』(ふくち)
はじめましてふくちと申します。
バーコードスキャンで入力された値が不適切であった場合
エラー音、及び、エラー内容表記を設定したいです。
複数の製品シリアルNoを順にスキャンしていく作業で、
スキャンした値をExcelの1列に蓄積していきたいです。
倉庫現場での使用を考えており、スキャン値が不適だった場合に
作業者には視覚(テロップ)と聴覚(音)でエラーを伝えたい。
なお、スキャナーはスキャン成功時に値の入力と改行を自動で行います。
「適切条件」
桁数指定:スキャン値の桁数は13桁
重複制限:今までのスキャン値と重複しない
スキャン数:別途設定した数をスキャン入力回数が越えていない
運用を考え、エラー発生時は正しいバーコード読み込むことで
引き続き作業が行えるようにしたいです。
先生、何卒ご回答いただけますよう宜しくお願い申し上げます。
ふくち
< 使用 Excel:Excel2013、使用 OS:Windows7 >
Dim fcell As Range, frange As Range, スキャン入力回数 As Long スキャン入力回数 = 10 Columns("A:A").NumberFormatLocal = "@"
If Target.Column <> 1 Then Exit Sub If Target.Count <> 1 Then Exit Sub If IsEmpty(Target) = True Then 警告 Target.Row: Exit Sub If Len(Target) <> 13 Then 警告 Target.Row: Exit Sub If Target.Row > スキャン入力回数 Then 警告 Target.Row: Exit Sub
If Target.Row = 1 Then Exit Sub Set frange = Range("A1:A" & Target.Row - 1) Set fcell = frange.Find(What:=Target, LookAt:=xlWhole) If Not fcell Is Nothing Then 警告 Target.Row: Exit Sub End Sub
Sub 警告(arg)
Dim i As Long For i = 1 To 100 Beep Next i MsgBox ("警告") Application.EnableEvents = False Rows(arg).Delete Application.EnableEvents = True Cells(Rows.Count, 1).End(xlUp).Offset(1).Select End Sub (mm) 2015/08/28(金) 17:05
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.