罫線 下線を引く

質問

Ｅｘｃｅｌ　あるマクロを実行すると
【現在存在するカーソルのあるセルから左へそのセル自身もふくめて5個分のセル
の下線を引くという】ことをしたい。マクロ記述はどうすればいいでしょうか。

回答No.1

marbin · ベストアンサー

「現在存在するカーソルのあるセル」
↓
アクティブセルといいます。

アクティブセルを含め右５セルなら、
ActiveCell.Resize(,5)
ですが、左５セルなら、
一度OffsetしてからResize、としたらいいと思います。
一番左のセルから一番右のセルをRangeオブジェクトに
セットする、というのも出来ますけど。

補足

アクティブセルを含め右５セルなら、
ActiveCell.Resize(,5)
これをどのようにいれればいいかがわかりません。よろしく

Sub keisen_hiku_Macro2()

Range(" : ").Select
'Selection.Borders(xlDiagonalDown).LineStyle = xlNone
' Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

End Sub

回答No.2

imogasi

まずマクロの記録をとってみること。それさえやって見ちゃ形跡無く、丸投げ的質問をするのはだめです。
当然ある特定の条件で操作し、記録を採るのだから、別の場合では、役立たない。一般化するには、そのどこをどう変えるか考えて、わからなければそれに絞って質問すること。多分ActiveCellで解決するかなと思う。
それにこのマクロの発動させるキッカケを受け取る仕組みを何も言ってないが、そちらも初心者には大切。ボタンを作ってマクロを登録するとかいろいろあり、そちらは勉強は済んだのかな。

お礼

ActiveCellを使いおかげで解決しました。どうもありがとうございました。