その際に通常のメニューにある実行の停止はグレーアウトして
選択できないため、プログラム実行が終わるまで待つ方もいるのではないでしょうか。

そこで今回はキーボード操作のみでできる実行中のコードを
停止させる方法について紹介します。

作業自体もとても簡単なので是非参考にしてみてください。
それでは見ていきましょう。

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

・実行中のプロシージャを強制的に途中停止できる。
・処理中のコードを途中停止できる

⬛︎実行コードを強制停止・終了する

では本題に入っていきましょう。
見本で下記のような簡単なコードを用意しました。

Sub 繰り返し処理()
Dim Time1 As Double, Time2 As Double, Result As Double
Dim Cycle As Long

Time1 = Timer
For Cycle = 1 To 1000 Step 1
 Cells(1, 1) = "=SUM(D:D)"
 Cells(1, 1) = "=SUM(D:D)" 
 Cells(1, 1) = "=SUM(D:D)"
Next Cycle

Time2 = Timer
Result = Time2 - Time1
MsgBox Result & "秒で処理しました"
End Sub

内容としてはセル番地A1からA3にＤ列の合計の算出を
SUM関数を用いて10000回繰り返すコードになります。

見本なので無意味な繰り返しをしていますが
こちらを実行すると「138秒」かかってしまいます。

一度実行してしまうと止まるまでに約２分待たないといけないので
誤動作時にはとてもめんどくさいです。
こちらを実行中に途中で止めてみましょう。

使用するキーは「エスケープキー」になります。
大半のキーボードでは左上に配置されており「Esc」と記されていると思います。

では実際に「Escキー」を活用してみましょう。
活用方法は簡単で、実行中に押すのみです。

では先程のコードを実行して「Escキー」を押してみたいと思います。
結果はこのようになりました。

「コードの実行が中断されました。」というメッセージが表示されました。
よく、エラー時に表示されるメッセージです。

では確認も含めてデバッグを押してみましょう。

変数Nは本来であれば10000回繰り返しますが
543回で止まっています。

つまり強制的に停止が出来たことになります。

とても簡単ですね。

⬛︎停止後の復帰方法

ここからは停止の復帰方法です。
デバッグ作業をされた事がある方は復習になりますが
一連の復帰方法を見ていきましょう。

・完全に実行を中断したい場合

現在の状態はあくまで強制停止状態にあります。
なので、そこから再度実行もできますし、デバッグもできます。

今回は完全に実行を中断するわけですから
先程のメッセージから「終了」を押します。

これで強制終了が終わりました。

注意点として、どこまでのコードが実行されたかは
確認が出来ないのでシートを確認して現状を把握する必要があります。

どこまでのコードが実行されたか確認する方法は次の項目で説明します。

・どこまでのコードを実行したか確認して終了する

今度はどこまでのコードが実行されたか確認して終了する手順を紹介します。

「Escキー」を押した後にでるメニューか「デバッグ」を選択します。

すると黄色く塗りつぶされた行があるのですか
そこまでコードが実行されたことを示します。

見本のように繰り返し動作の場合は変数を確認すれば何回まで繰り返し処理が行われたか確認することが出来ます。

その後、「リセット」ボタンにて停止中のプロシージャを
完全に中断することができます。

・コード実行を再開したい場合

最後にコードの実行を再開したい場合を見ていきましょう。

まずは、アラーム時の復帰から見ていきます。

操作は簡単でメニューにある「継続」を押せば、動作を再開してくれます。

次に「デバッグ」で停止させた後に再開の方法を見ていきましょう。

こちらは「F5」キーまたは「ユーザーフォームの実行」ボタンでコード実行の再開を行うことができます。

もちろん再開後も再度、「Esc」キーで停止させることも可能です。

■Escでも強制終了できない場合

Escキーでも止まらない場合はタスクマネージャーで停止させることも可能です。

しかし、先ほどまでの停止方法とは異なり、Excel自体の強制終了になるので

上書き保存をしていないと、前回の保存以降の処理が消えてしまうので注意が必要です。

では方法を見ていきましょう。

まずキーボードの「Ctrl」+「Alt」+「Delete」を押します。

するとメニューが表示されるので「タスクマネージャー」を選択します。

