範囲指定してセルに線を引く
うさこちゃん
セルの範囲を指定して線を引く方法です。
以下の例ではA2～J10に線を引きます。
範囲指定は以下で記載しても同様です。
With .Range(.Cells(2, 1), .Cells(10, 10)).Borders
👉
With .Range(“A2:J10”).Borders
Dim ObjThisSh As Object
Set ObjThisSh = ThisWorkbook.Sheets("Sheet1")
With ObjThisSh
With .Range(.Cells(2, 1), .Cells(10, 10)).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.Color = vbRed
End With
End With
LineStyle
| 名前 | 値 | 説明 |
|---|---|---|
| xlContinuous | 1 | 実線 |
| xlDash | -4115 | 破線 |
| xlDashDot | 4 | 一点鎖線 |
| xlDashDotDot | 5 | ニ点鎖線 |
| xlDot | -4118 | 点線 |
| xlDouble | -4119 | 2 本線 |
| xlLineStyleNone | -4142 | 線なし |
| xlSlantDashDot | 13 | 斜破線 |
Weight
| 名前 | 値 | 説明 |
|---|---|---|
| xlHairline | 1 | 細線 (最も細い罫線) |
| xlMedium | -4138 | 普通 |
| xlThick | 4 | 太線 (最も太い罫線) |
| xlThin | 2 | 極細 |
Color
| 定数 | 値 | 説明 |
|---|---|---|
| vbBlack | 0x0 | 黒 |
| vbRed | 0xFF | 赤 |
| vbGreen | 0xFF00 | 緑 |
| vbYellow | 0xFFFF | 黄 |
| vbBlue | 0xFF0000 | 青 |
| vbMagenta | 0xFF00FF | 紫 |
| vbCyan | 0xFFFF00 | シアン |
| vbWhite | 0xFFFFFF | 白 |
免責事項
本記事のサンプルプログラムは動作・結果を保証するものではありません。 利用により発生したいかなるトラブル・損害についても、当方は責任を負いません。
