文字列の一部を取得する

今回は文字列から部分的に取得する方法についてメモしておきます。

左端から一部を取得する

次のプログラムは、左から8文字分を取得しています。
実行プログラム

Sub Sample5_2_1()

    MsgBox Left(Cells(1, 1).Value, 8)

End Sub

Sub Sample5_2_1()

MsgBox Left(Cells(1, 1).Value, 8)

End Sub

実行前

実行後

次のプログラムは、右から7文字分を取得しています。
実行プログラム

Sub Sample5_2_2()

    MsgBox Right(Cells(1, 1).Value, 7)

End Sub

Sub Sample5_2_2()

MsgBox Right(Cells(1, 1).Value, 7)

End Sub

実行前

実行後

左から10文字目を開始位置とし、5文字分、取得します。

実行プログラム

Sub Sample5_2_3()

    MsgBox Mid(Cells(1, 1).Value, 10, 5)

End Sub

Sub Sample5_2_3()

MsgBox Mid(Cells(1, 1).Value, 10, 5)

End Sub

実行前

実行後