罫線を簡単に引く（Borders,BorderAround）
エクセルでは、罫線を引く事が多いです。
この罫線は、以外に処理時間もかかりますし、やり方によっては、VBAの行数も多くなります。
とにかく、簡単に罫線を引く方法です。
以下の表を作成する場合です。
罫線を引く順番等、いろいろありますが、とにかく短いコードにしてみます。
Sub sample1()
Range("B2:F11").Borders().Weight = xlHairline
Range("B2:F11").BorderAround Weight:=xlMedium
Range("B3:F3").Borders(xlEdgeTop).Weight =
xlThin
Range("C2:C11").Borders(xlEdgeLeft).Weight = xlThin
End
Sub
Range("B2:F11").Borders().Weight =
xlHairline
極細線で、格子を作成
Range("B2:F11").BorderAround
Weight:=xlMedium
外枠を、中太線にします。
このBorderAround は、メソッドですので、他とは記述方法が違いますので、注意して下さい。
Range("B3:F3").Borders(xlEdgeTop).Weight =
xlThin
上だけ、細線にします。
Range("C2:C11").Borders(xlEdgeLeft).Weight =
xlThin
左だけ、細線にします。
罫線を引く順序は、どの順番でも問題はありません。
なるべく、セル範囲を、まとめて指定するように心がけて下さい。
同じテーマ「マクロVBAサンプル集」の記事
マクロVBAの開始時と終了時に指定しておくべきApplicationのプロパティ
新着記事NEW ・・・新着記事一覧を見る
AI時代におけるRPAとVBAの位置づけ - 補完技術としての役割と未来 -｜生成AI活用研究(2025-05-12)
スマートExcel｜AI×Excel：AIと進化するExcelの新常識｜生成AI活用研究(2025-05-11)
VBA開発の現場で生成AIはどう使う？ そのメリットと潜むリスク｜生成AI活用研究(2025-05-11)
CursorでVBAを直接?編集・実行できる環境構築について｜生成AI活用研究(2025-05-10)
Geminiと100本ノック 17本目：重複削除（ユニーク化）｜生成AI活用研究（5月10日）
Geminiと100本ノック 16本目：無駄な改行を削除｜生成AI活用研究（5月6日）
AIがあればVBAはできる：セルに絵文字を入れる｜生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目：シートの並べ替え｜生成AI活用研究（5月6日）
Geminiと100本ノック 14本目：社外秘シート削除｜生成AI活用研究（5月4日）
Geminiと100本ノック 13本目：文字列の部分フォント｜生成AI活用研究（5月4日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBAサンプル集
- 罫線を簡単に引く（Borders,BorderAround）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。