そこで、本記事ではIsEmpty関数の使い方について解説します。

本記事では、IsEmpty関数の使い方や注意点、実際の活用例について詳しく解説します。

ぜひ参考にしてください。
それでは見ていきましょう！

⬛︎こんな事ができるようになる！

・セルや変数が空白かどうかを判断できるようになる

■構文

IsEmpty関数は、指定したセルや変数が空白かどうかを判断するために使用されます。

戻り値はTrue（空白）またはFalse（空白でない）となります。

⬛︎忙しい人向けのコピペ用ソースコード

Sub 空白判断()
Dim target As Range
Set target = 対象セル・変数

If IsEmpty(target) Then
　'空白の処理
Else
　'空白でないときの処理
End If
End Sub

対象セル・変数はカスタムして使用してください。
「空白の処理」または「空白でないときの処理」を当てはめることで場面に合わせて処理できます。

⬛︎セルが空白かどうかを判断する方法

まずはセルが空白かどうかを判断する方法について説明します。
下図の見本をご覧ください。

⬛︎変数が空白かどうかを判断する方法

次に変数が空白かどうかを判断する方法について説明します。

今回は先にソースコードを見ていきましょう。

上記の例では、変数textが空白かどうかを判断しています。

今回は変数textが空白の場合なので、「変数は空白です」というメッセージが表示されます。

それでは実行してみましょう。
結果はこのようになります。

「変数は空白です」というメッセージが出ました。
では空白でないときの処理結果を見ていきましょう。

下記コードで実行してみます。

それでは実行してみましょう。
結果はこのようになります。

空白でないので「変数は空白ではありません」のメッセージが表示されました。

⬛︎よくあるエラーと対処法

IsEmpty関数は、空白セルや空白文字列を判定するために使用されますが、時に予期しない結果を返す場合があります。

以下の点に注意してください。

空白セルの判定

IsEmpty関数では、セルに数式や空白スペースが含まれている場合、Falseを返します。

この場合、セルが本当に空白であるかどうかを確認するために、Blankプロパティを使用すると良いでしょう。

例を紹介します。
下記見本をご覧ください。

変数「text」には「””（空白)」が格納されているため、一見、Trueの戻り値となりそうですが、

実際は「空白」が格納されているとみなされて「空白ではありません」のメッセージが表示されます。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

⬛︎まとめ

いかがだったでしょうか？

本記事では、マクロVBAでセルや変数が空白かどうかを判断する方法を解説しました。

IsEmpty関数を使うことで、簡単に空白の判定ができます。

以上が、IsEmpty関数についての解説となります。お役に立てれば幸いです。

それでは次回の記事でお会いしましょう。

この関数を使うことで、変数やセルに格納された値が数値かどうかを簡単に判定することができます。

本記事では、IsNumeric関数の使い方や注意点、実際の活用例について詳しく解説します。
ぜひ参考にしてください。
それでは見ていきましょう！

⬛︎こんな事ができるようになる！

セルに入力された値が数値かどうかを判定することが出来る

⬛︎忙しい人向けのコピペ用ソースコード

Sub 数値判定の例()
Dim num As Variant
num = セル・変数' 数値として解釈可能な文字列

If IsNumeric(num) Then
　' 数値の時の処理
Else
　' 数値の時以外の処理
End If

End Sub

セル・変数・数値の時の処理・数値の時以外の処理はカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてです「IsNumeric関数」になります。
関数仕様としては下記の通りです。

︎IsNumeric関数の使い方

・セルの値が数値かどうか判定する

まず、セルの値が数値かどうか判定してみましょう。
下図の見本をご覧ください。

B2からB5のセルに文字または数値が入力されてあります。
こちらを数値かどうか判定して、結果をD列に表示してみたいと思います。

では再度構文を見てみましょう。

⬛︎IsNumeric関数の注意点

IsNumeric関数を使う際には、以下の点に注意が必要です。

1. IsNumeric関数の出力結果について

IsNumeric関数は、数値として解釈可能な値をTrueとして返します。
つまり、数値以外の値（文字列やブール値など）もTrueと判定されることに注意してください。

2.ロケールの影響

数値判定は、ロケール（地域や言語による設定）に影響を受けます。
ロケールによっては、小数点や桁区切りの表記方法が異なるため、数値判定の結果も異なる場合があります。

⬛︎数値判定の活用例

