可変範囲vbaの場合count

Question

countif式を使用してVBAで条件付き書式設定を実装しようとしています。今はうまくいくが、可変範囲を実装したい。私は成功なしで次のことを試しました。

With Range("AI7").FormatConditions _ 
     .Add(xlExpression, Formula1:="=AND(COUNTIF($C$7:$AG$7;""B"")<=3;COUNTIF($C$7:$AG$7;""R"")<=5)") 
     .Interior.Color = RGB(185, 207, 203) 
    End With 

どのようにcountifの動的範囲を作るか。私はそれを試しました：

With Range("AI7").FormatConditions _ 
     .Add(xlExpression, Formula1:="=COUNTIF(R[7]C[3], R[7]C[31])="B"") 
     .Interior.Color = RGB(248, 194, 203) 
    End With 

Answer 1

これはそれを行う方法の1つです。必要に応じて列の文字を動的に取得する必要がありますが、その変数を下の変数sColに入れることができます。

Dim sCol as String 

sCol = "AG" 'you'll have to define the column in whatever way you need 

With Range("AI7").FormatConditions _ 
     .Add(xlExpression, Formula1:="=AND(COUNTIF($C$7:$" & sCol & "$7;""B"")<=3;COUNTIF($C$7:$" & sCol & "$7;""R"")<=5)") 
     .Interior.Color = RGB(185, 207, 203) 
    End With