[[20150828152537]] 『スキャンデータをエラー表示』(ふくち) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『スキャンデータをエラー表示』(ふくち)

はじめましてふくちと申します。 
バーコードスキャンで入力された値が不適切であった場合
 エラー音、及び、エラー内容表記を設定したいです。 

複数の製品シリアルNoを順にスキャンしていく作業で、 
スキャンした値をExcelの1列に蓄積していきたいです。 
倉庫現場での使用を考えており、スキャン値が不適だった場合に
 作業者には視覚(テロップ)と聴覚(音)でエラーを伝えたい。 
なお、スキャナーはスキャン成功時に値の入力と改行を自動で行います。 

「適切条件」 
桁数指定:スキャン値の桁数は13桁 
重複制限:今までのスキャン値と重複しない 
スキャン数:別途設定した数をスキャン入力回数が越えていない 

運用を考え、エラー発生時は正しいバーコード読み込むことで 
引き続き作業が行えるようにしたいです。 

先生、何卒ご回答いただけますよう宜しくお願い申し上げます。 
ふくち

< 使用 Excel:Excel2013、使用 OS:Windows7 >


'シートモジュールに記載
'開発環境2007
Private Sub Worksheet_Change(ByVal Target As Range)
    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

まず回答が遅れてしまったことお詫び申し上げます。
まだ上記実行してませんが、取り急ぎお礼申し上げます。
(ふくち) 2015/09/01(火) 15:00

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.