エクセルマクロVBA サンプルコード辞書
トップページ（目次）498.フォントに会計用下線を引く_アンダーライン_設定する
＜実行前後＞
→
Sub フォントに会計用下線を引く_アンダーライン_設定する()
Range("A1").Font.Underline = xlUnderlineStyleSingleAccounting
End SubSub フォントに会計用下線を引く_アンダーライン_設定する()
Range("A1").Font.Underline = xlUnderlineStyleSingleAccounting
End Sub