皆さんも悩んでいるのではないでしょうか。
プログラムを作った人は発生したエラーについて理解・把握できますが作ってない方はエラーが発生したらすぐに原因を理解するのは難しいです。

その中でも今回は「実行時エラー1004」の中の「指定された値は境界を超えています」
の発生する原因とエラーの対策について説明したいと思います。

同様のエラーが発生した場合には是非参考にしてみてください。
それでは見ていきましょう。

⬛︎「指定された値は境界を超えています」のエラーの原因について

まず、「指定された値は境界を超えています」のエラーが発生する原因から見ていきましょう。

現在確認できる原因としては下記の通りです。

①色を変える際のSchemeColorの指定に不備がある
②保護したシートへの写真・図の貼り付け

※確認できている原因を挙げています。
上記以外で発生の原因がある場合はコメントしていただけたら幸いです。

では各原因についてみていきましょう。

⬛︎原因①:色を変える際のSchemeColorの指定に不備がある

・原因の内容

SchemeColorとはオブジェクトの配色の色を変更する際に使用します。
SchemeColorは「1から80」で指定します。

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

Sub 図に色をつける()
ActiveSheet.Shapes("見本図").Fill.ForeColor.SchemeColor = 5
End Sub

見本のプログラムは「見本図」と言う名前をつけた図の
色をSchemeColorで変更するプログラムです。

今回は「SchemeColor＝5」で指示しています。
では実行してみます。結果はこのようになりました。

図が黄色に変化してますね。

では「SchemeColor＝81」で再度実行したいと思います。
プログラムはこちらです。

Sub 図に色をつける()
ActiveSheet.Shapes("見本図").Fill.ForeColor.SchemeColor = 81
End Sub

では実行してみましょう。

「指定された値は境界を超えています」というエラーが発生しました。

「SchemeColor」の前提条件として「1から80」となってます。
しかし今回は「81」と、条件以外の数値であることから
「指定された値は境界を超えています」というエラーが発生した仕組みになっています。

・対策方法

こちらの対策は単純です。
「SchemeColor」を使用する場合は「1から80」までの数値にしてください。

⬛︎原因②:保護したシートへの写真・図貼り付け

・原因の内容

つぎに保護したシートへの写真・図の貼り付け時に発生するパターンを見ていきましょう。

見本のプログラムを用意しました。
プログラムは下記の通りです。

Sub 写真の貼り付け()

Set OBJSHAPE = ActiveSheet.Shapes.AddPicture( _
　　　　　　　　  Filename:="C:\検証ファイル\見本写真.jpg", _
　　　　　　　　  LinkToFile:=False, _
　　　　　　　　  SaveWithDocument:=True, _
　　　　　　　　  Left:=ActiveSheet.Range("E7").Left, _
　　　　　　　　  Top:=ActiveSheet.Range("E7").Top, _
　　　　　　　　  Width:=ActiveSheet.Range("E7").Width, _
　　　　　　　　  Height:=ActiveSheet.Range("E7").Height) '貼り付け
End Sub

プログラムの内容として「Cドライブの検証ファイル」というフォルダに保存してある「見本写真.jpg」という写真を「E7」に貼り付けるプログラムになっています。

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

「E7」に写真を貼り付けれていますね。

では本題です。

貼り付け先のアクティブシートに保護をかけた状態でプログラムを実行してみます。
結果はこのようになりました。

「指定された値は境界を超えています」というエラーが発生しました。

・対策方法

こちらは貼り付け先のシートに保護が掛かっている可能性があるので
保護を解除して、実行する必要があります。

通常通り「校閲」タブから「シートの保護」状態であるか確認する方法もありますが、
シートの保護をプログラムで実行している場合はActiveSheet.Unprotectで
マクロから保護の解除をする方法もあります。

シートの保護・解除をマクロで行う方法についてはこちらから☟

