外枠罫線の設定(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ソース実行前
実行後
関連記事
-
-
列幅を取得・設定・する(ColumnWidth プロパティ)
ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …
-
-
オートフィルタ(日付による抽出)AutoFilter メソッド
日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …
-
-
ハイパーリンク(Hyperlink オブジェクト)
Hyperlink オブジェクト Hyperlinks コレクション のメンバー …
-
-
VBA で、ワークシート関数を使用(WorksheetFunction プロパティ)
VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …
-
-
セル・セル範囲を切り取る(Cut メソッド)
Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …
-
-
数式を非表示にする(FormulaHidden プロパティ)
FormulaHidden プロパティ 数式が入力されたセルを選択するとその数式 …
-
-
引数に指定したセル範囲の共通のセル範囲を取得(Intersect メソッド)
Intersect メソッド Intersect メソッドは、引数に指定したセル …
-
-
コメントの設定(Comments, Comment, AddComment, ClearComment)
コメントの設定 セルにコメントを新規に挿入するには、AddComment メソッ …
-
-
使用中のセル範囲を取得(UsedRange プロパティ)
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
並べ替え(Sort メソッド)
Sort メソッド 任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …