表格列的vba应用格式答案

【问题标题】：vba applying format for table column表格列的vba应用格式
【发布时间】：2020-04-18 23:40:45
【问题描述】：

我正在尝试将货币格式应用于表中的特定列。我正在尝试 2 个选项：

Sheet1.ListObjects("MyTaqble").ListColumns("Balance").Style = "Currency"

还有：

Sheet1.ListObjects("MyTaqble").ListColumns("Balance").NumberFormat = _
    "_([$€-x-euro2] * #,##0.00_);_([$€-x-euro2] * (#,##0.00);_([$€-x-euro2] * ""-""??_);_(@_)"

对于这两种情况，我都会收到以下错误：对象不支持该属性或方法

将格式应用于表格列的正确方法是什么？

【问题讨论】：

标签： excel vba format listobject

【解决方案1】：

据我了解，你想做这样的事情

Sub FormatIt()
Dim v As ListColumn
    Set v = Sheet1.ListObjects("MyTaqble").ListColumns("Balance")
    v.Range.Style = "Currency"
End Sub

或

Sub FormatItA()
Dim v As ListColumn
    Set v = Sheet1.ListObjects("MyTaqble").ListColumns("Balance")
    v.Range.NumberFormat = _
    "_([$€-x-euro2] * #,##0.00_);_([$€-x-euro2] * (#,##0.00);_([$€-x-euro2] * ""-""??_);_(@_)"
End Sub

【讨论】：

【解决方案2】：

你已经接近了。您需要将样式（或数字格式）应用于ListColumns 对象的Range 属性。

所以：

Sheet1.ListObjects("Table1").ListColumns("Balance").Range.Style = "Currency"

【讨论】：