【VBA道場】#27 文字列の右側全部を抜き出す

ExcelVBA

【VBA道場】#27 文字列の右側全部を抜き出す



問題

mid関数を使って、A1セルの4文字目以降全てを抜き出し、メッセージボックスに表示させてください。

 

完成見本

解答

Sub vba_doujyou_27()

'A1セルの4文字目以降を抜き出してメッセージボックスに表示
MsgBox Mid(Range("A1"), 4)

End Sub

サンプルファイル(マクロ無)

マクロなしのファイルはこちらからご利用いただけます。

 

サンプルファイル(マクロ有)

今回のマクロはこちらからダウンロードしてご使用いただけます。

 

解説

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

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

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

楽天で購入

 

 

 

VBA逆引き大辞典

[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

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

楽天で購入

 

 

タイトルとURLをコピーしました