모든 통합 문서의 열의 날짜 형식을 변경하십시오.

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 

않도록 선택, 그것은 신뢰할 수없는 불필요한입니다. 또한 "워크 시트"에는 통합 문서가 있어야합니다.