The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBA【Application.Unionメソッド】複数のセルを参照する - 2018年11月8日
- Excel関数【CONCAT関数】文字列を結合する - 2018年11月5日
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
どうも、takaです(^^♪
さて、皆さんは「この文字列の中に〇〇という文字が使われいてるか」判断したいと思ったことありませんか？
今回はそんなときに便利な「InsStr関数」をご紹介ていきます(^^♪
VBAのinStr関数とは？
inStr関数は引数に指定した文字列の中で、指定した文字が存在する位置を数値で返します
inStr関数書式
inStr関数の書式はこのように書きます。
1 | InStr (文字列される､検索する文字列) |
実際に使用してみましょう
1 2 3 4 5 | Sub Sample() MsgBox InStr("E-VBA", "B") End Sub |
このコードは文字列【E-VBA】のうち【B】が左から何番目にあるかを返すコードです。
【E-VBA】のうち【B】は4番目にあるので実行結果では【4】が返されました
inStr関数の使用方法
inStr関数単独で使用する出番はありませんが、inStr関数は指定した文字列が存在しない時は【０】を返す性質があるので文字列が存在するのかを調べるときに使用することが出来ます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub Sample() Dim buf As String buf = InputBox("調べる文字列を入力") If InStr("E-VBA", buf) = 0 Then MsgBox buf & "はE-VBAに存在しません" Else MsgBox buf & "はE-VBAに存在します" End If End Sub |
このコードはインプットBoxの中に入れた文字列を【E-VBA】の中に存在するかを調べるコードです。
画像では【C】を入力したので0が返されたのでIF文で【C】は存在しないとなりました。
inStr関数だけではあまり使用することはないかもしれませんが、特定の文字列が存在するか調べる場合では重宝されていますので覚えておいて損はない関数です。
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す