用於表格格式的VBA。

Question

我有sheet1，sheet2，sheet3，sheet4。

在4張表中，工作表1和工作表2在列表中有數據。而sheet3和sheet4也有相同的數據透視表。

我想要一個VBA，以這樣的方式，在我的工作簿中，如果它找到帶有列表的表格，那麼它會將其格式化爲表格。該表應該只適用於它具有價值的單元格。

我使用記錄宏來獲取代碼，但我很驚訝我應該如何爲我的所有表單實現它。 代碼，從錄製宏的一個表：

sub macro() 
    Cells.Select 
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$1:$1048576"), , xlYes).Name = _ 
     "Table2" 
    Cells.Select 
    ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleLight9" 
End Sub 

Answer 1

我想你的意思是像下面的代碼：

Option Explicit 

Sub macro() 

Dim ws As Worksheet 
Dim ListObj As ListObject 

For Each ws In ThisWorkbook.Worksheets 
    With ws 
     For Each ListObj In .ListObjects 
      ListObj.TableStyle = "TableStyleLight9" 
     Next ListObj 
    End With 
Next ws 

End Sub 

Answer 2

如果你的問題是，將範圍更改爲Listobject，請看下面的代碼。

Sub macro() 
    Dim Ws As Worksheet 
    Dim LstObj As ListObject 
    Dim rngDB As Range, n As Integer 

    For Each Ws In Worksheets 
     With Ws 
      Set rngDB = .Range("a1").CurrentRegion 
      For Each LstObj In Ws.ListObjects 
       LstObj.Unlist 
      Next 
      If WorksheetFunction.CountA(rngDB) > 0 Then 
       n = n + 1 
       Set LstObj = .ListObjects.Add(xlSrcRange, rngDB, , xlYes) 
       With LstObj 

        .Name = "Table" & n 
        .TableStyle = "TableStyleLight9" 
       End With 
      End If 
     End With 
    Next Ws 

End Sub