練習問題と内容について

・練習問題の狙い

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

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

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

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

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

・練習問題12について

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

指定されたセルの数値の中で指定数値以下の最大値を表示する練習問題となります。

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

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

問題内容

セル番地A1からA10までの数値の中で100以下の数値の最大値を持つセルの値を表示する。

動作説明

VBAを使用して、セル番地A1からA10までの数値を比較し、その中で100以下の数値の最大値を持つセルの値を表示します。

ヒント

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

・ヒントその1

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

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

・ヒントその2

各セルの値が100以下の場合に、その値を保持する変数を使用して、最大値を更新します。

最大値の値を保持するためには変数を用いて「変数＝最大値」のように格納しておく必要があります。

・ヒントその3

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

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

例えば「数値1が90」、「数値2が80」の場合、「If 数値1＞数値2　then」で数値1が大きかった時の処理が行われます。

この構造を活用して、最大値を判断していきます。

さらに、100以下も条件として追加する必要があるため、２つの条件式が必要です。

その際のソースコードは下記の通りです。

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

解答コード

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

・回答その①

上記のコードは、セル番地A1からA10までの数値の中で100以下の数値の最大値を持つセルの値を表示するVBAのマクロです。

解答コードの説明:
1. maxVal という変数を用意し、初期値を負の無限大に設定します。
2. `For Each`ループを使用して、セル番地A1からA10までの範囲をループします。
3. 各セルの値が数値であり、100以下の場合に条件を満たすかどうかを判定します。
4. 条件を満たす場合、そのセルの値が現在のmaxVal よりも大きい場合は、maxVal を更新します。
5. ループが終了した後、maxVal に格納された最大値をメッセージボックスで表示します。

ちなみに今回は「 IsNumeric(cell .Value)」を使用することで対象のセルが数値か判断しています。
数値でなければスルーしてくれます。

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

１０個の数値の中で100以下の最大の数は「64」なので上手く機能していることがわかります。

・回答その②

必要な知識

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

ループ構造

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

条件分岐

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

 メッセージボックスの表示

メッセージボックスを表示するためには、MsgBox関数を使用します。
この関数を使うと、メッセージや結果をダイアログボックスとして表示することができます。

見本では「MsgBox “100以下の数値は存在しません”」と入力しましたが、下図のように表示されます。

セルの値が数値か判断

今回は少し発展した課題にしたため、対象のセルの値が数値であるか確認しました。

確認方法はIsNumeric(cell .Value)となります。

こちらを条件分岐に入れることで、文字などが入っていた場合は対象のセルをスルーするようにしています。

まとめ

この練習問題では、VBAを使用してセル番地A1からA10までの数値の中で100以下の数値の最大値を持つセルの値を表示する方法を学びました。

具体的には、ループを使用して各セルの値を比較し、条件を満たす場合に最大値を更新するという手法を用いました。

VBAを使うことで、Excelのデータを効率的に処理したり、特定の条件に基づいて操作したりすることができます。

練習問題を通じて、VBAの基礎知識を身につけ、より高度な処理や操作に挑戦してみましょう。

次の練習問題では、さらに複雑な問題に取り組んでいきますので、ぜひ続けて挑戦してください。

以上で練習問題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となります。お疲れ様でした！

今回はセルに入力されている文字や数字、変数に格納された文字や数値をもとに
何個の文字が存在するかを求める方法について紹介したいと思います。

さらにバイトデータとしての文字の出力
についても対応できますので、ぜひ参考にしてみてください。

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

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

・セル・変数に格納された文字数を出力できる
・バイトデータとしての文字数を出力することができる

⬛︎構文の説明

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

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

Sub 文字数を出力()
出力先を入力= Len(文字数を求めたい対象)
End Sub

⬛︎文字数を出力する方法

・セルに格納されている文字数を出力する

まず初めにセルに格納されている文字数を出力してみましょう。
見本として下図のようなExcelファイルを用意しました。

セル番地「B3」に「あいうえお」と言う文字が入っています。
今回は、こちらの文字数を求めて
セル番地「D3」に出力したいと思います。

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

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

今回の「対象となる文字列」はB3になりますね。
なので「Len(Range(“B3”))」のようになります。
「Len(Cells(3, 2))」でも構いません。

では、ソースコードを見ていきましょう。

Sub 文字数を出力()
Range("D3") = Len(Range("B3"))
End Sub

構文も単純なので、簡単なソースコードとなっています。
それでは実行していきましょう。
結果はこのようになっています。

セル番地「B3」に含まれている文字は「あいうえお」であることから
文字数が「5」ということがわかります。
なので、D3に出力された結果は合っているといえますね。

別の文字でも見てみましょう。

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

「12345678」は「8」文字なので
こちらもあっていますね。

・変数に格納されている文字数を出力する

先ほどはセルから文字を取得していましたが
今回は変数から文字を取得して文字数を求めたいと思います

今回は先にソースコードの方を紹介したいと思います。
見本のソースコードはこちらです。

Sub 変数から文字数を出力()
Dim Word As String
Word = "独学エクセル塾"
Range("B3") = Len(Word)
End Sub

では説明に移りたいと思います。
変数「Word」には「独学エクセル塾」と言う文字が格納されています。

この変数「Word」の文字数を出力するために構文に当てはめていきましょう。

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

対象となるのは文字列を変数なので「Word」が入ります。

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

変数「Word」には「独学エクセル塾」と言う文字が格納されていますよね。
つまり、文字数は「7」なので
出力結果は正しいことがわかります。

・バイトデータの形式で文字数を出力する

時として、文字数をバイトデータとした文字数で出力したい場面があったとします。
その時にはLenB関数を使用します。

Len関数との違いとしては、
全角の文字を2文字、半角の文字を1文字としてカウントします。

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

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

では、こちらも、下図の見本で説明したいと思います。
セル番地「B3とB4」に入力されてある文字を「D3とD4」にバイトデータで求めた文字数を出力したいと思います。

しかしここで注意点です。
VBAの処理では読み取った文字はすべて全角同様の「2バイト」で
読み取ってしまいます。

ここで使用するのが「StrConv」です。
こちらの関数は文字列を変換する機能があるのですが、今回は下記のように使用します。

StrConv(対象の文字, vbFromUnicode)

「vbFromUnicode」で読み取ったデータを全角（２バイト）・半角（1バイト）に変換します。

上記機能を使用して、セルに入力されてある文字数を求めてみましょう。
ソースコードこちらです。

Sub 文字数をバイトで出力()
Range("D3") = LenB(StrConv(Range("B3"), vbFromUnicode))
Range("D4") = LenB(StrConv(Range("B4"), vbFromUnicode))
End Sub

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

全角は2文字、半角は1文字ですから
うまく機能していることがわかります。

■練習問題

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

⬛︎公式の説明

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

Len 関数 (Visual Basic for Applications) | Microsoft Learn

LEN 関数、LENB 関数 – Microsoft サポート

⬛︎まとめ

いかがだったでしょうか？
Len関数を使用すれば指定した文字数を簡単に求めることが出来ます。

またLenB関数を使用すればバイト数で
求めることが出来ますが「StrConv」で文字を変換しなければならないことを覚えておいてください。

さらにLen関数を応用した記事についてもまとめていますので是非参考にしてみてください。

【マクロVBA】右端側・後ろから対象の文字が何文字目に含まれているか確認する！InStrRev ► 独学エクセル塾 (dokugakuexcel.com)

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

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

【マクロ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関数を応用することで対象の文字が何文字あるか検出することができます。

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

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