練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題18について

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

指定されたセルのうち、数式が含まれているセルの個数を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を表示する。

動作説明

VBAを使用して、指定されたセル範囲内に含まれる数式を検出し、その数をカウントして表示します。

この問題では、セル番地A1からA10までのセルのうち、数式が含まれているセルの個数を求める必要があります。

ヒント

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

・ヒントその1

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

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

・ヒントその2

セルの数式を判定するためには、RangeオブジェクトのHasFormulaプロパティを使用します。

数式が含まれている場合、Formulaプロパティはその数式を返します。

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

・ヒントその3

ループを使用してセルを一つずつ調べ、数式が含まれているセルをカウントします。

カウンター変数を使い、数式が含まれているセルが見つかるたびにカウントアップします。

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

解答コード

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

・回答その①

・回答その②

必要な知識

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

ループ構造

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

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

HasFormulaプロパティ

セルが数式を持っているかどうかを判定するために、HasFormulaプロパティを使用します。

セルのHasFormulaプロパティは、セルが数式を持っている場合にTrueを返します。

まとめ

この練習問題では、VBAを使用してセル番地A1からA10までのセルのうち、数式が含まれているセルの個数を求める方法について学びました。

具体的には、Rangeオブジェクトとループ構造を組み合わせて、セルの範囲内に数式が含まれているかどうかを判定し、
数式が含まれているセルの個数をカウントしました。

VBAを使うことで、Excelの操作をより効率的に行うことができます。

この練習問題を通じて、ループ構造やRangeオブジェクトの使用方法を習得し、さらに応用的な操作や処理にも挑戦していきましょう。

次の練習問題では、さらに複雑なVBAの使用例に取り組んでいきますので、順番に解いていくことでスキルを向上させていきましょう。

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

練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロ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を実践することでスキルを身につけることが出来ます。

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

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

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

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

・練習問題16について

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

指定されたセルを元に、空白セルの個数を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までのセルのうち、空白セルの個数を表示する。

動作説明

VBAを使用して、指定された範囲のセルのうち、空白セルの個数をカウントし、結果を表示します。

この問題では、セル番地A1からA10までのセルのうち、空白セルの個数を求める必要があります。

ヒント

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

・ヒントその1

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

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

・ヒントその2

取得したデータの空白のセルを数えるには、関数を使用する必要があります。

例えば、WorksheetFunction.countBlank()関数を使用して、セル範囲の空白をカウントすることができます。

・ヒントその3

セルの値が空白かどうかを判定するためには、IsEmpty関数を使用します。

例えば、IsEmpty(Range(“A1”))というように使います。
IsEmpty関数は、セルが空白の場合にTrueを返します。

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

解答コード

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

・回答その①

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

A1からA10の空白セルの数は「４セル」ということがわかりました。

・回答その②

必要な知識

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

セルの判定

セルが空白であるかどうかを判定するために、IsEmpty関数を使用します。

IsEmpty関数は、指定されたセルが空白であればTrueを返します。

WorksheetFunctionの使用

空白セルのカウントをするためには、WorksheetFunctionが必要です。
下記参考記事で紹介しています！

まとめ

この練習問題では、VBAを使用して指定された範囲内の空白セルの個数をカウントする方法を学びました。

具体的には、セル番地A1からA10までの範囲において空白セルの個数を求める問題を解きました。
解答コードでは、For Eachループを使用して各セルを順に処理し、IsEmpty関数を使用してセルが空白かどうかを判定しました。

また、別の解答としてWorksheetFunction.CountBlankメソッドを使用する方法も紹介しました。
このメソッドを使うことで、より簡潔に空白セルの個数を取得することができます。

VBAを使うことで、Excelの操作を自動化し、複雑な処理を行うことができます。
練習問題を通じてVBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

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

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

【マクロ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)

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

通常の置換機能はこちらから☟

【置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

その置換機能がマクロVBAでも実行することができます。

今回は選択範囲・複数範囲での置換や部分一致・完全一致置換、

大文字・小文字の区別など様々な調整方法をまとめてますので

ぜひ参考にしてみてください。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

赤字の部分をカスタムして使用してください。

Sub 文字数値の部分一致置換()
Range("ここに置換対象の範囲").Replace What:="置換前の文字・数値", Replacement:="置換後の文字・数値", LookAt:=xlPart
End Sub

