EXCEL VBA バーコード入力

質問

よろしくお願いします
EXCEL(2013) VBAにてバーコードによる入力を作成しているのです。
バーコード情報例
2023○123456789-ECCW○○○○○○●●1
バーコード情報を仕入情報５桁　品番情報20桁　数量情報3桁
下記○●箇所は品番、数量情報桁数が変わる為ブランクで設定しています。
バーコードリーダで読込を行ったときに
テキストボックス1にカーソルがあり
テキストボックス1に　2023
テキストボックス2に　123456789-ECCW
テキストボックス3に　１
以上が入力されて
テキストボックス4にカーソルが移動して次の
読込が出来るようにしたいので
色々調べましたが検索ヒントが悪いのか
中々目的のやり方が見つかりません。
ご教示いただけますと助かりますので
よろしくお願いいたします。

回答No.1

山田 太郎（@f_a_007） · ベストアンサー

手軽に結果を得るには CutStr() などの自作関数を利用されることです。

【イミディエイト】

？CutStr("2023○123456789-ECCW○○○○○○●●1", "○", 1)
2023
？CutStr("2023○123456789-ECCW○○○○○○●●1", "○", 2)
123456789-ECCW

で、最初の２つは簡単に切り出せます。問題は、最後の数字です。それは、区切り文字列に”023○123456789-ECCW”を指示するとよいでしょう。具体的には、既に検索済みの仕入れ情報、品番情報から区切り文字列を生成して指示することになると思います。

【CutStr()の仕様】

CutStr(文字列, 区切り文字列, 切り出す番目）

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　　ByVal Separator As String, _
　　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

お礼

回答が遅くなりすみません。
思っていたことが出来ました。
右３文字はRaightで処理することでできました。
ありがとうございました。

回答No.2

imogasi

したいことがよくわからない。
バーコードリーダーでバーコードを読みこんだとき（ここまではバーコードリーダーのドライバーが受け持ち、余も混めの指令を、たぶんハードウエア（ボタンなど）から出し、読み取り、それを所定の文字コード化して、シートの所定のセルにセットしてくれるのだろ
参考　https://www.technical.jp/barcode/handbook2/chapter-2-1.html
う）、そのつど、その情報を文字コード化した、文字列を捉えられる段階（変数）があり、プログラムにコントロール（制御）がわたり、プログラムで文字列を加工できる機会はないのか？
（上記WEBの例ではシートのB列セルに、セットしてくれる。
在るならVBA・VBのMID関数で、切り出せば、そして各テキストボックスのTEXTプロパティにその部分文字列を代入すれば、しまいだ。
質問はそういう簡単なことではないのか。私が判ってないのか？
上記WEBの例ではシートのB列セルに、セットしてくれるが、それを確認か何かの目的で、分けて３か４個のテキストボックスに分けて表示したいのか。

お礼

遅くなりすみません。
質問内容が不足してすみません。
テキストボックス２（品番）の一致によりラベル１に品名を表示して
バーコード読込→仕入先３０社程(TEXT1)ごとに注文書作成を振分け→
(TEXT2)、(Label1)、(Text3)の内容で注文ボタンクリック→
各社毎にメールにて送信を行いたかったからです。
取りあえず目的は達成できました。
ありがとうございます。