Attribute VB_Name = "testcellformat4"
Sub �e�X�g()
    
    Range("A1:A4").Value = 12.345
    Range("A1").NumberFormatLocal = "[��]0.000"
    Range("A2").NumberFormatLocal = "[��]0.000"
    Range("A3").NumberFormatLocal = "[��]0.000"
    Range("A4").NumberFormatLocal = "[��]0.000"
    
End Sub