如何使用公式格式化 Excel 表格？

【问题标题】：How to format an Excel table using formula?如何使用公式格式化 Excel 表格？
【发布时间】：2013-05-01 09:21:43
【问题描述】：

我正在使用 ColdFusion 从我的数据库中的信息动态创建 Excel 电子表格。

我发现我可以在单元格中插入 Excel 公式，它们会自动执行。我想知道是否可以通过公式或宏利用 Excel 的“Format as table”功能，或者有其他方法吗？

【问题讨论】：

表格格式是什么意思？
Excel 以交替颜色设置表格行的样式并添加配色方案。表格标题变为可点击状态，允许您按列升序和降序排序。
这可能是不可能的。如果是的话，上次你问的时候有人会告诉你怎么做的。
说实话，我不知道你在说什么。
我认为@DanBracuk 在这里指的是您的其他问题：stackoverflow.com/questions/16237648/…

【解决方案1】：

你可以通过如下宏来做到这一点

Private Sub Workbook_Open()

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$10"), , xlNo).Name = _
        "Table1"
    Range("Table1[#All]").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleLight9"

End Sub

这将使用默认为蓝色的 TableStyleLight9 样式将单元格 A1 到 D10 格式化为表格。

【讨论】：

如何在加载文件时执行此操作？还有办法指定“已包含的标题”
我更改了代码以在打开时显示它。如果您将它放在 vba 项目中 ThisWorkbook 下的子例程中，名称签名为 Private Sub Workbook_Open()，那么它将在工作簿打开时运行。这为我创建了带有标题的表格，但我认为这与您的表格样式有关
我还发现使用宏记录器office.microsoft.com/en-us/excel-help/… 是一个不错的起点，您可以轻松自定义生成的宏以满足您的需求。