数値判定は、さまざまな場面で役立ちます。以下にいくつかの活用例を紹介します。

・変数の数値判定

変数に格納された値が数値であるかどうかを判定し、条件に応じた処理を行うことができます。

例えば、ユーザーからの入力値が数値であるかどうかを確認してから計算を行う場合などに活用できます。

・セルの数値判定

Excelのセルに格納された値が数値かどうかを判定し、条件に応じた処理を行うことができます。

例えば、数値以外の値が入力されたセルに対して警告を表示する場合などに活用できます。

・数値判定を活用した処理の例

数値判定を組み合わせることで、より複雑な処理を実現することも可能です。

例えば、特定の範囲内の数値だけを処理対象とする場合や、数値以外の値が含まれるデータを除外する場合などに活用できます。

⬛︎よくあるエラーと対処法

・ 文字列が数値として解釈できない場合に誤った結果が返る

 IsNumeric関数を使う前に、文字列が数値として解釈可能かどうかを事前に確認しましょう。

例えば、CIntやCDblなどの変換関数を使って文字列を数値に変換してからIsNumeric関数を適用することで正確な結果を得ることができます。

・セルに空白や空文字列が含まれる場合に誤った結果が返る

セルの値を取得する前に、セルが空でないことを確認しましょう。

IsEmpty関数やLen関数を使ってセルが空でないかどうかを判定し、空でない場合にのみ数値判定を行うようにします。

・エラー: ロケールによって数値の判定結果が異なる

ロケールによって小数点や桁区切りの表記方法が異なるため、数値判定の結果も異なる場合があります。

このような場合は、数値判定の前にロケールを明示的に設定することで一貫性のある結果を得ることができます。

例えば、Application.DecimalSeparatorやApplication.ThousandsSeparatorプロパティを使用して適切な設定を行います。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

⬛︎まとめ

いかがだったでしょうか？

本記事では、マクロVBAにおける数値判定について解説しました。IsNumeric関数を使うことで、変数やセルに格納された値が数値かどうかを簡単に判定することができます。

数値判定は、ユーザーからの入力値の検証やデータ処理の際に役立ちます。正しい数値の取り扱いやエラーの防止に寄与することができます。

是非、IsNumeric関数を活用して効率的なVBAプログラミングを行ってみてください。

それでは次回の記事でお会いしましょう。

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題19について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの文字列を連結・つなげて表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セルA1、A2、A3の文字列を連結する

動作説明

 VBAを使用して、セルA1、A2、A3に入力された文字列を取得し、それらを連結して1つの文字列として表示します。

この問題では、セルA1、A2、A3の文字列を連結し、結果を表示する必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルに値を表示するためには、Rangeオブジェクトを使用します。
セルを指定して該当するセルオブジェクトを取得し、計算する必要があります。

セルを指定するには、Range(“A1”)というようにセルを指定します

・ヒントその2

取得したセルの値を文字列として連結するためには、連結演算子（&）を使用します。

例えば、表示先= 文字1 & 文字2 というように、使用することで文字1 と 文字2を連結できます

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

回答②の繰り返し処理をするために、セル範囲内の各セルを順番に読み取るループ構造が必要です。
For Nextループを使った反復処理を利用した反復処理について理解しておくと良いでしょう。

これらの知識を応用して、問題を解くためのコードを作成しましょう。  

文字列の連結

 VBAでは、文字列の連結には連結演算子（&）を使用します。
連結演算子を使うことで、複数の文字列を結合して1つの文字列にすることができます。

まとめ

この練習問題では、RangeオブジェクトとValueプロパティを使用してセルの値を取得し、連結演算子を使って文字列を連結しました。

練習問題に取り組む際は、解答コードと必要な知識を参考にしてください。
練習問題の難易度を上げながら、VBAのスキルを磨いていくことができます。

以上が練習問題19となります。お疲れ様でした！

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題17について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルのうち、対象の文字を含んでいるセルの数を表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までのセルのうち、「A」の文字が含まれているセルの個数を表示する

動作説明

VBAを使用して、セル番地A1からA10までのセルのなかで、セル内の文字列に「A」が含まれているかどうかを確認します。

含まれている場合はカウントし、最終的な結果として含まれているセルの個数を表示します。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルに値を表示するためには、Rangeオブジェクトを使用します。
セル番地を指定して該当するセルオブジェクトを取得し、計算する必要があります。

