表格样式的 VBA

Question

我试图将默认表格样式更改为 TableStyleLight9，但我的代码不接受它。你能教我怎么做吗？这就是我设置我的 table 的方式......你也知道为什么这种方法将我的下拉菜单放在 table 的范围之外吗？

谢谢。

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

表格标题中的下拉菜单会占用所需的空间。如果表格小于下拉列表，它将延伸到表格之外。