VBATips

実行時エラー11「0 で除算しました」の回避方法【ExcelVBA】

実行時エラー11「0 で除算しました」が表示される

ExcelVBAで以下エラーが発生する場合があります。
実行時エラー ’11’:
0 で除算しました。

単純に0で除算(割り算)した為、エラーが表示されているだけです。
※0で割り算ができない理由は別途Googleで検索をしてください。

実行時エラー11「0 で除算しました」が発生、回避するサンプルコード

'「0 で除算しました」エラーが発生、回避するサンプルコード。
Public Sub sample()

    Dim x As Long: x = 10
    Dim y As Long: y = 0
    
    '■「0 で除算しました」エラーが発生。yが0のため
    Debug.Print x / y
    
    '■単純に分母のyが0の場合は処理を変更する事で回避可能
    If y = 0 Then
        Debug.Print 0
    Else
        Debug.Print x / y
    End If
    
End Sub

注意点

  • 特にありません。

関連記事

コメント

タイトルとURLをコピーしました