セル範囲を指定するには、Range(“D1:D5”)というように範囲の開始セルと終了セルを指定します

・ヒントその2

セルを順次、確認するためには、ループ構造を使用します。
For文を使って、A1からA10までのセルを順番に処理します。

・ヒントその3

文字列内に特定の文字が含まれているかどうかを確認するためには、InStr関数を使用します。

構文は下記の通りです。

例えば、InStr(1, “ABC“, “A“)は文字列「ABC」内に「A」が含まれているかを調べることができます。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

それでは実行してみましょう。
結果はこのようになります。

A1からA10で「A」の文字を含むセルの数は「3セル」ということがわかりました。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

練習問題で使用した繰り返し処理を行うためにはループ構造が必要です。
For Nextループを使った反復処理や、Forループを使ったカウンターを利用した反復処理について理解しておくと良いでしょう。

これらの知識を応用して、問題を解くためのコードを作成しましょう。  

文字列の検索

文字列内に特定の文字や文字列が含まれているかどうかを確認するためには、InStr関数を使用します。

InStr関数は、検索対象の文字列内で指定した文字や文字列が最初に出現する位置を返します。
もし見つからない場合は0を返します。

使用方法は下記の通りです。

まとめ

この練習問題では、VBAを使用してExcelの操作を行いました。具体的には、セルに値を入力したり、セル範囲を走査したりする問題を解きました。

練習問題17では、セル番地A1からA10までのセルのうち、「A」の文字が含まれているセルの個数を表示することを目標としました。

解答コードでは、ForループやFor Eachループを使用してセルを走査し、InStr関数を使って文字列内に「A」が含まれているかを判定しました。

必要な知識として、ループ構造の理解やセルの値の取得方法、文字列の検索方法が重要でした。
これらの知識を活用することで、Excelの操作を効率的に行うことができます。

練習問題を通じて、VBAの基本的な構文や関数の使い方を練習することができました。
続く問題では、さらに応用的な操作や複雑な問題に挑戦してみることができます。

以上が練習問題17となります。お疲れ様でした！

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題13について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの数値を元に、条件に応じて文字色を変更する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セルA1からA10までの数値を元に、条件に応じて文字色を変更する

動作説明

VBAを使用して、セルA1からA10までの数値を読み取り、特定の条件を満たす場合に文字色を変更します。

この問題では、セルの数値が100を超える場合は赤色、200を超える場合は青色に変更する必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

・ヒントその2

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。

例えば、Range(“B2”).Font.Color= RGB(255, 0, 0)というコードを使って、
セルB2の文字色を赤色に変更することができます。

・ヒントその3

取得した値が指定数値以上であるかどうかを判定する条件分岐を使用します。

条件分岐はIf Thenを使用します。

使用方法は下記の通りです。

以上のヒントを参考に課題に取り組んでみてください！

解答コード

では回答を見ていきましょう！

・回答その①

上記のコードでは、セルA1からA10までの数値を読み取り、条件に応じて文字色を変更しています。
セルの数値が200を超える場合は青色、100を超える場合は赤色に変更されます。

では実行した結果を見ていきましょう。
結果はこのようになります。

上手く機能していますね。

解答コードでは、For Eachループを使用してセル範囲内の各セルに対して処理を行っています。

各セルの値を比較し、条件に応じて文字色を変更するために、FontオブジェクトのColorプロパティを使用してRGB値を指定しています。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。
今回はFor Each文とFor Next文を使用しました。

条件分岐

セルの値が偶数かどうかを判定するためには、条件分岐の文法を理解する必要があります。
VBAではIf…Then…Else文やSelect Case文などが使用されます。

セルの文字色の変更

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。
文字色はRGB値（赤、緑、青）で指定されます。
例えば、赤色は`RGB(255, 0, 0)`で表されます。

まとめ

この練習問題では、ExcelのVBAを使用して特定の条件に基づいてセルの文字色を変更する方法について学びました。

具体的な問題内容は、セルA1からA10までの数値を元に、100を超える数値は赤文字、200を超える数値は青文字に変更するというものでした。

解答コードでは、セルの値を読み取り、条件に応じて文字色を変更するために、
RangeオブジェクトやCellsオブジェクト、Fontオブジェクトを使用しました。また、RGB関数を使用して色を指定しました。

必要な知識としては、VBAの基礎、セルの操作、条件分岐、文字色の変更などがありました。
これらの知識を習得することで、問題を解決するためのコードを作成できます。

