Sub 下線の設定をするマクロ()
If ActiveSheet.ProtectContents = True Then MsgBox "シートに保護がかかっている" Exit Sub End If With Selection.Borders(xlInsideHorizontal) Select Case .LineStyle Case xlContinuous '下線のとき .LineStyle = xlDot '点線にする Case xlDot '点線のとき .LineStyle = xlDouble '二重線にする Case xlDouble '二重線のとき .LineStyle = xlLineStyleNone 'なしにする Case Else '4色どの色でもないセルのとき .LineStyle = xlContinuous '下線にする End With With Selection.Borders(xlEdgeBottom) Select Case .LineStyle Case xlContinuous '下線のとき .LineStyle = xlDot '点線にする Case xlDot '点線のとき .LineStyle = xlDouble '二重線にする Case xlDouble '二重線のとき .LineStyle = xlLineStyleNone 'なしにする Case Else '4色どの色でもないセルのとき .LineStyle = xlContinuous '下線にする End With
End Sub
上記のマクロに指摘をしてほしいです
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。