Attribute VB_Name = "testcellformat5"
Sub ƒeƒXƒg()
    
    Range("A1:A4").Value = 123456
    Range("A1").NumberFormatLocal = "$ #,##0"
    Range("A2").NumberFormatLocal = "\ #,##0"
    Range("A3").NumberFormatLocal = "#,##0""‰~"""
    Range("A4").NumberFormatLocal = "#,##0""en"""
    
End Sub