練習問題を通じて、VBAの応用的な使い方やセル操作の基本的な操作方法を学ぶことができました。
これらの知識は、Excelの自動化やデータ処理など、実務での業務効率化にも役立つものです。

以上で練習問題12となります。お疲れ様でした！

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題11について

こちらはマクロVBAの知識で少し発展した課題になります。

指定されたセルの文字数・文字列の長さの合計値を計算し、表示する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地A1からA10までの文字数・文字列の長さの合計値を計算し、セル番地C2に結果を表示する。

動作説明

VBAを使用して、セル番地A1からA10までの文字列の長さを計算し、その合計値をセル番地C2に表示します。

具体的には、A1からA10までのセルの値を取得し、文字数・文字列の長さを計算していき、最終的な合計値をC2に表示する必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

ループを使用してセル番地A1からA10までの値を順番に取得します。

例えば下記のような見本を紹介します。

・ヒントその2

セルに入力されてある文字数・文字列の長さを計算するためには「Len関数」を使用する必要があります。

Len関数の構文は下記の通りです。

・ヒントその3

文字数・文字列の長さをカウントアップします。

カウントアップ方法は「変数＝変数+1」で指定した変数がカウントアップされます。

これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

では回答を見ていきましょう！

・回答その①

では実行してみましょう。
結果はこのようになります。

文字数の合計は「33」となりました。

文字数の合計は手動で数えても「33」なので問題なく機能していることが分かります。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

ループ構造

偶数の個数を数えるためには、セル番地A1からA10までの値を1つずつ判定する必要があります。
ループ構造を使用して、指定した範囲のセルを順番に処理する方法を理解する必要があります。
今回はFor Each文とFor Next文を使用しました。

文字列の長さの計算

文字列の長さを計算するために、Len関数を使用します。Len関数は、文字列の長さを返します。

構文をは下記の通りです。

出力先＝Len(対象となる文字列)

とてもシンプルな関数ですね。

まとめ

この練習問題では、VBAを使用してセル番地A1からA10までの文字列の長さの合計値を計算し、セル番地C2に結果を表示する方法を学びました。

具体的には、Forループを使用してセルの範囲を繰り返し処理し、各セルの値の文字列の長さを計算しました。
計算した長さを合計値に加算していき、最終的な結果をセル番地C2に表示しました。

この問題を解くためには、ループ構造の理解、セルの範囲指定、文字列の長さの計算、変数の宣言と使用といった基本的な知識が必要です。

VBAを使ってExcelの操作を自動化することで、繰り返し行われる処理や複雑な計算を効率的に実行することができます。

練習問題を通じて、VBAのスキルを向上させ、Excelの操作やデータ処理の効率化を実現するための能力を身につけていきましょう。

以上で練習問題11となります。お疲れ様でした！

今回は、「Format」関数を使用してセルの表示形式を変更する方法について詳しく解説します。

ぜひ参考にしてみてください。
それでは見ていきましょう！

⬛︎こんな事ができるようになる！

この関数を使用することで、数値や日付、文字列などのデータを特定の形式に整形することができます。

⬛︎忙しい人向けのコピペ用ソースコード

Sub format変換()
　Dim Befor
　　Befor = 変更する数値・文字
　　入力セル・変数 = Format(Befor, 書式コード)
End Sub

変更する数値・文字・入力セル・変数・書式コードはカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてです「Format関数」になります。
関数仕様としては下記の通りです。

⬛︎数値の表示形式を変更する方法

・小数点以下の桁数を指定する

まず、小数点以下の桁数を指定してみましょう。
下図の見本をご覧ください。

今回は「123.456」という数値の値を小数点２桁に変更したいと思います。

⬛︎日付の表示形式を変更する方法

日付の表示形式を変更する際にも、Format関数を利用することができます。

・日付の書式を指定する

まず、日付の書式を指定してみましょう。
下図の見本をご覧ください。

日付の表示形式を指定する際は、書式コードを使用します。
例えば、「“yyyy/mm/dd”」という表示形式を使用すると、年月日の順で表示されます。

以下は具体的なコード例です。

上記のコードを実行すると、セル”C5“には現在の日付が「2023/07/3」という形式で表示されます。

・日付の表示言語を変更する

次に、日付の表示言語を変更してみましょう。
下図の見本をご覧ください。

通常であれば下図のように「日本」になっています。

