VBA Excel'i Belirli Tablolar Üzerinden Biçimlendirmek İçin Dön

Question

Çalışma sayfasında 77 tablo var ve yalnızca belirli tabloları biçimlendirmek istiyorum.

Belirli adlandırılmış tablolarla bir döngü gerçekleştirirken, döngüyü nasıl biçimlendirmem gerekiyor?

Örneğin, İkinci sütunu Tablo2, Tablo4, Tablo5 ve Tablo6'da (Bu örnek için Kısaltılmış Liste) değiştirmek istiyorum.

Şimdiye kadar var: On Error

For Table2, Table4, Table 5 In ws.ListObjects 

İleri

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

Next 

On Error GoTo 0 

bu olayı çözmek için konusunda herhangi bir öneriniz Devam?

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