VBA Excel 循環遍歷特定表以進行格式化

Question

我在工作表上有 77 個表，我只想格式化特定的表。

使用特定命名表執行循環時，我需要如何格式化循環？

例如，我想更改表 2、表 4、表 5 和表 6 中的第二列（本例的縮短列表）。

到目前為止，我有：

For  Table2, Table4, Table 5 In ws.ListObjects

出錯時繼續下一步

ws.ListObjects("Table").ListColumns(2).DataBodyRange.Style = "Comma"
ws.ListObjects("Table").ListColumns(2).DataBodyRange.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

Next

On Error GoTo 0

關於如何解決這個問題的任何建議？

Answer 1

Sub test()
Dim AllTableNames As String
Dim TableNames As Variant
Dim ws As Worksheet
Dim i As Long

Set ws = ActiveSheet
AllTableNames = "Table2,Table4,Table5,Table6"
TableNames = Split(AllTableNames, ",")

For i = LBound(TableNames) To UBound(TableNames)
    ws.ListObjects(TableNames(i)).ListColumns(2).DataBodyRange.Style = "Comma"
    ws.ListObjects(TableNames(i)).ListColumns(2).DataBodyRange.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"
Next i
End Sub