日付の表示言語を変更する場合は、書式コードの前に「[$-言語コード]」を追加します。
例えば、英語表記の場合は「[$-409]」を使用します。

以下は具体的なコード例です。

上記のコードを実行すると、セル”C5“には現在の日付が英語表記の「2023/07/3」という形式で表示されます。

⬛︎文字列の表示形式を変更する方法

文字列の表示形式を変更する際にも、Format関数を使用することができます。

・特定の文字列パターンを指定する

まず、特定の文字列パターンを指定してみましょう。
下図の見本をご覧ください。

今回は「VBA」という文字に「ABC」という文字を追加してみましょう。

例えば、文字列の先頭に「ABC」を追加する場合は、「“ABC” & 対象の文字列」という形式で指定します。以下は具体的なコード例です。

上記のコードを実行すると、セル”C5“には「ABC VBA」という文字列が表示されます。

・文字列を大文字または小文字に変換する

次に、文字列を大文字または小文字に変換してみましょう。
下図の見本をご覧ください。

文字列を大文字に変換する場合は、「“>”」関数を使用します。
小文字に変換する場合は、「“＜”」関数を使用します。

以下は具体的なコード例です。

ードを実行すると、セル”C5“には「VBA」という文字列が表示されます。

⬛︎よくあるエラーと対処法

・ “型不一致”エラー

 対策: Format関数の引数の型が正しく一致していることを確認してください。
例えば、数値型の引数を指定する場合は、文字列や日付型ではなく数値型のデータを使用してください。

・”無効な書式コード”

 対策: 使用する書式コードが正しい形式であることを確認してください。
書式コードには特定のルールがあります。

間違った形式の書式コードを使用している場合は、正しい書式コードを確認し、修正してください。

・”引数が不足しています”

対策: Format関数に必要な引数がすべて指定されていることを確認してください。
必要な引数が不足している場合は、引数を追加してください。

・”式が複雑すぎます”

対策: Format関数の引数が複雑すぎる場合に発生します。
このエラーを回避するためには、引数を単純化する必要があります。

長い式や複数の関数の組み合わせを使用する場合は、一時変数を使用して式を分割することを検討してください。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

⬛︎まとめ

いかがだったでしょうか？

今回は、マクロVBAにおける表示の変更について「Format」関数を中心に解説しました。

数値や日付、文字列などのデータを特定の形式に整形する際に、この関数を活用することができます。

Format関数の使い方や具体的なコード例を通じて、セルの表示形式を柔軟に変更する方法を学びました。

ぜひ活用してみてください。

それでは次回の記事でお会いしましょう。

こちらは、対象のセル・変数などから文字を読み取り
対象の文字・数値を検索する関数となっています。

【マクロVBA】対象のセル・変数に指定した文字・数値が含まれているかInStrで確認する ► 独学エクセル塾 (dokugakuexcel.com)

しかし、こちらの関数は、頭文字からの検索であり
場合によっては、右側・後側から検索したい場面がありますよね。

そんな時に使用できるのが「InStrRev関数」となっています。

InStrRev関数を使用すれば、簡単に右側から文字を検索できるので、ぜひ参考にしてみてください。
それでは見ていきましょう。

⬛︎こんな事ができるようになる！

・指定した文字が、右側から何文字目に含まれているか確認できるようになる

⬛︎忙しい人向けのコピペ用ソースコード

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long
N = InStrRev(対象のセル・変数, "検索したい文字・数値")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

対象のセル・変数と検索したい文字・数値をカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてですが「InStrRev関数」になります。
関数仕様としては下記の通りです。

InStrRev(検索対象,検索文字・数値,[検索開始位置],[検索の種類])

「[ ]」は省略可能となっています。

[検索開始位置]では検索を開始する位置を指定することが出来ます。
たとえば「3」を指定すると先頭から3文字目を対象として
３文字目から前に検索します。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎右側・後ろから指定した文字が何文字目にあるか検索する

・セルから文字を検索する

では、実際にセルから文字を読み取って右側から対象の文字を検索したいと思います。

下の図をご覧ください。

セル番地「B3」に文字が入力されてあります。
今回は、その文字から「C」を検索して
右側から何文字目にあるか表示したいと思います。

では、構文に当てはめていきましょう。
InStrRev(検索対象,検索文字・数値,[検索開始位置],[検索の種類])

