Tworzenie zakresów

http://www.thespreadsheetguru.com/blog/5-ways-to-create-a-dynamic-auto-adjusting-vba-range

Select VBA Coding
pusto pusto

fsdsfsfds

Select

Sub RemovePartsOfTable()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(“Table1″)
‘Remove 3rd Column
tbl.ListColumns(3).Delete
‘Remove 4th DataBody Row
tbl.ListRows(4).Delete
‘Remove Totals Row
tbl.TotalsRowRange.Delete
End Sub

Sub RemovePartsOfTable()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects(“Table1″)
‘Remove 3rd Column  tbl.ListColumns(3).Delete
‘Remove 4th DataBody Row  tbl.ListRows(4).Delete
‘Remove Totals Row  tbl.TotalsRowRange.Delete
End Sub

wpisuje dalej

Deleting Parts Of A Table

Sub RemovePartsOfTable()

Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects(“Table1″)

‘Remove 3rd Column
tbl.ListColumns(3).Delete

‘Remove 4th DataBody Row
tbl.ListRows(4).Delete

‘Remove Totals Row
tbl.TotalsRowRange.Delete

End Sub

Loop Thro

Komentarze są wyłączone.