はじめに

バーコードリーダーの情報をエクセルシートへ書き出しを行う

プロシジャーの説明

任意のバーコードをスキャンして、A列の1行目から順に読み込みます

サンプル１

Sub ReadBarcode()
    Dim LastRow As Long
    Dim BarcodeValue As String
    
    ' A列の最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' バーコード値を取得するための入力ボックスを表示
    BarcodeValue = InputBox("バーコードをスキャンしてください:", "バーコードスキャン")
    
    ' キャンセルが押された場合は処理を終了
    If BarcodeValue = "" Then Exit Sub
    
    ' A列の最終行の次のセルにバーコード値を入力
    Cells(LastRow + 1, 1).Value = BarcodeValue
End Sub