検索対象はセルの文字列を参照するので「B3」です。
検索する文字は「“C”」なので、そのまま入力します。
ここで「”」で囲わないと変数扱いになるので注意が必要です。

当てはめるとこのようになります。
InStrRev(Range(“B3”), “C”)

では見本のソースコードをご覧ください。

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long
N = InStrRev(Range("B3"), "C")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

最後に検索した結果をメッセージボックスで表示させます。

では実行してみましょう。
結果はこのようになります。

「対象の文字は右側から検索すると6文字目にあります」と言うメッセージが表示されました。

「C」は右側から検索すると6文字目にあたるので
うまく機能していますね。

参考までに、通常のInStr関数で表示した結果を見てみましょう。

Sub 対象の文字が左側から何文字目か調査()
Dim N As Long
N = InStr(Range("B3"), "C")
MsgBox "対象の文字は左側から検索すると" & N & "文字目にあります。"
End Sub

結果はこのようになります。

先ほどとは異なり、左から検索するので「２文字目」という結果となりました。

・変数から検索する

先ほどはセルから文字を読み取り、検索を行いましたが、変数から読み取ることも可能です。

では、例を紹介したいと思います。

見本のソースコードをご覧ください。

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long, Word
Word = "あいうえおあいうえお"
N = InStrRev(Word, "う")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

内容として、変数「Word」に「あいうえおあいうえお」と言う文字列を格納しています。
こちらをInStrRev関数を使用することで右側から文字を検索しています。

今回は、見本で「う」を検索しましょう。

実行した結果はこちらです。

「あいうえおあいうえお」を右から「う」を検索すると
８文字目にあるので、狙い通り機能していることがわかります。

さらに、比較用としてInStr関数でも表示してみたいと思います。

Sub 対象の文字が左側から何文字目か調査()
Dim N As Long, Word
Word = "あいうえおあいうえお"
N = InStr(Word, "う")
MsgBox "対象の文字は左側から検索すると" & N & "文字目にあります。"
End Sub

結果はこのようになりました。

文字列「あいうえおあいうえお」に含まれる「う」は左から見ると
「8」文字目に含まれていますが、右から見ると「3」文字目に含まれていることから、「3」を出力しています。

⬛︎応用編

・右端から何文字目に対象の文字があるか検索する

では応用編です、先ほどは右側から検索し、左側から何文字目に対象の文字があるか検索していましたが
Len関数を使用することにより、右側から何文字目にあるか求めることができます。

ではメカニズムについて紹介したいと思います。
下記のソースコードをご覧ください。

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long, Wordcount
Wordcount = Len(Range("B3")) '文字の数を算出
N = Wordcount - InStrRev(Range("B3"), "F") + 1 '右から何文字目か計算
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

まずLen関数でセル番地B3の文字数を算出します。
その後にInStrRev関数を使用することで、右側から対象の文字を検索しています。

そこからLen関数で求めた文字数からInStrRev関数で
求めた文字の位置を引くことによって右端から何文字目にあるか求めることができます。
ポイントとして結果に「+1」することで正確な計算結果となります。

では、見本を見ていきます。
セル番地B3には、「BCDEFCD」と言う文字列が含まれています。

こちらを「F」で検索して、右端から何文字目にあるか求めたいと思います。

それでは実行しましょう。
結果はこのようになります。

