Excelでセルの入力内容をチェックして自動でメッセージを表示するExcelVBA

「このセルに数字が入ってなかったらアラートを出したい…」
「文字数が多すぎる場合は注意したい…」

そんな入力ミスや漏れを自動でチェックできるのが、セルの値に応じてメッセージを表示するVBAです！

今回は、A2セルの入力をチェックして、条件に応じてメッセージを出すコードをご紹介します。

この記事はこんな方におすすめです！！

Excelにて手動で入力チェックをしていて時間がかかっている、ミスが不安な人
Excel初心者だがVBAに興味がある人
実務でデータ整理が多い人（経理・事務職など）

Sub CheckInput()

    Dim targetCell As Range
    Set targetCell = Range("A2")

    If Trim(targetCell.Value) = "" Then
        MsgBox "A2セルが未入力です。入力してください。", vbExclamation
        targetCell.Select
        Exit Sub
    End If

    If Not IsNumeric(targetCell.Value) Then
        MsgBox "A2セルには数字を入力してください。", vbCritical
        targetCell.Select
        Exit Sub
    End If

    If Len(targetCell.Value) > 5 Then
        MsgBox "A2セルの値が長すぎます。5桁以内で入力してください。", vbInformation
        targetCell.Select
        Exit Sub
    End If

    MsgBox "正常に入力されています！", vbInformation

End Sub

Excelの入力チェックをVBAで自動化すると、
ミスを未然に防げて業務の正確性がアップします。

今回はA2セルを例にしましたが、範囲を広げれば様々なデータ入力にも応用できます。

今後も「実務でそのまま使えるVBAコード」を紹介していきますので、「こんなコードが欲しい！」などあれば、ぜひコメントください！！