我有一個宏，它獲取一個表名，然后設定它的樣式。但是它一直在失敗
Range("Table" & ActiveSheet.Name & "[#All]").Select
如何根據變數名選擇所有表？該表稱為 Table22（因為作業表選項卡稱為 22）
完整代碼
With Range("A1")
.Parent.ListObjects.Add(xlSrcRange, Range(.End(xlDown), .End(xlToRight)), , xlYes).Name = "Table" & ActiveSheet.Name
Range("Table" & ActiveSheet.Name & "[#All]").Select
ActiveSheet.ListObjects("Table" & ActiveSheet.Name).TableStyle = "TableStyleDark1"
uj5u.com熱心網友回復：
- 避免使用
Select - 使用
ListObject變數。 ListObjects.Add有一個可選的TableStyleName引數。
With ActiveSheet
Dim tbl As ListObject
Set tbl = .ListObjects.Add(SourceType:=xlSrcRange, _
Source:=.Range("A1").CurrentRegion, _
XlListObjectHasHeaders:=xlYes, _
TableStyleName:="TableStyleDark1")
tbl.Name = "Table" & .Name
End With
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/422132.html
標籤：