VBA를 사용하여 셀 범위에 조건부 서식 적용

Question

'Applies To'라는 조건부 서식에서 열을 액세스하고 내 조건을 입력하는 방법을 알고 싶습니다. 더 나은 참조를 위해 스크린 샷을 포함 시켰습니다.

조건부 서식에 구문을 추가하는 내 코드는

,

With Selection 
    .FormatConditions.Delete 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & c.Address & "=TRUE" 
    . 
    . 
    . 
End With 

나는 코드가 추가되어야하지만, 난 그냥 올바른 구문을 찾을 수 있다고 생각합니다.

업데이트 : I는 다음과 같이 사용하려면 코드를 업데이트

,

With Range(Cells(c.Row, "B"), Cells(c.Row, "N")) 
    .FormatConditions.Delete 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & c.Address 
    .FormatConditions(1).Interior.ColorIndex = 15 'change for other color when ticked 
End With 

이 본질적으로, 내가 체크 박스를 배치 곳과 관련된 특정 범위의 행을 만들 것은 배경 색상이 변경되었습니다 . 확인란 위치는 c.Address로 표시됩니다. 여기서 'c'는 내가 선택한 셀의 위치를 ​​나타냅니다.

Answer 1

당신은 (Range("A25") 당신이 찾을거야 정확히 무엇을)이 같은 작업을 수행해야합니다

With Range("A25") 
     .FormatConditions.Delete 
     .FormatConditions.Add Type:=xlExpression, _ 
      Formula1:="=" & c.Address 
     '. 
     '. 
     '. 
End With 

및 "=" & c.Address & "=TRUE"을 쓸 필요가 없습니다, 당신은 단지 "=" & c.Address를 사용할 수 있습니다.

Answer 2

"적용 대상"은 With 블록이 수행되는 Selection에 내재되어 있습니다.