【マクロVBA㊲】シートの保護・解除全集！アクティブ・対象・全シートやパスワードを含めた保護・解除 ► 独学エクセル塾 (dokugakuexcel.com)

場面に合わせて使い分けてください。

⬛︎公式の説明

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

マクロで図形の塗りつぶしを行うと 「指定された値は境界を越えています」 のエラーになります – Microsoft コミュニティ

⬛︎まとめ

いかがだったでしょうか。
「指定された値は境界を超えています」というエラー名だけでは
なにが原因か理解しにくいですが
本記事を参考にして解決いただけたら嬉しいです。

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

別のブックから数値を参照したりなと、ブックを経由する場合はよく使用する機能です。
しかし、使用方法を誤るとエラーが発生し、閉じることができません。

そこで今回はブックを閉じる際に発生するエラーに対しての原因と対処法を紹介します。
それでは見ていきましょう。

⬛︎通常のブックの閉じ方

まず、エラー対応の前に通常のブックを閉じる方法を説明します。
構文は以下の通りです。

Workbooks("ここに閉じたいブック名を記入").Close

とてもシンプルですね。

では見本で「見本.xlsx」というブックを閉じるプログラムを見ていきましょう。
前提として対象のブックが開いてあることが条件となります。

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

Sub ブックを閉じる()

Workbooks(“見本.xlsx“).Close

End Sub

こちらのプログラムで「見本.xlsx」のブックを閉じることができました。
結論としてブックを閉じる際に使用する「Close」はブック名で指示します。
これが原因でエラーが生じる場合もあります。
では、ブックを「close」で閉じる際のエラーの原因と対処法を見ていきましょう。

⬛︎closeのエラーの原因と対処法

・「実行時エラー’9′:インデックスが有効範囲にありません」について

こちらはブック名で指定していない可能性があります。
よくある原因としてはフルパスでファイルを開いて、そのフルパスを活用して「close」
することでエラーが生じてしまいます。

ではプログラムの例を見ていきましょう。
今回は「見本」ブックを開いて、処理を行い、閉じるプログラムです。

Sub ブックを閉じる()

Dim FilePath As String

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

Workbooks(FilePath).Close

End Sub

一見問題無さそうですが実行したらこのようになります。

「実行時エラー’9′:インデックスが有効範囲にありません」というエラーが発生しました。

原因としてブックを開く際の参照と閉じる際の参照の違いに問題があります。
ブックを開く際の「Open」はフルパスでなければなりませんが
ブックを閉じる際の「close」はファイル名でなければなりません。

しかし、パスが繰り返し動作やセルに入力してあるパスを参照する際には
プログラムにファイル名は入力できませんよね。

ファイル名が限定される方は次の項目に飛んでください。

使用するのは「Dir」になります。
機能としてはフルパスからファイル名を取得することができます。

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

ファイル名＝Dir(フルパス)

ではこちらを活用したプログラムはこのようになります。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)
Workbooks(CloseFileName).Close

End Sub

それでは実行してみましょう。
「CloseFileName = Dir(FilePath)」の部分の変数「CloseFileName」にファイル名が
格納できているか見てみましょう。

「C:\excel\見本.xlsx」のフルパスからファイル名のみを抽出できています。

これでファイル名で「close」するのでエラーが出なくなります。

また、「close」で設定したファイル名が合っていなくても同様のエラーとなります。

例えば閉じたいブック名に半角のスペースが入っただけでも
エラーになってしまいます。

正確なファイル名で「close」の指示ができるようにプログラムを作成してください。

・プログラムが途中で停止、実行中のブックが閉じる

こちらは実行中のプロシージャ（プログラム)のブックを閉じると
起こるエラーとなっています。

例えば、「ファイル A」というファイルからVBAを使用して
「ファイルB」というファイルを閉じようとします。

しかし誤って「ファイルA」を閉じるように設定すると
プログラムを実行中のファイルAが閉じてしまうため
プログラムが途中で停止してしまう問題が発生します。

