VBA如何在Excel中为表提供自定义表格样式

Question

简单的问题，但我似乎无法在任何地方找到答案，所以我将它放在这里：如何为表格分配表格样式，但不将其映射到默认表格样式，即制作自定义样式元素？我看过它可能涉及.TableStyleElements，但当我尝试添加ActiveSheet.ListObjects("Table1").TableStyleElements(xlHeaderRow).Font.Color = RGB(119, 184, 0)时，它会中断。我的语法错了吗？

Answer 1

我相信你需要先声明表格样式，例如：

Dim oTblStyle As TableStyle

Set oTblStyle = ActiveSheet.ListObjects("Table1").TableStyle

oTblStyle.TableStyleElements.Item(xlHeaderRow).Font.Color = RGB(119, 184, 0)