vbaでランタイムエラー6を解決するには？

Question

Iは、次のコード

TextBox50.Value = Round((CDbl(TextBox3.Value)/(CDbl(Worksheets("calculation").Range("O4").Value)) - 1) * 100, 1) & "%" 

Worksheets("calculation").Range("O4")にTextBox3 = Value現在の値を有します。

Range（O4）の値が0の場合は、本質的に0/0を意味するため、ランタイム6、オーバーフローエラーが発生します。

は、とにかく、私はすべてのヘルプははるかに高く評価される0

で0/0を置き換えることができますあります。このような

Answer 1

あなたはIIFを（使用することができます）：

TextBox3の値を返します

TextBox50.Value = Round((CDbl(TextBox3.Value)/IIF(CDbl(Worksheets("calculation").Range("O4")=0,1,CDbl(Worksheets("calculation").Range("O4"))) 

もう1つが0の場合。

Answer 2

何かがあなたがゼロ問題による除算を持っているような状況のために働く必要がありますありがとう：

If CDbl(Worksheets("calculation").Range("O4").Value) = 0 Then 
    TextBox50.Value = (0 - 1) * 100, 1) & "%" 
Else 
    TextBox50.Value = Round((CDbl(TextBox3.Value)/(CDbl(Worksheets("calculation").Range("O4").Value)) - 1) * 100, 1) & "%" 
End If