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

避免选择，这是不可靠和不必要的。 “工作表”也应该有一本工作簿。

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

1 个答案: