【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

いちばんやさしいExcel　VBAの教本　人気講師が教える実務に役立つマクロの始め方／伊藤潔人【1000円以上送料無料】 価格：2420円（税込、送料無料) (2021/4/22時点) 楽天で購入

すらすら読めるExcelVBA

スラスラ読めるExcel　VBAふりがなプログラミング [ リブロワークス ] 価格：2035円（税込、送料無料) (2021/4/22時点) 楽天で購入

VBA逆引き大辞典

Excel　VBA逆引き辞典パーフェクト第3版 [ 田中亨 ] 価格：2838円（税込、送料無料) (2021/4/22時点) 楽天で購入