Attribute VB_Name = "testcellformat7"
Sub ƒeƒXƒg()
    
    Range("A1:A4").Value = "2006/09/08"
    Range("A1").NumberFormatLocal = "yyyy"
    Range("A2").NumberFormatLocal = "yy"
    Range("A3").NumberFormatLocal = "gggee"
        
End Sub