셀 내용에 대한 함수가있는 경우

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 

테스트하려면 해당 범위에있는 모든 셀이 검색어` "텍스트"`이있는 경우 선택 케이스

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