なので閉じるファイル名が正確か確認してみてください。

⬛︎補足　ブックを閉じる際の確認画面を表示させない方法

ここからは補足になります。
編集したブックを「close」で閉じる指令を実行すると「’対象ファイル名’の変更内容を保存じますか？」というメッセージがでます。

「Workbooks(ファイル名).Save」で１度保存した場合は問題ありませんが、保存しない場合は処理しないといけません。

しかし何度もブックを閉じるプログラムだと毎回確認ボタンを押さないといけないので面倒くさいですよね。
そこでブックを閉じる前に「Application.DisplayAlerts = False」を実行することで、確認動作をスルーすることができます。
ブックを閉じた後は「Application.DisplayAlerts = True」で再度、確認メッセージが出るように設定することをオススメします。

では先ほどのプログラムに織り込んでみましょう。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)

Application.DisplayAlerts = False
Workbooks(CloseFileName).Close
Application.DisplayAlerts = True

End Sub

これで「’対象ファイル名’の変更内容を保存じますか？」の確認メッセージをスルーすることが出来ます。

⬛︎まとめ

いかがだったでしょうか。
ブックを経由してデータを取得したり入力したりする際に用いられる
「close」ですが、使用方法を間違えるとエラーが生じてしまいます。

ぜひ今回の記事を参考にして
エラーが出ないようなプログラムを作成してみてください。

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

エラーには#NULLや#DIV/0!、#VALUEなど様々なエラーが存在します。

各エラーの内容と対処法についてはこちらから☟

エラーが発生！#N/A・DIV/0!・VALUE・REF・NAME・NUM・NULLの原因と対策 ► 独学エクセル塾 (dokugakuexcel.com)

そこで今回はどのようなエラーなのか判断できるERROR.TYPE関数についてまとめました。
こちらの関数を使用する事で対象のセルでどのようなエラーが発生しているかわかるようになります。
さらに今回はERROR.TYPE関数を活用したエラー時の対応をメッセージで
表示する方法についても紹介してますので是非参考にしてみてください。

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

⬛︎関数の仕組み

=ERROR.TYPE(対象セル)

対象セルはエラーの種類を把握したいセルを選択します。

⬛︎出力結果一覧

こちらではERROR.TYPE関数の出力結果とエラー内容を一覧にしています。

上記の表の使い方として、例を紹介します。
関数の出力が「1」の場合は「#NULL!」のエラーを表し、
関数の出力が「2」の場合は「#DIV/0!」のエラーを表します。

では使用方法を見てみましょう。

⬛︎関数の使用方法

では使用方法です。
引数も1つしかなく、とても簡単です。

下図の見本をご覧ください。

B3に計算式を入力し、D3にエラーの種類を出力しましょう。
では再度、関数の仕組みを見てみましょう。

=ERROR.TYPE(対象セル)

ここでの対象セルはエラーを確認したいB3になりますね。
つまり「=ERROR.TYPE(B3)」をD3に打ち込みます。
では入力した結果を見てみましょう。

出力結果は「#N/A」となってます。
エラーでない場合は#N/Aを出力するようになってます。

ではエラーを出してみましょう。

　
B3の式を「=5/0」にしてみたいと思います。
エクセルで割り算を使用する際に0または空白で割ると

DIV/0!のエラーとなってしまいます。

では入力した結果を見てみましょう。

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

D3には「2」が出力されました。
表を見てみると「#DIV/0!」は「2」となってますね。
つまり、#DIV/0!がエラーの内容である事がわかります。

別の例を見てみましょう。
B3とC3の数値をかけた値をE3に出力してみたいと思います。

今回は数値1を「A」にしています。

通常では数値に文字を掛けることはできませんから
「#VALUE!」のエラーになります。
では入力した結果を見てみましょう。
結果はこのようになります。

D3には「3」が出力されました。
表を見てみると「#VALUE!」は「3」となってますね。
つまり、エラーの内容が#VALUE!である事がわかります。

