VBA的TableStyle

Question

我試圖改變默認的表格樣式到TableStyleLight9但我的代碼不會接受它。你可以請教我怎麼做？這就是我如何設置表格的方式....你也會知道爲什麼這個方法將我的下拉菜單放在表格範圍之外嗎？

謝謝你。

FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data" 

Answer 1

是您的宏錄製壞了嗎？這是瞭解如何編寫代碼的好資源。這個工作對我來說：因爲他們需要

Sub test() 
FinalRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(1, 1), Cells(FinalRow, LastColumn)), , xlYes).Name = "Data" 
ActiveSheet.ListObjects("Data").TableStyle = "TableStyleLight9" 

End Sub 

從表頭中的下拉菜單中佔據儘可能多的空間。如果表格小於下拉菜單，則會延伸到表格之外。