条件付きでセルをフォーマットするにはbooleanを返す方法は？

Question

条件付き書式]ダイアログボックスから呼び出された場合に細胞がそれに応じて変更されるように、VBEで、次のコードは、trueを返す必要があります。

Function sshProblem() 
    Dim portStatus As String 
    portStatus = ActiveCell.Value 
    If StrComp(portStatus, "No") = 0 Then 
     sshProblem = True 
    End If 
End Function 

私は値を持つセルに「いいえ」、何もこの条件設定を適用しない場合たまたま：

Answer 1

あなたが関数に範囲を渡し、それはあなたが選択を変更するたびに変わると、アクティブセルを使用しないする必要があります。

Function sshProblem(rng As Range) As Boolean 
    Dim portStatus As String 
    portStatus = rng.Value 
    If StrComp(portStatus, "No") = 0 Then 
     sshProblem = True 
    End If 
End Function 

次に、フォーマットしている範囲の左上のセルを使用して呼び出します。だから、

私はA1の書式を設定している場合：A1000は、式は次のようになります。

=sshProblem(A1) 

しかしMat'sMug @として、彼の無限の知恵で、これは既存の単純で行うことができます述べました式：

=A1="No" 

何か簡単なvbaは必要ありません。