⬛︎ERROR.TYPE関数を応用する

では応用です。
今回は一例で下図のファイルを紹介します。

仕組みとしてB3の数値1とC3の数値2を入力すると
E3に数値1と数値2を割った結果を表示するファイルになってます。

ここで考えられるエラーとしては先程説明で使用した例を元にすると下記の通りです

・#DIV/0!:数値2が0または空白
・#VALUE!:数値1.2に文字が入力されてある。

では今回の仕様として#DIV/0!または#VALUE!のエラーが発生しなければ通常通り計算をおこない、

DIV/0!であれば「数値2が0または空白です」というメッセージを、

VALUE!であれば「数値1・2が文字になっています」というメッセージを表示させたいと思います。

使用するのは「IFERROR関数」と「ERROR.TYPE関数」と「IF関数」です。
IFERROR関数についてはこちらから☟

【IFERROR関数】エクセルでのエラー時の対応について～エラーに強いファイルを作る～ ► 独学エクセル塾 (dokugakuexcel.com)

IF関数についてはこちらから☟

【IF関数】エクセルで○○だったら△△を表示する～条件分岐を身に着ける～ ► 独学エクセル塾 (dokugakuexcel.com)
　

応用方法としてIFでエラーを検知した場合、メッセージを出力します。
IF関数の仕組みは「=IF(論理式,真の場合,偽の場合)」ですから、
当てはめると「=IFERROR(IF(ERROR.TYPE(B3/C3)=2,“数値2が0または空白です”,IF(ERROR.TYPE(B3/C3)=3,“数値1・2が文字になっています”,)),B3/C3)」
となります。

では実行してみましょう。
入力した結果はこちら。

計算できていますね。
数値2を0にすると、、、

DIV/0!のエラーを検知して「数値2が0または空白です」というメッセージが表示されてます。

さらに数値1に文字を入れてみましょう。

VALUE!のエラーを検知して「数値1・2が文字になっています」というメッセージが表示されてます。
エクセルに詳しくない方はエラーの内容や原因がわからないと思うので
これなら初心者に優しいシートを作成できますね。

■公式の説明

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

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

ERROR.TYPE 関数 (microsoft.com)

⬛︎まとめ

いかがだったでしょうか。
エラーの種類を出力できる関数があるのは
なかなか知られてませんよね。

今回の記事を参考にしてエラーの種類を出力し
システムづくり等にお役立てください

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

このエラーが発生するとプログラム自体を走らせることができなくなるので対策が必要です。

原因も詳しく説明してますので是非参考にしてみてください。

では実際に見ていきましょう。

■通常のユーザーフォームの表示

まずはエラーが発生しないユーザーフォームの表示を見てみましょう。
見本で下図のユーザーフォームを作成してみました。

特に変わりないユーザーフォームになってます。

ここで注目してほしいのは「オブジェクト名」です。
ではこちらのユーザーフォームを表示するだけのマクロVBAのプログラムを見てみましょう。

Sub ユーザーフォームを表示()

更新中.Show

End Sub

とてもシンプルですね。
更新中のユーザーフォームを表示するので
更新中.Show
というプログラムです。

では実行してみましょう。

問題なくユーザーフォームを表示することができました。

■「Functionまたは変数が必要です」のエラーの原因と対策法

では本題に移りたいと思います。
下記のマクロVBAのプログラムをご覧ください。

Sub 更新中()

更新中.Show

End Sub

一見問題なさそうなプログラムですよね。
では実行してみましょう。すると下記のようなエラーが表示されました。

ここでお気づきの方もおられると思いますが
実行プログラム自体は先ほどの見本では実行できたことから何も問題ありません。

では正常に機能するプログラムとエラーが発生するプログラムを見比べてみましょう。

正常のマクロVBAのプログラム

Sub ユーザーフォームを表示()

