第35回.セルの書式（罫線,Border）
マクロで罫線を引く事はた度々あります、
Sub
Macro1()
Range("A1:B5").Select
Selection.Borders(xlDiagonalDown).LineStyle
= xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With
Selection.Borders(xlEdgeLeft)
.LineStyle =
xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade =
0
.Weight = xlThin
End With
With
Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex
= xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End
With
With Selection.Borders(xlEdgeBottom)
.LineStyle =
xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade =
0
.Weight = xlThin
End With
With
Selection.Borders(xlEdgeRight)
.LineStyle =
xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade =
0
.Weight = xlThin
End With
With
Selection.Borders(xlInsideVertical)
.LineStyle =
xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade =
0
.Weight = xlThin
End With
With
Selection.Borders(xlInsideHorizontal)
.LineStyle =
xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade =
0
.Weight = xlThin
End With
End Sub
うんざりするほど長いマクロです。
Sub Macro2()
Range("A1:B5").Borders.LineStyle = xlContinuous
End
Sub
マクロを多少なりとも扱うなら、
（コレクションについての詳細は後々）
| xlDiagonalDown | 範囲内の各セルの左上隅から右下への罫線 |
| xlDiagonalUp | 範囲内の各セルの左下隅から右上への罫線 |
| xlEdgeBottom | 範囲内の下側の罫線 |
| xlEdgeLeft | 範囲内の左端の罫線 |
| xlEdgeRight | 範囲内の右端の罫線 |
| xlEdgeTop | 範囲内の上側の罫線 |
| xlInsideHorizontal | 範囲外の罫線を除く、範囲内のすべてのセルの水平罫線 |
| xlInsideVertical | 範囲外の罫線を除く、範囲内のすべてのセルの垂直罫線 |
Range.Borders.プロパティ
Bordersには、以下のプロパティがあります。
| プロパティ | プロパティの説明 | プロパティの設定値 | 設定値の説明 |
| LineStyle | 罫線の種類 | xlNone または xlLineStyleNone | なし |
| xlContinuous | 実線 | ||
| xlDash | 破線 | ||
| xlDashDot | 一点鎖線 | ||
| xlDashDotDot | ニ点鎖線 | ||
| xlDot | 点線 | ||
| xlDouble | 2 本線 | ||
| xlLineStyleNone | 線なし | ||
| xlSlantDashDot | 斜破線 | ||
| Color | 罫線の色 | RGB値を表す長整数 | |
| ColorIndex | 罫線の色 | 現在のカラー パレットのインデックス | |
| Weight | 罫線の太さ | xlHairline | 細線 (最も細い罫線) |
| xlMedium | 普通 | ||
| xlThick | 太線 (最も太い罫線) | ||
| xlThin | 極細 | ||
| TintAndShade | 罫線の色色明るく、または暗く | 2007以降 |
プロパティの設定値には、組み合わせの制限があります。
Range("セル範囲").Borders(xlEdgeLeft).LineStyle =
xlContinuous
Range("セル範囲").Borders(xlEdgeRight).LineStyle =
xlContinuous
Range("セル範囲").Borders(xlEdgeLeft).Weight =
xlThick
Range("セル範囲").Borders(xlEdgeRight).Weight =
xlThick
上記では、セル範囲の左右に、太い実践を引いています。
Range("セル範囲").BorderAround LineStyle:=xlContinuous, Weight:=xlMedium,
Color:=vbRed
上記では、セル範囲の外枠に、実線、太さ普通、赤色の罫線を引いています。
VBAコードの行数が多いと、結果として、マクロの動作が遅くなってしまいます。
効率的な罫線の引き方をするように工夫してください。
同じテーマ「マクロVBA入門」の記事
セルの書式（配置,Alignment）
セルの書式（フォント,Font）
セルの書式（塗りつぶし,Interior）
セルの書式（罫線,Border）
総合練習問題4
ブック・シートの指定
セルに計算式を設定（Formula）
セルのクリア（Clear,ClearContents）
セルのコピー・カット&ペースト（Copy,Cut,Paste）
セルのコピー&値の貼り付け（PasteSpecial）
セルをコピーするとは
新着記事NEW ・・・新着記事一覧を見る
IfステートメントとIIF関数とMax関数の速度比較｜VBA技術解説（6月23日）
Withステートメントの実行速度と注意点｜VBA技術解説（6月6日）
VBA+SeleniumBasicで検索順位チェッカー（改）｜VBA技術解説（6月2日）
マクロでShift_JIS文字コードか判定する｜VBA技術解説（6月1日）
Shift_JISのテキストファイルをUTF-8に一括変換｜VBAサンプル集（5月31日）
「VBAによる解析シリーズその2 カッコ」をやってみた｜エクセル（5月21日）
VBA+SeleniumBasicで検索順位チェッカー作成｜VBA技術解説（5月18日）
テーブル操作のVBAコード（ListObject）｜VBA入門（5月12日）
テーブル操作の概要（ListObject）｜VBA入門（5月12日）
VBAのスクレイピングを簡単楽にしてくれるSelenium｜VBA技術解説（5月6日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.ひらがな⇔カタカナの変換｜エクセル基本操作
7.繰り返し処理（For Next)｜ExcelマクロVBA入門
8.マクロって何？VBAって何？｜ExcelマクロVBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ExcelマクロVBAの基礎を学習する方法｜エクセルの神髄
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。