■文字・数値を置き換える

・置換の基本プログラム

対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値

・置換のオプション機能

■ Replaceを使用して文字・数値を置き換える

・通常の置換

では見本を元に進めていきます。
下図をご覧ください。

B3に「1」という数値がありますね。
では「1」を「2」に置き換えてみましょう。

使用方法はこのようになります。

対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値

対象範囲は置き換えたい範囲なので「Ｂ3」ですね。
検索文字・数値は「1」、置換文字・数値は「2」ですね。

それでは当てはめてみましょう。

Range(“B3”).Replace What:=1, Replacement:=2

プログラムに直すとこのようになります。

Sub 文字数値の置換()

Range(“B3”).Replace What:=1, Replacement:=2

End Sub

それでは実行してみたいと思います。

「1」から「2」に変更することができました。

・複数範囲の置換方法

先ほど置換方法は複数の範囲でも置換が可能です。
下図の見本をご覧ください。

B2からE4の範囲に「A」または「B」の文字列が入力されてあります。
このなかの「A」を「C」に一気に置き換えてみましょう。

プログラムの構造を振り返りましょう。
対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値

この対象範囲を複数範囲にするだけで作業が可能になります。
プログラムは以下の通りです。

Sub 文字数値の置換()

Range(“B2：E4”).Replace What:=”A”, Replacement:=”C”

End Sub

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

複数範囲でも「A」が「C」になりました。

■オプションを使用して置換条件を設定する

通常のエクセルの機能の置換のように
VBAの置換でも大文字・小文字の区別や、全角・半角の区別などの機能もあります。
不要であれば省略可能なプログラムですが、必要な場合に追加してください。

それでは見ていきましょう。

・検索内容の一部の置換・完全一致のみ置換する

まずは検索内容が一部でも当てはまれば置き換える方法と、
完全一致で置き換える方法について紹介します。

使用するのは下記の通りです。

部分一致：LookAt:=xlPart
完全一致：LookAt:=xlWhole

下図をご覧ください。

「AAA」という文字がD2とD3に入力してあります。
そして今回は「A」から「B」に置き換えていきます。

2行目は部分一致のLookAt:=xlPartで実行。
3行目は完全一致のLookAt:=xlWholeを使用して実行していきます。

使用方法は簡単で、これまで説明した
「対象範囲.Replace What:=検索文字・数値, Replacement:=置換文字・数値」
の後に「,」を入力して追記するだけです。

それではプログラムを見ていきましょう。

Sub 文字数値の部分一致置換()

Range(“D2″).Replace What:=”A”, Replacement:=”B”, LookAt:=xlPart
Range(“D3″).Replace What:=”A”, Replacement:=”B”, LookAt:=xlWhole

End Sub

こちらを実行するとこのようになります。

部分一致で置き換えたものは、「A」である文字はすべて「B」になるため
「BBB」に変化しました。
完全一致の方は「A」で完全一致しないので置き換えはされていません。

では、今度は「AAA」を「BBB」に置き換えてみましょう。

プログラムはこのようになります。
Sub 文字数値の部分一致置換()

Range(“D2″).Replace What:=”AAA”, Replacement:=”BBB”, LookAt:=xlPart
Range(“D3″).Replace What:=”AAA”, Replacement:=”BBB”, LookAt:=xlWhole

End Sub

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

今度は「D3」の「AAA」も完全一致するので「BBB」に変化してくれました。

・列方向/行方向に置き換え

次に列方向に置き換えするのか、行方向に置き換えするのか制御する方法です。

使用するものは下記の通りです。

列方向に置き換え：SearchOrder:=xlByColumns
行方向に置き換え：SearchOrder:=xlByRows

使用方法は簡単で、先ほど同様に通常の置換プログラムの後に追加すればいいだけです。

一例でプログラムを載せます。

Range(“D2：R4″).Replace What:=”A”, Replacement:=”B”

このプログラムは「D2からR4」の範囲の「A」を「B」に置き換えるプログラムですが
置き換える方向を行方向に置き換えたい場合はこのようになります。

Range(“D2：R4″).Replace What:=”A”, Replacement:=”B”, SearchOrder:=xlByRows

これで行方向に置き換えが可能になりました。

・大文字と小文字を区別

つぎは大文字と小文字を区別する方法です
大文字・小文字の区別をしたい場合は通常のプログラムに
「 MatchCase:=True」を追加すれば区別が可能になります。