更新中.Show

End Sub

異常のマクロVBAのプログラム

Sub 更新中()

更新中.Show

End Sub

お分かりいただけましたでしょうか。

正常であるプログラムはプログラム名が「ユーザーフォームを表示」で「更新中」のユーザーフォームを表示させてますが、エラーが発生するプログラムは「更新中」というプログラム名で「更新中」のユーザーフォームを表示させてます。

つまり、エラーの原因は「オブジェクト名とプログラム名が一緒」であることがわかります。

なので対策としてはオブジェクト名とプログラム名は同じでないことが正常のプログラムに欠かせません。

どうしても同じ名前で付けたい場合は下記プログラムのように1文字でも付け加えるだけで正常に動いてくれます。

Sub 更新中1()

更新中.Show

End Sub

■まとめ

いかがだったでしょうか。
私もユーザーフォームを使用し始めたときに同じエラーが発生して
対策方法がわからず試行錯誤して判明しました。

現在はプログラム名の後に作成した年月日を番号で入力しているので
そのようなエラーは起きない＆作成した日時がわかるのでおすすめです。

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

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

プログラムを作った人は発生したエラーについて理解・把握できますが
作ってない方はエラーが発生したらすぐに理解するのは難しいです。

さらにVBAを触ったことがない人がシステムを利用してエラーが出ると
何を押していいかわかりません。

そのためにもプログラムを作成する方はエラーに対応したプログラムを
作成する能力を求められます。

ぜひ、エラーに強いプログラムを作成できるようにしてみてください。

■マクロVBAで発生するエラーとは

まず発生するエラーについて見てみましょう。
下図をご覧ください。

このような異常はプログラムを作ったことがある方は見たことがあるのではないでしょうか。
ちなみに終了を押せばプログラムは強制終了します。

デバッグを押せばエラーの原因のプログラムの位置で止まってくれます。
VBAを知らない方はデバッグを押すと、みたことのない画面が出るため困ってしまいます。

ヘルプはマイクロソフト公式のヘルプに飛んでくれます。

今回の目的はこの画面が出ないようにプログラミングしていきます。

■エラーの対応方法

今回は下図のようなシステムを見本で作成しました。

システムとして、身長・体重を打ち込んで更新を押すと
8行以降にデータを蓄積していくシートを用意しました。その際にBMIも算出します。

プログラムも見本で載せておきます

Sub データ集計()

Dim EndRow As Long
Dim Height As Long ‘身長
Dim Weight As Long ‘体重

EndRow = Cells(7, 2).End(xlDown).Row + 1

Height = Cells(3, 2)
Weight = Cells(3, 3)

Cells(EndRow, 2) = Height
Cells(EndRow, 3) = Weight
Cells(EndRow, 4) = Weight / (Height / 100) ^ 2

Range(“B3:C3”).ClearContents

End Sub

では、このプログラムを元に説明していきます。

・①対象範囲内でエラーが起きたら指定位置へ飛ぶ

まず、エラー発生時に指定位置に飛ぶ方法について紹介します。
この方法はエラーの根本的な解決方法にはなってませんが
エラー画面が発生しない1番手っ取り早い方法です。

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

On Error Goto 任意ラベル
　　・
　　・
　　・
通常プログラム
　　・
　　・
　　・
Exit Sub

任意ラベル：

エラー時の処理

End Sub

つまり

「On Error Goto 任意ラベル」から「任意ラベル：」の範囲内で
異常があった場合、エラー時の処理まで飛んでくれます。

では先ほどのプログラムに織り込んでみましょう。

Sub データ集計①織り込み()

Dim EndRow As Long
Dim Height As Long ‘身長
Dim Weight As Long ‘体重

On Error GoTo エラー1

EndRow = Cells(7, 2).End(xlDown).Row + 1

Height = Cells(3, 2)
Weight = Cells(3, 3)

