Excel 매크로 - 데이터와 형식을 표로 사용하는 모든 셀 선택

Excel 매크로 - 데이터와 형식을 표로 사용하는 모든 셀 선택

활성 선택 항목 중에서 테이블 형식을 지정할 수 있는 매크로를 작성할 수 있습니까?예를 들어, 기본적으로 Ctrl+Shift+End range를 선택하는 매크로가 있습니다.그런 다음 매크로가 선택한 범위를 테이블 형식으로 지정할 수 있도록 하고 싶지만, 이 작업을 VBA에 기록할 때 범위 주소가 사용됩니다. 이 주소는 시트마다 항상 같지는 않습니다.

Sub A_SelectAllMakeTable()
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AO$2959"), , xlYes).Name _
    = "Table1"
Range("A1:AO2959").Select
ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium15"
End Sub

잘 부탁드립니다.

현재 선택한 항목에 대해 다음을 시도합니다.

Sub A_SelectAllMakeTable2()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)
    tbl.TableStyle = "TableStyleMedium15"
End Sub

또는 매크로와 동등한 값(Ctrl+Shift+End Range 선택의 경우):

Sub A_SelectAllMakeTable()
    Dim tbl As ListObject
    Dim rng As Range

    Set rng = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
    tbl.TableStyle = "TableStyleMedium15"
End Sub

언급URL : https://stackoverflow.com/questions/21557916/excel-macro-select-all-cells-with-data-and-format-as-table