Excel에서 색을 채우는 동안 눈금선을 유지하려면 어떻게 해야 하나요?

우리 모두가 알고 있듯이, 셀에 배경색을 채울 때 눈금선도 함께 덮여버립니다. 이 경우 아래 스크린샷과 같이 Excel 셀에 배경색을 채우면서도 눈금선을 유지하려면 어떻게 해야 할까요?

VBA 코드를 사용하여 색을 채우는 동안 눈금선 유지하기

VBA 코드를 사용하여 색을 채우는 동안 눈금선 유지하기

일반적으로 이 작업을 해결할 직접적인 방법은 없지만, 여기에서는 VBA 코드를 소개해 드리겠습니다. 다음 단계를 따라주세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 왼쪽의 Project-VBAProject 창에서 확장된 VBAProject 아래에 있는 ThisWorkbook을 두 번 클릭한 후, 다음 VBA 코드를 빈 모듈에 복사하여 붙여넣습니다.

VBA 코드: 색을 채우는 동안 눈금선 유지하기

Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not xRgPre Is Nothing Then DrawBorders xRgPre
    Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
    Dim xCell As Range
    Application.ScreenUpdating = False
    For Each xCell In Rg
        If xCell.Interior.ColorIndex = xlNone Then
            With xCell.Borders
                If .ColorIndex = 15 Then
                    .LineStyle = xlNone
                End If
            End With
        Else
            With xCell.Borders
                If .LineStyle = xlNone Then
                    .Weight = xlThin
                    .ColorIndex = 15
                End If
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 코드 창을 저장하고 닫습니다. 이제 범위의 셀에 색상을 채울 때 눈금선이 자동으로 표시됩니다.