Cells(EndRow, 2) = Height
Cells(EndRow, 3) = Weight
Cells(EndRow, 4) = Weight / (Height / 100) ^ 2

Range(“B3:C3”).ClearContents

Exit Sub

エラー1:

MsgBox (“誤った数値が入力されています”)

End Sub

図解するとこのようになります。

では実際にエラーが出るように更新してみましょう。

身長に間違えて「A」を打ち込んだとします。
通常は身長を「Cells(EndRow, 2) = Height」で変数「Height」に格納するのですが
変数「Height」の型は「Long」なので文字は格納できません。

なので通常は下図のような異常が出ます。

では改善したプログラムを走らせてみます。
結果はこのようになります。

エラー処理にプログラムが飛んで、メッセージボックスの
「誤った数値が入力されています」が表示されました。
この後は「OK」を押せばプログラムは終わってくれます。

VBAのエラーを表示させたくない場合はプログラムの先頭に「On Error GoTo　任意ラベル」
最後に「任意ラベル：」を置いて
そのあとに「MsgBox (“エラーになりました。見直してください”）」を入れれば
とりあえずVBAの異常は無くなり、メッセージでの出力にすることができました。

・②IFを使用して異常値を検出して指定位置に飛ぶ

今度はIFを使用して異常値を検出し、異常処理行まで飛んでみましょう。
この方法は先ほどの型が違うなどのエラーは適応外ですが
エラーの根本を検出できます。

では先ほどの見本を元に進めていきます。

「B3」の身長を見てみましょう。
間違えて「0」を余分につけて「1720」になっています。

このまま更新ボタンを押すとそのまま計算・集計してしまい、正確な計算ができません。
ではIFを使用してエラーを防止してみましょう。

条件として身長の範囲を「120～200」までとします。

ではIFを使用して120～200以外は別の処理を行いたいと思います。
プログラムはこのようになります。

If Height < 120 Or Height > 200 Then
MsgBox (“身長は120から200までで入力してください”)
Exit Sub
End If

Heightは身長データを格納している変数とします。
IFを使い、Heightが120～200の範囲以外だと 「身長は120から200までで入力してください 」

とメッセージボックスを表示してExit Subでプログラムを終わらせます。
IFの詳しい使用方法は下記リンクを参照してみてください。☟

【IF関数】エクセルで○○だったら△△を表示する～条件分岐を身に着ける～ ► 独学エクセル塾 (dokugakuexcel.com)

ではプログラムに組み込んでみましょう。

Sub データ集計②織り込み()

Dim EndRow As Long
Dim Height As Long ‘身長
Dim Weight As Long ‘体重

EndRow = Cells(7, 2).End(xlDown).Row + 1

Height = Cells(3, 2)
Weight = Cells(3, 3)

If Height < 120 Or Height > 200 Then
MsgBox (“身長は120から200までで入力してください”)
Exit Sub
End If

Cells(EndRow, 2) = Height
Cells(EndRow, 3) = Weight
Cells(EndRow, 4) = Weight / (Height / 100) ^ 2

Range(“B3:C3”).ClearContents

End Sub

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

IFで指定範囲外の数値を検出して

設定したメッセージでフィードバックが可能になりました。

・③入力規則で入力データを制限する

最後にVBAプログラムでの対処ではありませんが
エクセルの機能の入力規則を用いたエラーの回避を紹介します。

こちらはエラーの根本を解決する方法になっており、
エラーになる入力をさせない方法です。

では先ほどと同様に身長を「120～200」で制限してみましょう。
入力制限対象を選択して【データ】から【データの入力規則】を選択してください。

ここでは詳しく説明はしませんが
入力値の種類を「整数」にして最小値を「120」、最大限を「200」にします。
データを「次の値の間」にしました。

詳しい入力規則については下記リンクを参照してみてください☟

【リストの作成に便利】データの入力規則の設定・制限から解除まで ► 独学エクセル塾 (dokugakuexcel.com)

これにより入力は「120～200」の整数のみ可能になります。
「A」などといった文字も制限されるのでとても便利です。

⬛︎公式の説明

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

On Error ステートメント (VBA) | Microsoft Learn

■まとめ

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

今回は対策を①から③の
①対象範囲内でエラーが起きたら指定位置へ飛ぶ
②IFを使用して異常値を検出して指定位置に飛ぶ
③入力規則で入力データを制限する
で紹介しました。

①～③の知識は、すべてエラーを防止するためには大切なのですが
操作する人が複数であればあるほど自分の想定を超えた処理を行い、
エラーになってしまいます。
そのためにも①の方法は入れておけば汎用性は上がると思います

ぜひ、①から③を織り込んでエラーに強いプログラムを作成してみてください。

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

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

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

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

■検索方法について

検索する際に使用するのが「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)