「F」は、右端から「3」文字目にあたるので
うまく機能していますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または対象となる文字が
大文字と小文字で異なる場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が右側から数えて何文字目か調査()
Dim N As Long
N = InStrRev(Range("B3"), "d")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStrRev(検索対象,検索文字・数値,[検索開始位置],[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStrRev(Range("B3"), "d", , vbTextCompare)

実行した結果はこちらです。

小文字の「ｄ」で検索したにもかかわらず大文字の「Ｄ」をカウントしてくれました。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

InStrRev 関数 – Microsoft サポート

⬛︎まとめ

いかがだったでしょうか？
InStrRev関数を活用することで、右から文字を検索することができます。
さらにLen関数と合わせることによって、右端から何文字目に対象の文字があるか検索することも可能です。

ぜひ活用してみてください。

それでは次回の記事でお会いしましょう。

ただし、今回は応用編なので、基礎編については下記の記事をご覧ください。

【マクロVBA】対象のセル・変数に指定した文字・数値が含まれているかInStrで確認する ► 独学エクセル塾 (dokugakuexcel.com)

対象の文字が何文字目に含まれているか確認できる
InStr関数ですが、応用することで何個・何文字含まれているか
求めることができます。

是非参考にしてみてください。
それでは見ていきましょう。

⬛︎こんなことができるようになる！

対象の文字が何文字あるか個数を確認することができる。

⬛︎忙しい人向けのコピペ用ソースコード

Sub 対象の文字が何個含まれているか調査()
Dim Counter, N
　Counter = 0
　N = 1
Do
　N = InStr(N + Counter, 検索したいセル・変数, "確認したい文字")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

■構文の説明

まず、使用する関数についてですが「InStr関数」になります。
関数仕様としては下記の通りです。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

「[ ]」は省略可能となっています。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎対象の文字の数を求める

・例①

では、実際にInStr関数を使用して対象の文字の個数を求めたいと思います。
下記の見本をご覧ください。

今回はセル番地「B3」の文字列に「A」が何個含まれているか求めたいと思います。
では見本のソースコードをご覧ください。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "A")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

では、仕組みを紹介したいと思います。

まず、対象をセル番地B3にしています。
そこから今回は「A」が何文字含まれているか確認したいと思います。

検索の開始位置を変数「N」としており
初めは1文字目から検索を行います。

１週目の結果として「A」は１文字目にあるので
変数「N」に「1」が格納されます。

そして、文字のカウントの変数「Counter」を+1します。

そして、この処理をループ処理することにより
文字を繰り返し検索するメカニズムになっています。

続いて2週目では、
開始位置を「N+Counter」していることにより、先程の検索に引っかかった「１文字目のA」は除外するようになります。

その後は検索に文字が引っかかるたびに「Counter」を+1することで

対象の文字が何文字あるかカウントします。

そして、検索に引っかからなくなった場合,
InStr関数の結果は「0」になるわけですから、「If N = 0 Then Exit Do」でループを抜け出します。

以上が説明になります。

では、実際に走らせてみたいと思います。

実行した結果はこちらです。

「ABCADEAF」には「A」が3文字含まれているので
「対象の文字は３個あります」というメッセージボックスが結果として表示されました。

・例②

さらにB3を「BCDEFCD」にして「CD」を検索しましょう。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "CD")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになりました。

「BCDEFCD」には「CD」という文字が２つあるので

「2」を出力しています。

文字数が増えてもうまく機能していますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または対象となる文字が
大文字と小文字で異なる場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "d")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStr(N + Counter, Range("B3"), "d", vbTextCompare)

実行した結果はこちらです。

小文字の「ｄ」で検索したにもかかわらず大文字の「Ｄ」をカウントしてくれました。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください☟

InStr関数（Visual Basic for Applications） | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
InStr関数を応用することで対象の文字が何文字あるか検出することができます。

是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

さらに、応用すれば何文字目に含まれているかも確認できるようになるので
とても便利な方法です。

ぜひ参考にしてみてください。
それでは見ていきましょう。

⬛︎こんなことができるようになる

・指定した文字が、何文字目に含まれているか確認できるようになる
・対象のセル・変数の文字・数値を読み取り指定した文字が含まれているか確認できるようになる。

⬛︎忙しい人向けのコピペ用ソースコード

Sub InStr見本コード()
Dim TargetName As String
Dim SearchWord As String

TargetName = Range("B3") '対象セルor変数の指定
SearchWord=○○'検索したい文字を入力
'文字列中に「SearchWord」が含まれているかどうかを判定
If InStr(1, TargetName, SearchWord, vbTextCompare) > 0 Then
'対象文字が含まれていた時の処理
Else
'対象文字が含まれていない時の処理
End If
End Sub

黄色の蛍光ペンの個所を打ち換えて使用してください。

■構文の説明

まず、使用する関数についてですが「InStr関数」になります。
関数仕様としては下記の通りです。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

「[ ]」は省略可能となっています。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎指定した文字が含まれているか確認する

・対象の文字が何文字目にあるか割り出す

では、実際にInStr関数を使用してみたいと思います。

まずはセル番地「B3」の文字列から「D」の文字が含まれているか確認したいと思います。

見本のソースコードは下記の通りです。

Sub 何文字目にあるか調査()
Dim answer As Long
'文字列中に「D」が何文字目に含まれているかどうかを判定
answer = InStr(1, Range("B3"), "D")
MsgBox "Dは" & answer & "文字目にあります。"
End Sub

