数字ではなく文字が入力されている場合に警告する

トップページ（目次）

187.数字ではなく文字が入力されている場合に警告する

＜実行前後＞

→

Sub 数字ではなく文字が入力されている場合に警告する()

    判定セル = Range("A1").Value

    If IsNumeric(判定セル) = False Then '数字かどうか判定
    
        確認 = MsgBox("A1が文字になってます", vbYesNo + vbDefaultButton1)
        If 確認 <> vbYes Then End
        
    End If

End Sub

IsNumeric(判定セル)で数字ならtrue、数字以外ならfalseになるので、データ上、売上金額など必ず数字でなくてはならない場所に、勘違いで別のデータを入れてしまっている場合に警告を出せる。もちろん、変数にいれなくても直で書けます

Sub 数字ではなく文字が入力されている場合に警告する_変数なし()

    If IsNumeric(Range("A1").Value) = False Then '数字かどうか判定
    
        確認 = MsgBox("A1が文字になってます", vbYesNo + vbDefaultButton1)
        If 確認 <> vbYes Then End
        
    End If

End Sub