우리 모두 알고 있듯이, 셀에 배경색을 채울 때 격자 선도 덮일 것입니다.이 경우 Excel 셀에서 배경색을 채우는 동안 격자 선을 유지하여 다음 스크린 샷을 표시 할 수 있습니다.
VBA 코드로 색상을 채우는 동안 격자 선 유지일반적으로이 작업을 직접 해결할 수있는 방법은 없지만 여기서 VBA 코드를 소개해 드릴 수 있습니다. 다음과 같이하십시오 :
1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
2. 왼쪽에 프로젝트 -VBAProject 창, 두 번 클릭 이 워크북 확장 아래 VBA 프로젝트을 클릭 한 다음 다음 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. 그런 다음 코드 창을 저장하고 닫으십시오. 이제 셀 범위의 색상을 채울 때 격자 선이 자동으로 표시됩니다.
