Sub パーセント表示に変更する() Range("A1").Style = "Percent" End Sub
Sub パーセント表示に変更する_下二桁() Range("A1").Style = "Percent" Range("A1").NumberFormatLocal = "0.00%" End Sub