セルの内容の場合

Question

特定の範囲の内容が真である場合、機能を実行するかどうかを確認しようとしています。

With Sheets(1).[A1:A95] 
     If .Cells.Value = "text" Then 
      'Perform function 
     End If 
    End With 

しかし、タイプの不一致エラーが発生しています。助けてください。

Answer 1

範囲内の各セルをテストしたい場合は、この方法で試してみてください。 cCellの複数の値について

Dim cCell As Range 

For Each cCell in Sheets(1).Range("$A$1:$A$95") 
    'To test to ensure cCell.Value is what you expect(can remove once working) 
    Debug.Print cCell.Value 
    If cCell.Value ="whateveryouwanttotestfor" Then 
     'Call your function here 
     Call myFunction 
    End If 

Next cCell 

テストするに は、その範囲内の任意のセルは、検索用語 `「テキスト」`を持っている場合のSelect Case

For Each cCell in Sheets(1).Range("$A$1:$A$95") 
    Select Case cCell.Value 
     Case "text1" 
      Call text1Function 
     Case "text2" 
      Call text2Function 
     'Do the rest that you need 
    End Select 
Next cCell