動画で楽にパソコンが身につく方法はこちら>>
セルに罫線を引くにははじめにRangeオブジェクトにBordersプロパティを指定してBorderオブジェクトを取得します。
その際に罫線を引く位置を指定します。
[書式]
オブジェクト. Borders（index）
オブジェクト： Rangeオブジェクト
引数：index 罫線の位置 ※無指定の場合は上下左右
罫線の位置
|
設定値 |
内容 |
|
無指定 |
上下左右 |
|
xlEdgeTop |
上 |
|
xlEdgeBottom |
下 |
|
xlEdgeLeft |
左 |
|
xlEdgeRight |
右 |
|
xlInsideHorizontal |
内側（横線） |
|
xlInsideVertical |
内側（縦線） |
|
xlDiagonalUp |
左下から右上への斜め線 |
|
xlDiagonalDown |
左上から右下への斜め線 |
次にBorderオブジェクトにLineStyleプロパティを指定して線の種類を指定します。
[書式]
オブジェクト. LineStyle
オブジェクト：Borderオブジェクト、Bordersコレクション
線の種類
|
設定値 |
内容 |
|
xlContinuous |
実線 |
|
xlDash |
破線 |
|
xlDashDot |
一点鎖線 |
|
xlDashDotDot |
二点鎖線 |
|
xlDot |
点線 |
|
xlDouble |
二本線 |
|
xlSlantDashDot |
斜破線 |
|
xlLineStyleNone |
線なし |
[例]
Range(“A2”).Borders.LineStyle = xlDot
A2セルに対してBordersプロパティを指定してBorderオブジェクトを取得しています。
この際にindexは無指定のため、罫線は上下左右に引かれます。
そしてLineStyleプロパティでxlDot、点線を指定しています。
[サンプルC042]
Sub C042_043()
Worksheets(“C043”).Select
Range(“A2”).Borders.LineStyle = xlDot
End Sub
サンプルを実行するとA2セルの上下左右に点線の罫線が引かれます。
動画で楽にパソコンが身につく方法はこちら>>