Attribute VB_Name = "testcellformat11"
Sub テスト()
    
    Range("A1:A2").NumberFormatLocal = """結果：""@"
    Range("A1").Value = "合格"
    Range("A2").Value = "不合格"
            
End Sub