Excelのセルの範囲の文字列を置き換えるVBAコード

Question

文字列＃DIV/0を検索するコードを追加しようとしています！ある範囲の細胞（EF：W10）に存在し、見つかった場合、その細胞をNAで置換する。以下は私が持っているものですが、それはあまり働いていません。私は何が欠けていますか？あなたが本当にVBAがこれを行う必要がある場合、それは実際の式ではなく、その後よりもVBAを使用してエラーをキャッチするのが最善ですが

Dim rngDiv As Range 
For Each rngDiv In Range("E4:W10") 
    If InStr(rngDiv.Value, "#DIV/0!") > 0 Then 
     rngDiv.Value = "NA" 
    End If 
Next rngDiv 

Answer 1

あなたがIsError()機能に

Dim rngDiv As Range 
For Each rngDiv In Range("E4:W10") 
    If IsError(rngDiv) Then 
     rngDiv.Value = "NA" 
    End If 
Next 

を使用することができます。

---

注：上記すべてエラーキャッチします - あなたはちょうどその#DIV/0!エラーをしたい場合は、代わりに.Value財産の.Textプロパティをテストする必要があります。

Dim rngDiv As Range 
For Each rngDiv In Range("E4:W10") 
    If rngDiv.Text = "#DIV/0!" Then 
     rngDiv.Value = "NA" 
    End If 
Next rngDiv 

Answer 2

方法約：

Sub marine() 
    Dim rngDiv As Range 
    For Each rngDiv In Range("E4:W10") 
     If rngDiv.Text = "#DIV/0!" Then 
      rngDiv.Value = "NA" 
     End If 
    Next rngDiv 
End Sub