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