VBA 텍스트 가운데 정렬하기- 셀 정렬(가로 및 세로)

이 자습서에서는 VBA를 사용하여 셀의 텍스트를 가로 및 세로 방향에서 중앙에 배치하는 방법을 보여줍니다.

Excel의 홈 리본에 있는 정렬 그룹을 사용하여 셀의 텍스트를 가로 및 세로 모두 가운데에 정렬할 수 있습니다. 텍스트 서식을 지정하는 매크로를 작성하는 경우 VBA 코드를 사용하여 이 기능을 구현할 수 있습니다.

텍스트 가로로 가운데 정렬하기

단일 셀에서 텍스트를 가로로 중앙에 배치하려면 다음 코드를 사용할 수 있습니다:

Sub CenterText()
 ActiveCell.HorizontalAlignment = xlCenter
End Sub

또는 선택한 셀 범위의 각 셀의 텍스트를 가로로 중앙에 배치하려면 Selection 개체를 사용하여 다음을 수행할 수 있습니다:

Sub CenterText()
 Selection.HorizontalAlignment = xlCenter
End Sub

xlLeft 및 xlRight 상수를 사용하여 정렬을 오른쪽 또는 왼쪽으로 변경할 수도 있습니다.

따라서 셀의 텍스트를 오른쪽으로 정렬하려면 다음 코드를 사용할 수 있습니다:

Sub RightAlignText() 
 ActiveCell.HorizontalAlignment = xlRight
End Sub

텍스트 세로 방향 중앙에 정렬하기

텍스트를 세로로 중앙에 배치하는 것은 가로로 배치하는 것과 거의 동일합니다.

Sub CenterTextVertical()
 ActiveCell.VerticalAlignment = xlCenter
End Sub

선택 영역에서 텍스트를 세로로 가운데 정렬하는 것도 마찬가지입니다:

Sub CenterTextVertically() 
 Selection.VerticalAlignment = xlCenter 
End Sub

xlTop 또는 xlBottom 상수를 사용하여 셀 또는 선택 영역의 상단 또는 하단으로 텍스트의 위치를 변경할 수도 있습니다.

Sub TopAlignVertically() 
 ActiveCell.VerticalAlignment = xlTop
End Sub

텍스트를 가로와 세로 방향에서 동시에 가운데 정렬하기

텍스트를 가로와 세로 방향에서 동시에 중앙에 배치하려면 몇 가지 방법을 사용할 수 있습니다.

Sub CenterBoth()
 ActiveCell.HorizontalAlignment = xlCenter
 ActiveCell.VerticalAlignment = xlCenter
End Sub

반복되는 코드를 줄이려면 With 및 End With 문을 사용할 수 있습니다.

Sub CenterBoth2()
  With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
  End With
End Sub

위의 코드는 Excel의 모든 선택된 셀에 적용됩니다.

셀 병합이나 텍스트의 방향 변경과 같이 선택 영역 내에서 많은 서식을 지정해야 하는 경우 With 및 End With를 사용하면 매우 효과적입니다.

Sub MergeAndCenter()
  With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlBottom
   .Orientation = -36
   .MergeCells = True
  End With
End Sub