表格样式的 VBA

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

表头中的下拉菜单占用了所需的空间。如果表格小于下拉列表，它将扩展到表格之外。