更改工作簿所有工作表中列的日期格式

Question

我試圖將自定義日期格式更改為dd / mm / yyyy。 下面的代碼適用於當前工作表，但不適用於所有工作表。

Sub dateformat()

    Dim ws As Worksheet

   For Each ws In Worksheets
        Columns("E:E").Select
        Selection.NumberFormat = "dd/mm/yyyy;@"
        'MsgBox ws.Name
    Next ws

End Sub

由於工作簿有100多個工作表，因此很難手動在每列上運行宏。 關於如何使它起作用的任何想法？

Answer 1

這對我有用：

Sub dateformat()

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Columns("E:E").NumberFormat = "dd/mm/yyyy;@"
    Next ws
End Sub

避免選擇，這是不可靠和不必要的。 同樣，“工作表”應具有一個工作簿。