[[20160622123948]] 『最終行と最終列を求める』(QPちゃん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『最終行と最終列を求める』(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


rowという変数名は予約語と被るので好ましくない、というのは同感。バグの元ですよ。

 >    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.