今回はVBAでセルの罫線を設定する方法を解説します。
罫線の設定は少しわかりにくいところがあるので、誰でもわかるように徹底的に説明していきます!
また、本記事では罫線の名前を図をセットにして解説を行っていますので、罫線の名前(種類)がわからない人でも大丈夫です!
罫線の種類
Excelの書式設定を確認すると罫線は全13種類あることがわかります。
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-8.png?resize=527%2C556&ssl=1)
![うめ](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2020/02/梅屋ラボ-コピー.png?w=1256&ssl=1)
うめ
13種類の罫線を設定するコードの説明していきます!
罫線の一覧
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-9.png?resize=264%2C349&ssl=1)
番号を振っただけではイマイチわかりにくいので、設定した罫線とセットでまとめました。
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-24.png?resize=738%2C322&ssl=1)
No | 種類 | LineStyle | Weight |
❶ | 極細 | – | xlHairline |
❷ | 点線 | xlDot | – |
❸ | 二点鎖線 | xlDashDotDot | – |
❹ | 一点鎖線 | xlDashDot | – |
❺ | 破線 | xlDash | – |
❻ | 実線 | xlContinuous | – |
❼ | 二点鎖線(中) | xlDashDotDot | xlMedium |
❽ | 斜線 | xlSlantDashDot | – |
❾ | 一点鎖線(中) | xlDashDot | xlMedium |
❿ | 点線(中) | xlDash | xlMedium |
⓫ | 中線 | – | xlMedium |
⓬ | 太線 | – | xlThick |
⓭ | 二重線 | – | xlDouble |
罫線のコード
本記事では設定した罫線を見やすくするため、Excelの「目盛線」を消した状態での設定しています。
極細
1 2 3 4 5 6 7 8 |
Sub sample1() '極細 With Range("C3").Borders .Weight = xlHairline End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-11.png?resize=366%2C151&ssl=1)
点線
1 2 3 4 5 6 7 8 |
Sub sample2() '点線 With Range("C3").Borders .LineStyle = xlDot End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-12.png?resize=370%2C155&ssl=1)
二点鎖線
1 2 3 4 5 6 7 8 |
Sub sample3() '二点鎖線 With Range("C3").Borders .LineStyle = xlDashDotDot End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-13.png?resize=366%2C153&ssl=1)
一点鎖線
1 2 3 4 5 6 7 8 |
Sub sample4() '一点鎖線 With Range("C3").Borders .LineStyle = xlDashDot End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-14.png?resize=368%2C151&ssl=1)
破線
1 2 3 4 5 6 7 8 |
Sub sample5() '破線 With Range("C3").Borders .LineStyle = xlDash End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-15.png?resize=370%2C151&ssl=1)
実線
1 2 3 4 5 6 7 8 |
Sub sample6() '実線 With Range("C3").Borders .LineStyle = xlContinuous End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-16.png?resize=365%2C148&ssl=1)
二点鎖線(中)
1 2 3 4 5 6 7 8 9 |
Sub sample7() '二点鎖線(中) With Range("C3").Borders .LineStyle = xlDashDotDot .Weight = xlMedium End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-17.png?resize=369%2C156&ssl=1)
斜線
1 2 3 4 5 6 7 8 |
Sub sample8() '斜線 With Range("C3").Borders .LineStyle = xlSlantDashDot End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-18.png?resize=366%2C156&ssl=1)
一点鎖線(中)
1 2 3 4 5 6 7 8 9 |
Sub sample9() '一点鎖線(中) With Range("C3").Borders .LineStyle = xlDashDot .Weight = xlMedium End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-19.png?resize=367%2C157&ssl=1)
点線(中)
1 2 3 4 5 6 7 8 9 |
Sub sample10() '点線(中) With Range("C3").Borders .LineStyle = xlDash .Weight = xlMedium End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-20.png?resize=366%2C150&ssl=1)
中線
1 2 3 4 5 6 7 8 |
Sub sample11() '中線 With Range("C3").Borders .Weight = xlMedium End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-21.png?resize=369%2C154&ssl=1)
太線
1 2 3 4 5 6 7 8 |
Sub sample12() '太線 With Range("C3").Borders .Weight = xlThick End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-22.png?resize=369%2C152&ssl=1)
二重線
1 2 3 4 5 6 7 8 |
Sub sample13() '二重線 With Range("C3").Borders .LineStyle = xlDouble End With End Sub |
![](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2021/09/image-23.png?resize=367%2C160&ssl=1)
まとめ
今回はExcelの書式設定に表示されている13種類の罫線を設定するためのコードを紹介しました。
![うめ](https://i0.wp.com/umeyalabo.com/wp-content/uploads/2020/02/梅屋ラボ-コピー.png?w=1256&ssl=1)
うめ
全てのコードを覚える必要はありません。
罫線は「LineStyle」と「Weight」の組み合わせで制御する。と覚えておきましょう!