エクセルを使用するうえでエラーや空白は付き物。
その際にエラーや空白を無視して計算したいですよね。今回はそれを可能する関数です。

この関数を使用するだけでエラーが発生する可能性がある場面は防ぐことができます。

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

■関数の仕組み

計算方法：どのような計算をするか選択する（合計や平均など）

除外のオプション：エラーや空白等、スルーする条件を決める

計算範囲：計算する範囲を決定する

■ エラーを無視して計算する

見本で下図のような得点表を作成しました。

今回はA～Jさんの点数の合計・平均を求めていきます。

各得点に様々なエラーが発生していますね。
この状態で計算してみます。

計算した結果がこちらです。

はい、このようにエラーになってしまいます。

このエラーを無視できるのが今回の関数です。

では、AGGREGATE関数の説明に移ります。
関数の内容はこちら。

=AGGREGATE(計算方法,除外のオプション,計算範囲)

では計算方法から見ていきましょう。

・計算方法

こちらでは合計・平均・最大値・最小値など、どの計算をするか選択できます。

計算できる手法は以下の通りです。当てはまる数値を入力すれば、その計算が可能です。

よく使うのは1.平均、2.カウント、4.MAX、5.MIN、9.合計ぐらいでしょうか。
標準偏差は分析マンには必需品のアイテムですね。

・除外のオプション

ここでは無視したいオプションを選択します。

文字通りなので説明しませんが、

迷ったら「7」の「非表示の行とエラー値を無視します」を選択で大丈夫です。

非表示の行の無視や、入れ子、エラー値のみ無視など様々なオプションがあるので場面によって

使い分けてみてください。

■実践する

・エラーを無視して合計を計算

では合計を打ち込んでみましょう。
計算方法は合計なので「9」。除外方法は「7」で設定します。
そして合計したい範囲を関数で打ち込むと以下のようになります。

=AGGREGATE(9,7,C3:C12)

では実際に打ち込んでみましょう。

エラーにならず、計算してくれていますね。

・エラーを無視して平均を計算

計算方法は平均なので「1」。除外方法は「7」で設定します。
そして合計したい範囲を関数で打ち込むと以下のようになります。

=AGGREGATE(1,7,C3:C12)

こちらもうまくいきましたね！

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

■練習問題

・ 非表示の行とエラー値を無視して最大値（MAX）を計算

では下図の表を参考にしてみましょう。

対象はＣ3からC８とします。しかしエラーと空白が混じっているので無視します。

答え：=AGGREGATE(4,7,C3:C8)

解説：最大値(MAX)は「4」、非表示の行とエラー値を無視は「7」、範囲は「 C3:C8 」

・ 非表示の行とエラー値を無視して最小値（MIN）を計算

先ほどの計算を最小値（MIN）で計算してみましょう。

対象は先ほどと同様Ｃ3からC８とします。今回もエラーと空白が混じっているので無視します。

答え：=AGGREGATE(5,7,C3:C8)

解説：最大値(MAX)は「5」、非表示の行とエラー値を無視は「7」、範囲は「 C3:C8 」

