如果功能的單元格內容

Question

我試圖檢查，如果某一範圍的內容是真的，它會執行一個功能。

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

但是我得到一個類型不匹配錯誤。請幫助。

Answer 1

如果您試圖檢查範圍內的每個單元格，然後嘗試使用這種方法。

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 

爲了測試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