|
|
さて次は
Range("D8").Activate
Activateって？ |
|
| Activateメソッド |
ここでは、指定したセルにカーソルを合わせるのだということでいいでしょう！ |
|
さて1行目で罫線を引く範囲を指定します。
だからその範囲に罫線を引けばいいので、その後にActivateメソッドでセルを指定してカーソルをセルに合わす必要はここではないんですね。
よって！
Range("D8").Activate
は却下！そうですね。削除してもいいでしょう。
そしたらこんな感じです。 |
Sub 罫線を引くぜ()
Range("B2:D8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
〜 省略 〜
End Sub |
[トップ][前へ][罫線マクロのコード][次へ]
|