範囲指定してセルに線を引く
うさこちゃん
セルの範囲を指定して線を引く方法です。
以下の例では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 | 白 |
免責事項
本記事のサンプルプログラムは、学習・参考用として掲載しているもので、動作や結果を保証するものではありません。 利用する場合は、ご自身の環境に合わせて確認しながらお使いください。万が一トラブルや損害が発生した場合でも、当サイトでは責任を負いかねます。
※本文中に記載の会社名・製品名・サービス名・ゲームタイトル名等は、各社の商標または登録商標であり、権利は各社に帰属します。
※サンプルはテストを行っていますが、すべての環境での動作を保証するものではありません。ご利用は自己責任でお願いいたします。
※本記事の仕様・価格・対応状況等は執筆時点で確認できた情報をもとに掲載しています。最新の情報はメーカー公式サイトをご確認ください。
※当サイトでは一部の記事において、アイキャッチ画像にAI生成を使用しています。