Excel2000VBA 郵便番号を展開して配列に入れる

Excel2000VBA 郵便番号を展開して配列に入れる

ヤマトの送り状印刷の時に利用する為、郵便番号を分解して1文字づつ取り出す事にした。

 

Sub 郵便番号を展開して配列に入れる()
'実験
'
Dim postN(8) As String
Dim postNumber As String
Dim i As Integer

'選択している郵便番号を変数postnumberに代入
    postNumber = Selection.Value
'郵便番号を左から一文字づつ取り出し配列に入れる
    For i = 1 To 8
        postN(i) = Mid(postNumber, i, 1) 'Mid(文字列、左からの位置、取り出す文字数)
    Next
'結果表示
    For i = 1 To 8
        Cells(i, "A") = postN(i)
    Next
   

End Sub