マクロで罫線をひく

質問

いつもお世話になっております。

下記コードで罫線を引こうとすると、
四つのセルにそれぞれ四角の罫線が引かれて
しまいます。

ex.Range(ex.Cells(1,1),ex.Cells(4,1)).Select
exApp.Selection.Borders.LineStyle = 1

実現したいのは、一度に四つのセルを一つの四角で
囲みたいのですが、方法がわかりません。

お手数ですが、お分かりのかたがおられましたら、
よろしくお願いいたします。

回答No.2

merlionXX · ベストアンサー

exAppというのが良くわからなかったので書き換えました。
こんな感じでは？

ex.Range(ex.Cells(1, 1), ex.Cells(4, 1)).Select
With Selection
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

お礼

merlionXX様

ご回答ありがとうございました。

上記のコードをそのまま、使わせてもらったのですが、
うまくいきました。

助かりました。
どうもありがとうございました。

回答No.1

fly_moon

新しいマクロの記録をして、LineStyleを確認してみてください。
exApp.Selection.Borders.LineStyle = 1
の1をそのLineStyleに変えれば、お望みの罫線が引けると思います。

補足

fly_moon様

ご返答ありがとうございました。
マクロの記録をおこない、linestyleをxlContinuousに
してみたのですが、やはりセルのそれぞれが四角で囲まれ
てしまいます。

ちなみに下記コードも試してみたのですが、結果は
同じでした。

ex.Range(Cells(1,1),Cells(4,1)).Borders.LineStyle =
xlContinuous

ともしてみたのですが、やはり結果は同じでした。