изменить формат даты столбца на всех листах рабочей книги

Question

Я пытаюсь изменить пользовательский формат даты на дд / мм / гггг.Приведенный ниже код работает для текущей рабочей таблицы, но не будет работать для всех рабочих таблиц.

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

Избегайте выбора, это ненадежно и ненужно.Также «рабочие листы» должны иметь рабочую книгу.