はじめに：ただ動くだけじゃ意味がない
店舗オペレーションの自動化を進めていたとき、「自動で動かすだけじゃなく、状況に応じて人に確認してもらいたい」というケースが多々ありました。たとえば「請求金額を手入力で確認する」「処理完了時に通知する」――このような人とのやりとりを可能にする構文が、InputBoxとMsgBox、そしてエラー処理です。
🧠 ユーザー入力：InputBox
基本構文
Dim name As String
name = InputBox("お名前を入力してください")
MsgBox "こんにちは、" & name & "さん！"
- ポップアップで文字入力を促す
- 入力値は変数として保存され、あとで処理に使える
実務での使用例
店舗名や日付など、動的に変わるデータを受け取る場面で活用。
たとえば「今月の請求対象店舗名を入力 → それに応じてファイル名を変更」などが可能になります。
💬 ポップアップ通知：MsgBox
基本構文
MsgBox "処理が完了しました！"
- ユーザーへのメッセージ表示
- 処理結果、エラー、確認事項など幅広く使える
Yes／Noの分岐も可能
Dim answer As VbMsgBoxResult
answer = MsgBox("このファイルを削除してもよろしいですか？", vbYesNo)
If answer = vbYes Then
MsgBox "削除します"
Else
MsgBox "キャンセルしました"
End If
→ これで、ユーザーの選択に応じた分岐処理が可能！
🔍 エラー処理：On Errorの基本
On Error Resume Next
On Error Resume Next
Worksheets("存在しない").Delete
MsgBox "エラーがあっても次へ進みました"
- エラーが起きても処理を続ける
- 注意：バグの見落としに注意が必要
On Error GoTo ラベルによる処理
On Error GoTo エラー処理
Dim x As Integer
x = 10 / 0 ' → エラー発生
Exit Sub
エラー処理:
MsgBox "エラーが発生しました！"
→ より安全・管理されたエラー対応が可能です
小話：エラーが止まると現場が止まる
あるとき、請求書出力処理で空のシート名を参照してしまい、Excelがフリーズ。
その後、On Error構文を用いて条件分岐と通知を組み込み、**「問題が起きても止まらず、適切なメッセージで対処できる処理」**を実装しました。現場の信頼度も向上！
✨ まとめ：VBAが“対話力”を持ったら業務が変わる
-
InputBoxで必要な情報をその場で取得 -
MsgBoxで処理状況や選択をわかりやすく通知 -
On Errorでコードが落ちても安心な回避ルートを用意
この3つは、VBAが使いやすく、人に寄り添うツールになる鍵です。
次回予告：コードを整理せよ！モジュール＆プロシージャ管理術
第10回（次回）は、増えてきたコードをどう整理・管理するか？複数モジュールの使い分けや、共通処理をまとめる「プロシージャ」について詳しく解説します！