外枠罫線の設定（BorderAround メソッド）
2015/08/26
外枠罫線の設定
罫線の設定には、Borders プロパティを使用しますが、範囲内のすべての罫線に対して設定する必要があるのでコード量が多くなってしまします。
選択したセル範囲の外枠罫線のみを引く場合は、BorderAround メソッドが便利です。
BorderAround メソッド
【書式】
object.BorderAround [ ( LineStyle, Weight, ColorIndex, Color, ThemeColor ) ]
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- LineStyle ・・・ 罫線の種類を表す定数（XlLineStyle 列挙型）または、その値を指定します。
定数 値 内容 xlContinuous 1 実線 xlDashDot 4 一点鎖線 xlDashDotDot 5 ニ点鎖線 xlSlantDashDot 13 斜破線 xlDash -4115 破線 xlDot -4118 点線 xlDouble -4119 2 本線 xlLineStyleNone -4142 線なし - Weight ・・・ 罫線の太さを表す定数（XlBorderWeight 列挙）または、その値を指定します。
定数 値 内容 xlMedium -4138 普通 xlHairline 1 細線 (最も細い罫線) xlThin 2 極細 xlThick 4 太線 (最も太い罫線) - ColorIndex ・・・ カラーパレットの色を表す 1 ～ 56 のパレット番号を指定します。
⇒ 色の設定：ColorIndex プロパティ・Colors プロパティ - Color ・・・ 色を表す RGB 値を指定します。
⇒ 色の設定：Color プロパティ・RGB 関数 - ThemeColor ・・・ テーマカラーの基本色を表すMsoThemeColorSchemeindex 列挙型の定数または値（1 ～ 12）を指定します。
⇒ 色の設定：ThemeColor プロパティ・TintAndShade プロパティ
BorderAround メソッド 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_BorderAround() 'すでに設定されている罫線の外枠のみ変更 Range("B2:F8").BorderAround Weight:=xlThick, LineStyle:=xlDouble, Color:=RGB(0, 0, 255) '指定した範囲の外枠罫線 Range("B15:D20").BorderAround 1, 4, 18 End Sub |
実行結果
サンプルVBAソース実行前
実行後
関連記事
-
-
指定した条件に一致するセルを取得（SpecialCells メソッド）
SpecialCells メソッド SpecialCells メソッドは、指定し …
-
-
数式を設定・取得する（Formula プロパティ・FormulaR1C1 プロパティ）
Formula プロパティ（FormulaR1C1 プロパティ） Formula …
-
-
罫線の設定（Borders プロパティ）
罫線の設定 罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …
-
-
入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ
IMEMode プロパティ Validation.IMEMode プロパティ を …
-
-
入力規則（入力時メッセージの設定）Validation オブジェクト
入力規則の入力時メッセージを表示する Validation.ShowInput …
-
-
入力規則（リストで制限する）Validation.Add メソッド
ドロップダウンリストで入力値を制限 Validation.Add メソッド（また …
-
-
ワイルドカードを使って検索（Find メソッド）
Find メソッド 指定したセル範囲内の特定の情報を含むセルを検索します。 【書 …
-
-
入力規則（他セルや数式を利用して許容値を設定）Validation オブジェクト
他のセルや数式を利用して許容値を設定する 入力規則（その5） での設定を、マクロ …
-
-
セルを参照する（Range プロパティ）
Range プロパティ 任意のセルにアクセスするには Range プロパティを使 …
-
-
セルの値を置換（Replace メソッド）
Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …