종종 조건부 서식이있는 시트를 만들고 조건부 서식 규칙이 셀 범위에 한 번만 적용되도록 셀 범위를 설정합니다.
Make $A$1:$A$30 red and
Make $B$1:$B$30 blue.
여러 행 및 / 또는 열을 삽입 / 삭제 한 후에는 조건부 서식 규칙 집합이 매우 조각화되어 다른 범위에 대해 동일한 규칙이 반복됩니다. 예 :
Make $A$1:$A$2 red
Make $A$3:$A$4 red
Make $A$5:$A$9 red
Make $A$10:$A$20 red
Make $A$21:$A$30 red
...
Make $B$1:$B$2 blue
Make $B$3:$B$4 blue
Make $B$5:$B$9 blue
Make $B$10:$B$20 blue
Make $B$21:$B$30 blue
....
이것을 방지하는 좋은 방법이 있습니까, 아니면 규칙 세트가 너무 지저분 해지면 수동으로 정리해야합니까?
답변:
행을 삽입하고 삭제해도 조건부 서식이 조각화되지 않습니다.
원인은 표준 복사 / 붙여 넣기를 사용하여 셀 또는 행 사이의 복사 / 붙여 넣기입니다. 수정은 항상 붙여 넣기 값 또는 붙여 넣기 수식을 사용하는 것입니다. 대상을 마우스 오른쪽 버튼으로 클릭하면 붙여 넣기 옵션 섹션에 123 (값) 및 f (수식)가 제공됩니다. 복사 / 붙여 넣기 형식을 지정하면 조건이 복사 / 붙여 넣기되고 때때로 조각화 될 수 있습니다.
표준 복사 / 붙여 넣기를 수행하면 셀의 조건부 수식도 복사됩니다. :하자 당신이 두 가지 규칙이 있다고 가정
1) (1) $ A $합니다 : $ A $ 30 빨간색
$ B $ (30) 파란색 : 2) $ B는 1 $ 확인
지금 A10를 선택 : B10를 복사 / 붙여 넣기 그 A20에 : B20. Excel에서 수행하는 작업은 해당 셀에 적용된 규칙에서 A20 : B20의 조건부 서식을 삭제하고 A20 : B20의 서식이있는 새 규칙을 추가하는 것입니다. 네 가지 규칙으로 끝납니다.
1) Make = $ A $ 20 red
2) Make = $ B $ 20 blue
3) Make = $ A $ 1 : $ A $ 19, $ A $ 21 : $ A $ 30 red
4) Make = $ B $ 1 : $ B $ 19, $ B $ 21 : $ B $ 30 파랑
A10에서 A20으로 복사 / 붙여 넣기 만하면 Excel은 소스와 대상 모두에 동일한 규칙이 적용되고 규칙을 조각화하지 않습니다. Excel은 복사 / 붙여 넣기가 둘 이상의 조건부 형식에 영향을 줄 때 조각화를 피하는 방법을 알아낼만큼 똑똑하지 않습니다.
Excel에서 행을 삽입하거나 삭제 한 영역을 포함하는 조건 규칙을 단순히 확장하거나 축소하기 때문에 행을 삽입하고 삭제해도 조각화가 발생하지 않습니다.
누군가 $ Q $ 1 : $ Q $ 30 대신 $ Q : $ Q를 사용하도록 제안했습니다. 그것은 도움이되지 않으며 위에서 언급 한대로 셀 서식을 복사 / 붙여 넣을 때 여전히 조각화가 발생합니다.
(이것은 해결 방법이므로 주석으로 쓰려고했지만 평판이 충분하지 않습니다.)
불행히도 규칙이 지저분해질 때 규칙 세트를 지우는 것이 운명 인 것 같습니다.
이 작업을 수행하는 쉬운 방법은 필요한 서식은 포함하지만 데이터는없는 워크 시트를 만드는 것입니다. 원본 워크 시트와 동일한 통합 문서에 있거나 템플릿으로 유지하는 다른 통합 문서에있을 수 있습니다.
정리해야 할 경우이 워크 시트로 이동하여 모두 선택 버튼을 마우스 오른쪽 단추로 클릭 하고 포맷 페인터 를 선택한 다음 원본 워크 시트에서 모두 선택 버튼 을 클릭하십시오 . 형식은 오염되지 않은 버전으로 덮어 씁니다.
셀을 수동으로 복사 / 붙여 넣기 / 잘라 내기 / 삽입하면 문제가 발생하여 피하기 어렵습니다.
VBA 매크로를 통해 문제가 해결되었습니다.
셀을 수동으로 복사 / 붙여 넣기 / 잘라 내기 / 삽입하는 대신 셀 범위를 유지하는 Excel 매크로를 통해 수행합니다 (버튼을 통해 활성화 됨).
Sub addAndBtnClick()
Set Button = ActiveSheet.Buttons(Application.Caller)
With Button.TopLeftCell
ColumnIndex = .Column
RowIndex = Button.TopLeftCell.Row
End With
currentRowIndex = RowIndex
Set Table = ActiveSheet.ListObjects("Table name")
Table.ListRows.Add (currentRowIndex)
Set currentCell = Table.DataBodyRange.Cells(currentRowIndex, Table.ListColumns("Column name").Index)
currentCell.Value = "Cell value"
Call setCreateButtons
End Sub
Sub removeAndBtnClick()
Set Button = ActiveSheet.Buttons(Application.Caller)
With Button.TopLeftCell
ColumnIndex = .Column
RowIndex = Button.TopLeftCell.Row
End With
currentRowIndex = RowIndex
Set Table = ActiveSheet.ListObjects("Table name")
Table.ListRows(currentRowIndex - 1).Delete
End Sub
Sub setCreateButtons()
Set Table = ActiveSheet.ListObjects("Table name")
ActiveSheet.Buttons.Delete
For x = 1 To Table.Range.Rows.Count
For y = 1 To Table.Range.Columns.Count
If y = Table.ListColumns("Column name").Index Then
Set cell = Table.Range.Cells(x, y)
If cell.Text = "Some condition" Then
Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - 2 * cell.Height, cell.Top, cell.Height, cell.Height)
btn.Text = "-"
btn.OnAction = "removeAndBtnClick"
Set btn = ActiveSheet.Buttons.Add(cell.Left + cell.Width - cell.Height, cell.Top, cell.Height, cell.Height)
btn.Text = "+"
btn.OnAction = "addAndBtnClick"
End If
End If
Next
Next
End Sub
서식을 재설정하려면 (실제로 필요하지는 않음) :
Sub setCondFormat()
Set Table = ActiveSheet.ListObjects("Table name")
Table.Range.FormatConditions.Delete
With Table.ListColumns("Column name").DataBodyRange.FormatConditions _
.Add(xlExpression, xlEqual, "=ISTLEER(A2)") 'Rule goes here
With .Interior
.ColorIndex = 3 'Formatting goes here
End With
End With
...
End Sub