更新多個工作表的格式

Question

我不確定我是否寫了正確的代碼。 我有20張工作簿，我想格式欄B：B，其中工作表名稱像「數據*」。我寫了下面的代碼，它似乎沒有做任何事情，當我嘗試測試此代碼它不停止。循環不停止。

有人請指教我做錯了什麼或請糾正我的代碼。

Sub dtupdate() 

    For Each sheet In Application.ActiveWorkbook.Sheets 
     If sheet.Name Like "*Data*" Then 
      Range("B:B").Select 
      'Columns("B:B").Select 
      'st.Ranges("B2", ActiveSheet.Ranges("B2").End(xlDown)).Select 
      Selection.NumberFormat = "dd/mm/yyyy" 
     End If 
    Next 
End Sub 

Answer 1

試試這個：

Sub dtupdate() 
    Dim sh As Worksheet 

    For Each sh In ActiveWorkbook.Worksheets 
     If sh.Name Like "*Data*" Then _ 
      sh.Range("B:B").NumberFormat = "dd/mm/yyyy" 
    Next 
End Sub