Sub フォントに会計用二重下線を引く_二重アンダーライン_設定する() Range("A1").Font.Underline = xlUnderlineStyleDoubleAccounting End Sub