|
|
|
|
|
|
아래 코드도 실행해 보세요,
수고 하세요.
Sub 실행()
Dim R As Range
Dim i
Dim Li As ListObject
Set Li = ActiveSheet.ListObjects("Test")
With ActiveSheet.ListObjects("Test")
For i = 1 To .ListRows.Count
MsgBox "표(Test) " & i & "행 주소 : " & .ListRows(i).Range.Address
Next i
For i = 1 To .ListColumns.Count
MsgBox "표(Test) " & i & "열 주소 : " & .ListColumns(i).Range.Address
Next i
MsgBox "표(Test) 전체 범위 : " & .Range.Address & vbLf & vbLf & _
"표(Test) 머리글 범위 : " & .HeaderRowRange.Address & vbLf & vbLf & _
"표(Test) 데이터 범위 : " & .DataBodyRange.Address
For Each R In .HeaderRowRange
MsgBox "표(Test) 머리글 : " & R.Value & vbLf & _
"표(Test) 머리글 전체 범위 : " & .ListColumns(R.Value).Range.Address & vbLf & _
"표(Test) 머리글 데이터 범위 : " & .ListColumns(R.Value).DataBodyRange.Address
Next R
End With
End Sub |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2017-10-31(11:44)
최종수정일 : 2017-10-31(11:44) |
|
|
|
|