VBAはExcelで型の不一致

Question

私はAB 例えばの内容に基づいて、列のS、WおよびAHで内容を変更しますマクロを作成しようとしているを返しますAB1 = Noの場合、S1 = C-MEM、AH = N/Aとなり、Wはクリアされます。何らかの理由で

は、私は私のif文の最初の行に「種類不一致」エラーを取得し、なぜ、またはどのようにそれを修正するために把握することはできません - でも同様の問題についての他の記事を読んだ後。あなたは、エラーが= Noであるかどうかをテストしようとしている

Sub test() 
    Dim lastrow As Long 
    Dim i As Long 
    lastrow = Range("AB" & Rows.Count).End(xlUp).Row 
    For i = 2 To lastrow 
    **-> If Range("AB" & i).Value = "No" Then 
      Range("S" & i).Value = "C-MEM" 
      Range("W" & i).Value = "" 
      Range("AH" & i).Value = "N/A" 
     End If 
    Next i 
End Sub 

おかげ

Answer 1

。

エラーをテストし、そのループのロジックをスキップ：

Sub test() 
    Dim lastrow As Long 
    Dim i As Long 
    lastrow = Range("AB" & Rows.Count).End(xlUp).Row 
    For i = 2 To lastrow 
     If Not IsError(Range("AB" & i).Value) Then 
      If Range("AB" & i).Value = "No" Then 
       Range("S" & i).Value = "C-MEM" 
       Range("W" & i).Value = "" 
       Range("AH" & i).Value = "N/A" 
      End If 
     End If 
    Next i 
End Sub