下図をご覧ください。

「D2」「D3」に「a」が入力されてあります。
今回は「A」から「B」に置き換えてみます。

それでは通常の置換と大文字・小文字を区別した置換を見てみましょう。

プログラムはこのようになります。

Sub 文字の大文字と小文字の区別置換()

Range(“D2″).Replace What:=”A”, Replacement:=”B”
Range(“D3″).Replace What:=”A”, Replacement:=”B”, MatchCase:=True

End Sub

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

通常は大文字・小文字の区別がない為、小文字の「a」でも「B」に置き換えていますが
区別した方は対象ではなくなるのでそのままになりました。

・全角・半角を区別しない

次は全角・半角の区別しない方法についてです。
通常のプログラムに「MatchByte:=False」を追加すれば全角・半角を区別しない置換が可能になります。

下図をご覧ください。

「D2」「D3」に「半角のｱ」が入力されてあります。
今回は「全角のア」から「イ」に置き換えてみます。

それでは通常の置換と全角・半角を区別しない置換を見てみましょう。

プログラムはこのようになります。

Sub 文字の全角半角を区別しない置換()

Range(“D2″).Replace What:=”ア”, Replacement:=”イ”
Range(“D3″).Replace What:=”ア”, Replacement:=”イ”, MatchByte:=False

End Sub

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

通常は区別するのでそのままですが
MatchByte:=Falseを追加した方は「イ」に置き換えることができました。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.Replace メソッド (Excel) | Microsoft Docs

■まとめ

いかがだったでしょうか。
VBAでも置換機能が使えるのは便利な機能ですよね。

ぜひ身に着けて活用してみてください。

次回はSelect Caseの機能について紹介します。記事はこちらから☟

【マクロVBA知識 24】複数のIfを短縮!Select Caseで様々な条件・ケースの分岐処理 ► 独学エクセル塾 (dokugakuexcel.com)

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

今回は条件に当てはまる文字を検索する方法と
その検索結果をもとに行数と列数を割り出す方法について説明していきたいと思います。

当てはまる項目へ数値や文字を入力することもできるようになりますね。

それでは見ていきましょう。

■検索方法について

検索する際に使用するのが「Find」です。
英語の意味通りですね。

仕組みについてはこのようになります。

Set 変数 =検索範囲.Find(検索ワード,検索方法)

変数

こちらはデータが存在した際にセルの位置を格納するので
Rangeのオブジェクトとなります

例として　
Dim FindCell As Range
とすると検索で当てはまれば「FindCell」にセルの位置が格納されるイメージです。

検索範囲

こちらは調査したい範囲を入力します。
例えばB2からM2の範囲で検索したい場合は
Range(“B2:M2”)
または
Range(CELLS(2,2),CELLS(2,13))
となります。

全セルで検索したい場合は「Cells」で構いません。

検索ワード

こちらには検索したい文字・数値を入れます。
実際に文字・数値を打ち込んでもいいですし
変数に格納されている文字・数値で検索しても、かまいません。

検索方法

こちらはどのように検索するか選択するオプションのようなものです。
方法については下記にまとめました。

こちらはすべて省略可能になっています。

では見本を見てみましょう

見本：

Set FindCell =Range(“B2:M2”).Find(“111”, After, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=False)

内訳：

B2からM2の範囲で”111″を検索対象を値で、全一致で検索して、列・逆方向に検索し、大・小文字と全角・半角は区別せず書式を含めない条件で当てはまったものを「FindCell」に格納
となります。

■文字・数値を検索する

まず、検索する方法について学んでいきましょう。
下記のように月が並んでいるデータを用意しました。例で「4月」を検索してみましょう。

では式に当てはめていきましょう。

Set 変数 =検索範囲.Find(検索ワード,検索方法)

変数名は何でもいいですが「FindCell」としましょう
検索範囲は1月から12月なので「B2:M2」となります。
検索ワードは「4月」です。
検索方法は4月で固定したいのでLookAt:=xlWholeを宣言します。

当てはめるとこうなります。

Set FindCell = Range(“B2:M2”).Find(“4月”, LookAt:=xlWhole)

こちらを使い、仮にプログラムを作成しました。

Sub 検索する()

Dim FindCell As Range

Set FindCell = Range(“B2:M2”).Find(“4月”, LookAt:=xlWhole)

