Range.BorderAroundメソッド[Excel]～車輪の再発明

車輪の再発明

Range.BorderAroundメソッド

前回の

akashi-keirin.hatenablog.com

に、 ぴぼったー さんからコメントをいただいた。曰く、

つ　borderaroundメソッド

なんと、外枠線を引くメソッドがあったのだった。

またしても車輪の再発明をしてしまったのだった。

使ってみた

気を取り直して、Range.BorderAroundメソッドを使ってみる。

リスト１　標準モジュール

Public Sub testBorderAround()
  Dim targetRange As Range
  Set targetRange = Selection
  Call targetRange.BorderAround(LineStyle:=xlContinuous, _
                                Weight:=xlMedium, _
                                ColorIndex:=xlColorIndexAutomatic)
End Sub

選択範囲の外枠に罫線を引く、というだけのコード。

別に

Selection.BorderAround

と書いても良いが、一旦

Set targetRange = Selection

このようにRange型変数に突っ込んでおくことで、

こんなふうにintellisenseが効くので楽。

実行結果

この状態で実行。

ほれ、この通り。簡単に外枠線が引けた。

おわりに

ぴぼったー さん、毎度ありがとうございました。

@akashi_keirin on Twitter