「プロセス」タブに「Microsoft　Excel」の項目があると思うので選択します。

最後に「タスクの終了」があるのでこちらを選択します。

するとExcelが強制終了します。

強制終了後のファイルの復元方法については下記記事をご参照ください☟

保存できずに終了・上書きしたエクセルファイルを復元する方法一覧！消えたファイルを元に戻す ► 独学エクセル塾 (dokugakuexcel.com)

いずれもコードの実行前には上書きを推奨します。

⬛︎まとめ

いかがだったでしょうか。
処理に時間がかかるプロシージャを途中で止めたくなった
場合など様々な場面で使用できそうですね。

また「Escキー」のみで操作可能なので
とても簡単な方法になっています。

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

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

その中でも今回は「実行時エラー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」ですが、使用方法を間違えるとエラーが生じてしまいます。

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

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

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

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

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

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

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

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

ここで注目してほしいのは「オブジェクト名」です。
ではこちらのユーザーフォームを表示するだけのマクロ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

■まとめ

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

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

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

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

しかし、通常のエクセルの拡張子である「xlsx」の要領で「xlsm」の拡張子で保存すると
エラーが発生してしまいます。

そこで今回は「.xlsm」の拡張子でエラーが発生しない方法で保存する方法について紹介します。

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

■「.xlsm」の拡張子とは

まずは「.xlsm」の拡張子について紹介します。

拡張子とはファイル名の後の「.」の後に続く文字のことを言います。
VBAを使用する方はすでにご存知かと思いますがマクロの設定や
保存する際には通常の拡張子である「.xlsx」でなく「.xlsm」で保存しないといけません。

■通常のファイル保存方法

では通常のファイル保存を参考に見ていきましょう。

下記プログラムをご覧ください。

Sub ブックの保存()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=”エクセルシート”

End Sub

このプログラムではアクティブブックを「エクセルシート」という名前で保存します。
もちろん拡張子は通常ファイル形式の「.xlsx」となります。

ではもう1パターン見てみましょう。
下記プログラムをご覧ください。

Sub ブックの保存()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=”エクセルシート.xlsx”

End Sub

こちらは先ほどのプログラムに加え、拡張子を指定して「.xlsx」で
保存しています。
こちらも拡張子は通常ファイル形式の「.xlsx」となります。

■「.xlsm」で保存する方法

では本題の「.xlsm」の拡張子で保存してみましょう。
先ほどプログラムの「.xlsx」を「.xlsm」に変えてみました。

Sub ブックの保存()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=”エクセルシート.xlsm“

End Sub

実行すると下図のようなエラーが発生してしまいます。

実行時エラー’1004′:が発生してしまいました。
皆さんもここで困っているのではないでしょうか。

エラーの内容をみても「この拡張子は、選択したファイル形式には使用できません。」
と書いてありますね。

では解決方法を紹介したいと思います。
「FileFormat」で「.xlsm」でマクロ有効ブックであることを指定すれば解決します。

xlsmの拡張子であれば「 FileFormat:=xlOpenXMLWorkbookMacroEnabled」で
マクロ有効ブックの指定をします。

では実際にプログラムに組み込んだ結果を見てみましょう。

Sub ブックの保存()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=”エクセルシート.xlsm”, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

こちらでxlsmの拡張子で保存することができました。

ちなみにファイルを保存する際には

①通常ファイルの「xlsx」
②マクロ有効ブックの「xlsm」
③csvファイルの「csv」
④メモ帳の「txt」

の種類がありますがエラーが出るのは②のマクロ有効ブックのみです。

参考までに各フォーマットを載せておきます。

上記を踏まえて見本でもう一事例紹介したいと思います。
拡張子をtxtで保存してみましょう。

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

Sub テキストでブックを保存()

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=”エクセルシート”, FileFormat:=xlText

End Sub

これで様々な拡張子で保存できるようになりましたね。

⬛︎公式の説明

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

Workbook.SaveAs メソッド (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
VBAを使用する上でxlsmの拡張子は必須ですが
いざ保存しようとするとエラーが出て困りますよね。

ぜひこの記事をもとにマクロ有効ブックで保存してみてください。

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

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

さらに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を使用して異常値を検出して指定位置に飛ぶ
③入力規則で入力データを制限する
で紹介しました。

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

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

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