マクロで罫線をひく

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

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

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

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

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

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2005/10/14 16:53

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様

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

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

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

お礼日時：2005/10/14 17:04

No.1 回答者： fly_moon 回答日時： 2005/10/14 16:06

新しいマクロの記録をして、LineStyleを確認してみてください。

exApp.Selection.Borders.LineStyle = 1
の1をそのLineStyleに変えれば、お望みの罫線が引けると思います。

この回答への補足

fly_moon様

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

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

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

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

補足日時：2005/10/14 16:36