End Sub

実際にプログラムを実行してみましょう。
Set FindCell = Range(“B2:M2”).Find(“4月”, LookAt:=xlWhole)を読み込む前は

「FindCell」は「Nothing」だったのですが

読み込むと…

「FindCell」に「4月」が入りました。
こちらは検索範囲にデータがあったため読み込んでいることになります。
データがなければそのまま「Nothing」のとなります。

では検索できたのでこちらの知識を応用してみます。

■検索して当てはまったデータの行数と列数を変数に格納する

では応用です。

このように月をＣ2で選択して、E2に打ち込んだ数値・文字を選択した月の1つ下のセルに打ち込んでみましょう。

検索の方は先ほどの流れと同様にこのようになります。

Set FindCell = Range(“B4:M4”).Find(Cells(2,3), LookAt:=xlWhole)

ここまででできることはFindCellに検索結果の位置が把握できることです。

そこで行数と列数を変数に記録する際は下記の仕組みを利用します。

行数　変数 = 検索した変数.Row
列数　変数 = 検索した変数.Column

今回は求めたい行数を「SarchRow」、列数を「SarchColumn」と変数宣言します

となるとプログラムはこのようになります。

Sub 検索する()

Dim FindCell As Range
Dim SarchRow As Long, SarchColumn As Long

Set FindCell = Range(“B4:M4”).Find(Cells(2, 3), LookAt:=xlWhole)

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

MsgBox Cells(2, 3) & “は” & SarchRow & “行目の” & SarchColumn & “列目です”

End Sub

実行すると・・・

行数と列数の検索結果もあってますね。
では入力してみましょう。

■検索した行数と列数を活用してみる

では選択した月から検索した行数と列数を元に数値・文字を入力してみましょう。

現在は5月を選択しており、入力する文字は「123件」です。

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

により5月の位置はわかっているので
Cells(SarchRow + 1, SarchColumn) = Cells(2, 5)
となります。

先ほどのプログラムに組み込みましょう。

Sub 検索する()

Dim FindCell As Range
Dim SarchRow As Long, SarchColumn As Long

Set FindCell = Range(“B4:M4”).Find(Cells(2, 3), LookAt:=xlWhole)

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

Cells(SarchRow + 1, SarchColumn) = Cells(2, 5)

End Sub

では実行しましょう。

ちゃんと5月の位置に「123件」と入ってますね。

■検索エラー時の対応

Findを使用する中で検索して対象がなかった場合、エラーになっています。
先ほどの検索で、検索ワードを「13月」で実行してみましょう。

13月は存在しないのでエラーが出ました。
このような検索時のエラー対応について説明します。

Findの仕組みは復習にはなりますが下記の通りです。

Set 変数 =検索範囲.Find(検索ワード,検索方法)

ここで検索して該当がなければ変数は「Nothing」になります。
この仕組みとIFを合わせることで対応ができます。

そのプログラムがこちら。

If 変数 Is Nothing Then
MsgBox “該当データはありません”
Exit Sub
End If

仕組みとして変数に該当がなかったらNothingなのでIFで
変数がNothingだったときの分岐処理を行います。

処理方法としてメッセージボックスで「該当データはありません」と表示したのち
Exit Subにてプログラムを終了する仕組みです。

では先ほどにプログラムに組み込みましょう。
エラーの分岐はSetで変数に検索結果を格納した後です。

Sub 検索する()

Dim FindCell As Range
Dim SarchRow As Long, SarchColumn As Long

Set FindCell = Range(“B4:M4”).Find(“13月”, LookAt:=xlWhole)

If FindCell Is Nothing Then
MsgBox “該当データはありません”
Exit Sub
End If

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

Cells(SarchRow + 1, SarchColumn) = Cells(2, 5)

End Sub

こちらで実行すると・・・

エラーにも対応できるプログラムにできましたね。

⬛︎公式

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

Range.Find メソッド (Excel) | Microsoft Learn

■まとめ

いかがでしょうか。

Findが活用できれば該当セルへの打ち込みが可能になったり
自動化でできることが増えます。

ぜひ参考にしてみてください。

それでは次回の記事でお会いしましょう。記事はこちらから☟

【VBA知識 15】行の挿入・削除/列の挿入・削除を様々なパターン・方向で行う ► 独学エクセル塾 (dokugakuexcel.com)