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


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

外枠(罫線)を引く方法

VBA入力画面
外枠を引くVBE画面

入力したコードです。

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マクロのサンプルファイル:フリーダウンロード








Copyright (C) excel.usefulhp.com All rights reserved.