[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『最終行と最終列を求める』(QPちゃん)
'罫線を引く
Dim row As Long Dim col As Long row = Cells(Rows.Count, 1).End(xlUp).row col = Cells(row, Columns.Count).End(xlToLeft).Column With Range(Cells(5, 1), Cells(row, col)) .Borders.LineStyle = True End With
こんにちわ、
最終行と最終列を求めれません。
上記のマクロのどこが間違っていますか?
また、美しく最終行と最終列をどう書きますか?
宜しくおねがいします。
< 使用 Excel:Excel2007、使用 OS:Windows7 >
変数名に「row」は感心しません。というか、エラーになりませんか?
また、シートの指定がないのも気になります。
(カリーニン) 2016/06/22(水) 12:58
こんにちわ。
エラーになりません。
例えば、罫線をひきたい部分がA5からAE53までの場合、
上記のマクロだとA5からE53までしか罫線が引かれません。
なぜでしょうか?
(QPちゃん) 2016/06/22(水) 13:06
> col = Cells(row, Columns.Count).End(xlToLeft).Column row行目の末尾を探していますが、そこに必ずデータは存在するでしょうか? 1行目とか、必ずタイトル文字のある行の末尾を探すべきでしょうね。
でもって、表が連続しているならば、私なら罫線を引くなら、こうかな。
Range("A1").CurrentRegion.Borders.LineStyle = True (???) 2016/06/22(水) 13:07
こんにちわ。
row行目の末尾にデータは入っています。
ですが、(???)さまのマクロを使わせていただきます。
一発で罫線が引けました。
ありがとうございました!!
(QPちゃん) 2016/06/22(水) 14:29
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.