罫線を設定する VBA マクロ 格子

表の設定などで必要になってくる罫線の設定

 

わざわざマクロの記録をして罫線を設定して、

モジュールから登録されたマクロを確認して、、

やたら長ったらしいコードから必要なコードをみつけて。。。

なんてめんどくさい!って思いますよね。

 

 

そんな時には

Borders コレクション の Linestyle プロパティ

を使用しましょう♪

種類は下記の通りです。

名前 説明
xlContinuous 1 実線
xlDash -4115 破線
xlDashDot 4 一点鎖線
xlDashDotDot 5 ニ点鎖線
xlDot -4118 点線
xlDouble -4119 2 本線
xlLineStyleNone -4142 線なし
xlSlantDashDot 13 斜破線

= True にしても格子罫線を引けます。

 

格子罫線を外す場合は

 

= False

 

にすれば外せます。

Boldersオブジェクトの引数には

xlBordersIndex クラスの

xlDiagonalDown  左上隅から右下への罫線

xlDiagonalUp  左下隅から右上への罫線

xlEdgeBottom  下側の罫線

xlEdgeLeft  左端の罫線

xlEdgeRight  右端の罫線

xlEdgeTop  上側の罫線

xlInsideHorizontal  範囲外の罫線を除く、範囲内のすべてのセルの水平罫線

xlInsideVertical 範囲外の罫線を除く、範囲内のすべてのセルの垂直罫線

 

で指定できます。

 

 

ではでは♪

コメント

タイトルとURLをコピーしました