vba - バーコードのデータを MS Excel の異なるセルに分割する

Question

私はバーコード スキャナー USB プラグ アンド プレイを持っています。これは、Excel の 1 つのセルに次の形式でデータの文字列を提供します。 4449520450061198001 助けてください。

よろしく、

Answer 1

更新しました

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Const ws_range = "A1:A10"

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer, k As Integer
    Dim codestr As String

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")

    codestr = Target.Text
    If Target <> "" Then
        If Not Intersect(Target, Me.Range(ws_range)) Is Nothing Then
            With Target
                k = Len(codestr)
                i = 2
                Do Until i = k + 2
                    ws.Cells(Target.Row, i).Value = Mid(codestr, i - 1, 1)
                    i = i + 1
                Loop
            End With
        End If
    End If

End Sub

私はこれを完全にテストしていませんが、値が列 a に挿入された後、右側のセルに分割されます。明らかに、A1:A10必要なものに合わせて変更します。