では構文と比較しましょう。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

今回は検索開始位置を入力していますが、省略しても構いません。
例では「1」と入力しているので１文字目から検索します。

検索対象はセル番地「B3」なので「 Range(“B3”)」としています。
「Cells(3,2)」でも構いません。

検索文字・数値は「D」なので、ダブルクォーテーション「”」で囲って入力します。
ここで「”」で囲わないと変数扱いになるので注意が必要です。

結果としてInStr関数に当てはめるとこのようになります。
answer =InStr(1, Range(“B3”), “D“)

今回は結果を「answer」という変数に格納してメッセージボックスにて
何文字目に「D」があるか表示したいと思います。

それではこちらを実行してみましょう。
結果はこのようになります。

「Dは4文字目にあります。」と表示されました。

Aから数えて４番目に位置しているのでうまく機能していますね。

・対象の文字が含まれているか確認する

InStr関数ですが、検索した結果、対象の文字がなければ
変数の値は「0」になります。

この機能を応用することで
対象の文字が含まれているかわかるようになります。

では、対象の文字が含まれているか、判別するソースコードを紹介します。

Sub 対象の文字が含まれているか調査()
'文字列中に「D」が何文字目に含まれているかどうかを判定
If InStr(1, Range("B3"), "D") > 0 Then
MsgBox "対象の文字は含まれています"
Else
MsgBox "対象の文字は含まれていません"
End If
End Sub

では説明です。
先程のInStr関数にIF関数を合わせることで
対象の文字が含まれているか判別できるようになります。

メカニズムとして
文字があった場合、何文字目か数値を算出するので結果は「0」以上になります。
そこでIF関数で結果が「0」を超えていた場合は「対象の文字は含まれています」というメッセージを表示させます。
対して検索結果が無い場合は「0」が算出されるため「対象の文字は含まれていません」と言うメッセージを表示させます。

それでは、こちらのソースコードを走らせてみましょう。

セル番地B3には「ABCDE」入力しています。
「Ｄ」で検索した結果はこちらです。

「ABCDE」の中に「D」は含まれているので「対象の文字は含まれています」という結果になりました。

今度はB3に「FGHIJ」と入力しました。
実行した結果はこちらです。

「FGHIJ」に「D」はないですから、「対処も文字は含まれていません」という結果になりました。

狙い通り動作していますね。
この方法で、対処のセル・変数に対象の文字が含まれているか確認することができます。

・変数から検索する

先ほどはセルから文字を読み取り、
検索を行いましたが、変数から読み取ることも可能です。

では、例を紹介したいと思います。

見本のソースコードをご覧ください。

Sub 対象の文字が含まれているか調査()
Dim Word As String
Word = "あいうえお"
If InStr(1, Word, "う") > 0 Then
MsgBox "対象の文字は含まれています"
Else
MsgBox "対象の文字は含まれていません"
End If
End Sub

内容として、変数「Word」に「あいうえお」と言う文字列を格納しています。
こちらをInStr関数を使用することで
対象の文字が含まれているか確認します。

今回は、見本で「う」を検索しましょう。

実行した結果はこちらです。

「あいうえお」の中に「う」は含まれているので「対象の文字は含まれています」という結果になりました。

今度は「か」を検索してみたいと思います。

If InStr(1, Word, "か") > 0 Then

結果はこのようになります。

変数でも文字を検索することが出来ていますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または検索する文字が
大文字と小文字で異なっている場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が何個含まれているか調査()
Dim Counter, N
Counter = 0
N = 1
Do
N = InStr(N + Counter, Range("B3"), "d")
If N = 0 Then
Exit Do
Else
Counter = Counter + 1
End If
Loop
MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStr(N + Counter, Range("B3"), "d", vbTextCompare)

実行した結果はこちらです。

小文字で検索しましたが、大文字の「D」が検索出来ていますね。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

InStr関数（Visual Basic for Applications） | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？
InStr関数を使えば対象の文字・数値が含まれているか確認することができます,
さらに、何文字目に含まれているかも確認することは可能なので、機能を応用することが可能です。

ぜひ活用してみてください。

応用編としてInStr関数を使用して、対象の文字が何文字あるか
算出する方法も、別の記事でまとめていますので、ご参照下さい。

記事についてはこちらから☟

【マクロVBA】対象の文字が何個・何文字あるかInStr関数で求める！変数・セルに対応 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。