外枠を引く：Excel（エクセル）マクロ

外枠を引くには、BorderAroundメソッドを使用します。線種はLineStyle、太さはWeightの引数で指定します。指定色はColorを使います。

■BorderAroundメソッド
構文 ： Range.BorderAround　LineStyle, Weight, {ColorIndex | Color | ThemeColor}

• LineStyle： 線種
• Weight： 線の太さ
• Color： 線色

■LineStyle

• xlContinuous： 実線
• xlDash： 破線
• xlDashDot： 一点鎖線
• xlDashDotDot： ニ点鎖線
• xlDot： 点線
• xlDouble： 2本線
• xlNone： 線なし
• xlSlantDashDot： 斜破線
  

■Weight

• xlHairline： 細線(最も細い線)
• xlThin： 極細
• xlMedium： 普通
• xlThick： 太線(最も太い線)
  

外枠（罫線）を引く方法

VBA入力画面


入力したコードです。

---

Sub 外枠を太線で引く()
Range(Cells(3, 2), Cells(5, 4)).BorderAround Weight:=xlThick, LineStyle:=xlContinuous
End Sub

Sub 外枠を赤色の点線で引く()
Range(Cells(3, 2), Cells(5, 4)).BorderAround Weight:=xlThick, LineStyle:=xlDot, Color:=RGB(255, 0, 0)
End Sub

プログラムの説明

---

Subプロシージャの宣言
Sub 外枠を太線で引く()
太線の実線を指定し、外枠を引く
Range(Cells(3, 2), Cells(5, 4)).BorderAround Weight:=xlThick, LineStyle:=xlContinuous
プロシージャの終了
End Sub

Subプロシージャの宣言
Sub 外枠を赤色の点線で引く()
赤色の点線を指定し、外枠を引く
Range(Cells(3, 2), Cells(5, 4)).BorderAround Weight:=xlThick, LineStyle:=xlDot, Color:=RGB(255, 0, 0)
プロシージャの終了
End Sub

マクロの実行画面

太線の外枠は「外枠を太線で引く」を実行します。
赤色の点線は「外枠を赤色の点線で引く」を実行します。


「外枠を太線で引く」マクロの実行結果
B3（北海道・東北）からD5（長野）の範囲に太線の外枠が引かれました。


「外枠を赤色の点線で引く」マクロの実行結果
B3（北海道・東北）からD5（長野）の範囲に赤色の点線で外枠が引かれました。


Excelマクロのサンプルファイル：フリーダウンロード

---

---