ListObject.ShowTableStyleLastColumn property

ListObject.ShowTableStyleLastColumn 속성

지정한 ListObject 개체의 마지막 열을 표시할지 여부를 반환하거나 설정하며 읽기/쓰기가 가능한 Boolean입니다.

다음 코드는 마지막 열에 서식을 적용합니다.

Sub ApplyTableStyleToLastColumn()
    Dim Tbl As ListObject
    Set Tbl = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")

    Tbl.ShowTableStyleLastColumn = True
End Sub

다음 코드는 마지막 열의 서식을 해제합니다.

Sub ApplyTableStyleToLastColumn()
    Dim Tbl As ListObject
    Set Tbl = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")

    Tbl.ShowTableStyleLastColumn = False
End Sub

다음 코드는 현재 상태에 따라 변경하는 코드입니다.

Sub ToggleTableStyleLastColumn()
    Dim Tbl As ListObject
    Dim CurrentState As Boolean

    Set Tbl = ThisWorkbook.Sheets("Sheet1").ListObjects("Table1")

    CurrentState = Tbl.ShowTableStyleLastColumn

    Tbl.ShowTableStyleLastColumn = Not CurrentState
End Sub

관련 글

ListObject.ShowTableStyleFirstColumn property

도움말 출처

ListObject.ShowTableStyleLastColumn property (Excel)