ふれまにっ

さて、バーコード入力の部分です。

私が持っているバーコードリーダは、USB接続でキーボード入力のタイプです。
つまり、バーコード入力の時に入力用のポップアップを出力する場合は、ポップアップを出すキーコードを決めなきゃいけません。

これは、以前の大会支援の時も使ったんですが、'@'とします。
又、入力は';'に決めます。

さて、これでポップアップを出すようにします。

標準モジュールのModule1を新規作成し、以下のコードを書きます。

Sub auto_open()
    Application.OnKey "{@}", "DataInput"
    Application.OnKey "{;}", "DecInput"
End Sub
Private Sub DataInput()
    UserForm1.Show
End Sub
Private Sub DecInput()
    UserForm2.Show
End Sub

これはエクセル起動時に、@が入力された時にUserFoem1を表示、;が入力された時にUserform2を表示させる設定を行います。
フレッシュテニスの大会支援のときは、禁止事項設定やキャンセル設定、ネットワーク関係などで、もちょっと複雑になるんですが今回は、これで十分でしょう。

次回は、入力ウインドウで、実際のデータ入力の説明です。