|
|
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2001/10/24 ユーザー名 : watanabe
'
'
Range("B2:D8").Select
Range("D8").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
〜 省略 〜
End Sub |
とりあえず『Macro2』はや〜めて
『罫線を引くぜ』って名前にして、コメントを削除しますよ。
まずはこんな感じになります。 |
Sub 罫線を引くぜ()
Range("B2:D8").Select
Range("D8").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
〜 省略 〜
End Sub |
[トップ][前へ][罫線マクロのコード][次へ]
|