ListObject.ShowTableStyleFirstColumn property
지정한 ListObject 개체의 첫 번째 열에 대한 서식을 지정할지 여부를 반환하거나 설정합니다. 읽기/쓰기가 가능한 Boolean입니다.
Syntax
expression.ShowTableStyleFirstColumn
expression : ListObject 개체를 나타내는 변수입니다.
다음 코드는 첫 번째 열을 강조하는 코드입니다.
Sub ApplyTableStyle()
Dim Tbl As ListObject
Set Tbl = ThisWorkbook.Sheets("시트1").ListObjects("테이블1")
'첫 번째 열 강조
Tbl.ShowTableStyleFirstColumn = True
End Sub
매크로 실행 후 화면입니다.
다음 코드는 첫 번째 열의 강조를 해제합니다.
Sub RemoveTableStyle()
Dim Tbl As ListObject
Set Tbl = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")
'첫 번째 열 강조 해제
Tbl.ShowTableStyleFirstColumn = False
End Sub
다음 코드는 현재 상태에 따라 변경하는 코드입니다.
Sub ToggleFirstColumn()
Dim Tbl As ListObject
Dim CurrentState As Boolean
Set Tbl = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")
'현재 상태 저장
CurrentState = Tbl.ShowTableStyleFirstColumn
'첫 번째 열 스타일 토글
Tbl.ShowTableStyleFirstColumn = Not CurrentState
End Sub
관련 글
ListObject.ShowTableStyleLastColumn property
ListObject.ShowTableStyleLastColumn 속성 지정한 ListObject 개체의 마지막 열을 표시할지 여부를 반환하거나 설정하며 읽기/쓰기가 가능한 Boolean입니다. 다음 코드는 마지막 열에 서식을 적용합니다. Sub App
vbaplayground.tistory.com
도움말 출처
ListObject.ShowTableStyleFirstColumn property (Excel)
Office VBA reference topic
learn.microsoft.com
'ListObject object' 카테고리의 다른 글
ListObject.ShowTableStyleRowStripes property (0) | 2024.03.04 |
---|---|
ListObject.ShowTableStyleLastColumn property (0) | 2024.03.04 |
ListObject.ShowTableStyleColumnStripes property (0) | 2024.03.04 |
ListObject.ShowHeaders property (0) | 2024.03.04 |
ListObject.ShowAutoFilterDropDown property (0) | 2024.03.04 |