VBA 셀 테두리 서식

이 튜토리얼에서는 VBA에서 셀 테두리 설정을 조정하는 방법을 보여드립니다.

셀 테두리 서식 지정하기

위쪽 테두리 – 이중 선

먼저 Sheet1의 B3셀에 파란색의 두꺼운 이중 테두리를 셀의 위쪽에 설정하는 예제를 살펴보겠습니다:

Sub ExampleSetBorder()

 With Worksheets("Sheet1").Range("B3").Borders(xlEdgeTop)
  .LineStyle = xlDouble
  .Weight = xlThick
  .ColorIndex = 5
 End With

End Sub

With 문을 사용하여 코딩을 보기 좋게 하였습니다.

.Borders(xlEdgeTop)를 사용하여 위쪽 테두리에 액세스합니다.

다른 테두리 옵션

대각선을 포함한 다른 테두리에 액세스할 수도 있습니다:

Worksheets("Sheet1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)
Worksheets("Sheet1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)
Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)
Worksheets("Sheet1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
Worksheets("Sheet1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)
Worksheets("Sheet1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0)

안쪽 테두리

범위 내의 모든 셀에 대해 안쪽 가로(xlInsideHorizontal) 및 안쪽 세로(xlInsideVertical) 테두리를 설정할 수도 있습니다:

With Worksheets("Sheet1").Range("B2:C6").Borders(xlInsideHorizontal)
 .LineStyle = xlDashDotDot
 .Weight = xlMedium
 .ColorIndex = 3
End With

선 스타일

LineStyle 속성은 xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot 및 xlLineStyleNone으로 변경할 수 있습니다.

Weight 속성은 xlHariline, xlThin, xlMedium 및 xlThick 중 하나 일 수 있습니다. 아래 코드를 사용한 결과를 캡처하였습니다:

Worksheets("Sheet1").Range("C3").Borders(xlEdgeTop).Weight = xlHairline
Worksheets("Sheet1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairline
Worksheets("Sheet1").Range("D3").Borders(xlEdgeTop).Weight = xlThin
Worksheets("Sheet1").Range("D3").Borders(xlEdgeBottom).Weight = xlThin
Worksheets("Sheet1").Range("E3").Borders(xlEdgeTop).Weight = xlMedium
Worksheets("Sheet1").Range("E3").Borders(xlEdgeBottom).Weight = xlMedium
Worksheets("Sheet1").Range("F3").Borders(xlEdgeTop).Weight = xlThick
Worksheets("Sheet1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

테두리 색상은 ColorIndex 또는 색상(RGB, 일련 번호 또는 vbColor)으로 설정할 수 있습니다. 색상 설정에 대한 자세한 내용은 여기를 참조하세요.

다음 예제 코드를 활용하여 범위 주위에 테두리를 추가할 수도 있습니다:

Range("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed