Attribute VB_Name = "testcellformat8"
Sub テスト()
    
    Range("A1:A4").Value = "2006/09/08"
    Range("A1").NumberFormatLocal = "yyyy.mm.dd ddd"
    Range("A2").NumberFormatLocal = "gggee""年""mm""月""dd""日""(aaa)"
    Range("A3").NumberFormatLocal = "mmmm dd, yy"
        
End Sub