엑셀 VBA. 조건부 서식

VBA에서 일정 조건에 해당하면 조건부 서식을 재실행시키는 코드

 

조건부서식 정의

 

그리드에서 선 선택시 조건부 서식에 정의된 서식이 적용됩니다.

 

 

 

sheet에는
   " If Target.FormatConditions.Count > 0 Then Me.Calculate" 문장 적용

 

 

<코드>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    --> 선택 변경 이벤트일 경우 적용

    Dim p As Integer
    Dim grid_cnt As Integer

    p = ActiveCell.Row                                         '--- 셀이 있는 위치     ==> 셀 위치를 저장
    grid_cnt = Worksheets(select_sheet).Cells(11, 3)    '--- 그리드 데이터 건수 확인  ==>Cell 11,3위치 라인수 있다.
        
    If (p <= 12) Or (p >= (13 + grid_cnt)) Then         '--- 데이터 있는 곳이 아닌지 체크
        Exit Sub                                             '==> 그리드를 벗어났다면 서식을 적용하지 않는다.
    End If

 
'// 조건부 서식을 적용함
    If Target.FormatConditions.Count > 0 Then Me.Calculate    ==> 서식을 다시 적용하는 기능


End Sub

 

/