엑셀 에서 가운데 점선 밖은 실선

C:\Documents&Setting\USER\Application Data\Microsoft\addins에 사용자테두리.xla복사

1) 엑셀: 도구 -> 추가기능 -> 사용자테두리 체크하여 포함하고 => ctrl+shift+I 로 사용

2) 엑셀: 도구 -> 사용자지정 -> 명령 -> 매크로 -> 사용자지정단추 드래그하여 도구모음에 끼워넣기 -> 아이콘 오른쪽클릭 -> 매크로지정 -> "사용자테두리" 입력=> 아이콘클릭하여 사용

<참고: VBA 프로그램>

Sub 사용자테두리()
'
' 사용자정의_셀테두리 Macro
' SEC이(가) 2005-09-06에 기록한 매크로
'
' 바로 가기 키: Ctrl+shift+l
' 한행의 여러열의 경우등은 오류가 난다->if문

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
If Selection.Columns.Count > 1 Then
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End If

If Selection.Rows.Count > 1 Then
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End If
End Sub