【VBA道場】#27 文字列の右側全部を抜き出す
問題
mid関数を使って、A1セルの4文字目以降全てを抜き出し、メッセージボックスに表示させてください。
完成見本
解答
Sub vba_doujyou_27()
'A1セルの4文字目以降を抜き出してメッセージボックスに表示
MsgBox Mid(Range("A1"), 4)
End Sub
サンプルファイル(マクロ無)
マクロなしのファイルはこちらからご利用いただけます。
VBA道場27 サンプルファイル(マクロ無)
1 ファイル 7.76 KB
サンプルファイル(マクロ有)
今回のマクロはこちらからダウンロードしてご使用いただけます。
VBA道場27 サンプルファイル(マクロ有)
1 ファイル 12.44 KB
解説
Mid(元の文字列,開始位置):開始位置より右側の全ての文字を抜き出す
今回は、前回で学習したMid関数の、応用です。
前回のMid関数では
Mid(元の文字列,開始位置,切り出す文字数):任意の場所から文字を切り出す
上記のように文字数を指定していました。
しかし、文字数を指定しないと、開始位置から右側の全ての文字列を切り出すことができます。
前回のコードと並べてみてみましょう。
文字数指定あり
MsgBox Mid(”123456789”, 4, 2) ’4文字目から2文字分切り取る
123456789→45
文字数指定なし
MsgBox Mid(”123456789”, 4) ’4文字目以降を切り取る
123456789→456789
前回のRight関数とも見比べてみましょう。
Right関数
MsgBox Right(”123456789”, 3) ’右から3文字を切り取る
123456789 → 789
Mid関数
MsgBox Mid(”123456789”, 7) ’7文字目以降を切り取る
123456789→789
文字数が不確定な場合はMid関数、文字数が確定している場合はRight関数と使い分けると非常に便利ですね。
おわりに
今回はMid関数について学習しました!
Mid関数は、「文字数」を省略すると開始位置から右側全部を返します。
しっかりと復習しておきましょう!
今日はここまで。
おすすめ参考書
Amazon
たった1秒で仕事が片付くExcel自動化の教科書
いちばんやさしいExcelVBAの教本
ExcelVBA逆引き辞典 パーフェクト
楽天
いちばんやさしいExcelVBA
|
すらすら読めるExcelVBA
|
VBA逆引き大辞典
|