■公式の説明

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

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

AGGREGATE 関数 – Office サポート (microsoft.com)

■まとめ

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

とても便利ですよね。私もこの関数を学んで

SUM関数やAVERAGE関数を使わない場面が増えました。

個人的にとても好きな関数です.

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

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

VBAではストーリー形式で説明していますが途中からでもわかるようにしています。ぜひ参考にしてみてください。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！

今回使用する関数はIFERROR関数です。IF関数の応用関数になっています。

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

■関数の仕組み

■ IFERROR関数で,エラー時の対応をする

・通常のIFERROR関数の実践

下図の見本をもとに進めていきましょう。

値段と個数から自動で総額を算出してくれるようなシートになっています。

現在は20円*50個で1000円と出力しています。

ここで値段が不明になったとします。
実際値段に「不明」と打ち込んでみましょう。

総額はエラーになってしまいました。

エラーの原因として
現在「不明」*50個という計算です。当然文字に数値をかけることができませんからエラーとなるのです。

なのでこの値段の関数にエラーが起きたら「？」を表示させるようにしていきます。

ここで使用するのがIFERROR関数。
仕組みとしては

=IFERROR(通常時,エラー時)

のような流れですね。

通常時とはエラーが何もない時の表示方法でエラー時が文字通りエラーの時の

表示方法が選択できます。

なので数式に直すとこのようになります。

=IFERROR(C4*E4,“?”)

では実際に関数を入れてみましょう。下図のようになります。

うまくいきましたね。ちなみに通常時もちゃんと計算してくれています。

エラーが発生する可能性のあるセルにはIFERROR関数を入れて、エラーの連鎖を止めてみてください。

・ほかの関数との併用

先ほどはIFERROR関数のみの使用でしたが

ほかの関数の併用も可能になっています。

下図のようなデータを用意しました。

行いたいこととしてAさんのテストの平均値を求めることとします。

通常であれば「=AVERAGE(C3:C7)」をC8に打ち込んで平均を求めます。

では理科のテストが手違いでエラーになったとします。

すると平均値を算出するC8はこのようになります。

対象範囲にエラーがあるため算出結果もエラーになります。

ではIFERROR関数を使用してエラー時には「エラーあり」と表示しましょう。

式を振り返ってみましょう。

IFERROR(通常時,エラー時)

こちらに当てはめると下記のようになります。

IFERROR( AVERAGE(C3:C7) , ”エラーあり ”)

通常時にはAVERAGE関数を使用していますね。

ではエラー有と無状態で結果を見てみましょう。

うまく機能していますね。

さらにエラー時でも関数を使用することができるので

場面によって使い分けてみてください。

■公式の説明

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

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

IFERROR 関数 – Office サポート (microsoft.com)

■練習問題

では練習問題でIFERROR関数を身に着けてみてください。

・練習問題①

下図をご覧ください。数値1と数値2を足した値をF3に表示してみましょう。

数値1と数値2にエラーが生じれば合計に「エラーあり」と表示するようにしてみます。

答え：=IFERROR(B3+D3,”エラーあり”)

・練習問題②

では他の関数も交えて練習してみましょう。下図をご覧ください。

数値が1から5まであり、通常時は「最大値」。

エラーがあれば「 数値を確認してください 」と表示してみましょう。。

結果の出力はC8に行うこととします。

答え：=IFERROR(MAX(C3:C7),”数値を確認してください”)

■まとめ

いかがだったでしょうか。
関数を使用するうえでエラーは誰もが頭を悩ませる問題です。
ここでエラー時の対応をフォローできていれば、良いファイルになること間違いなしです。

IF関数の流れを一通り理解したことで
次回からIF関数+○○関数といった、複合型の関数について説明できればと思います。

合計ではSUMIF関数、平均ではAVERAGEIF関数などありますね。

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

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

関数の使い方や効果を、実際のエクセルを使用してわかりやすくしています。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！