Attribute VB_Name = "testcellformat6"
Sub �e�X�g()
    
    Range("A1:A4").Value = -123456
    Range("A1").NumberFormatLocal = "#,##0;[��]#,##0"
    Range("A2").NumberFormatLocal = "#,##0;(#,##0)"
    Range("A3").NumberFormatLocal = "#,##0;""��"" #,##0"
    
    Range("B1:B3").NumberFormatLocal = "#,##0;(#,##0);""ZERO"""
    Range("B1").Value = 1234
    Range("B2").Value = -1234
    Range("B3").Value = 0
    
End Sub