excel vba 转换日期格式

Sub 一键转换日期格式()
For Each cell In Selection.CurrentRegion
If IsDate(cell.Value) Then
'1999年3月21日
cell.NumberFormatLocal = 'yyyy''年''m''月''d''日'';@'
'二○○五年七月九日
cell.NumberFormatLocal = '[DBNum1][$-804]yyyy''年''m''月''d''日'';@'
'27-Aug-09
cell.NumberFormatLocal = '[$-409]d-mmm-yy;@'
'1999年3月
cell.NumberFormatLocal = 'yyyy''年''m''月'';@'
'3月21日
cell.NumberFormatL