VBA - カラーフィールドに複数の条件がある範囲で見つかる

Question

私は、選択されたセルの各範囲に2つの条件があるかどうかを調べるためにvbaコードを作成しようとしています。両方の条件が満たされていれば、私はそれを色づけしたい。私は次のように書いた：

Dim ThisRng As Range 
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8) 
Selection.Activate 
Dim cel As Range 
For Each cel In ThisRng.Cells 
    With cel 
    cel.Find("..condition1 to search").Activate 
    ActiveCell.Find("...secondcondition").Activate 
    ActiveCell.Select 
    ActiveCell.Interior.ColorIndex = 33 
    ThisRng.Activate 

    End With 

Next cel 

これは、条件が真であるときにのみ働く。セルを起動できない場合、エラーが発生し、次のセルに移動しません。

どのようなアイデアですか？

おかげ

Answer 1

は、これが終わるラウンド式を有する任意の細胞赤に色だろう「0）」

Sub Demo 
Dim ThisRng As Range 
Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8) 
Dim cel As Range 
For Each cel In ThisRng.Cells 
    if len(cel.formula)>6 then 
     if left(cel.formula,6)="=ROUND" and right(cel.formula,3) = ",0)" then 
      cel.interior.ColorIndex = 3 
     end if 
    end if 
next cel 
End Sub