Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67646 / 76782

←次へ　｜　前へ→


	【13690】Re:最下行を調べるための

ちゃっぴ

- 04/5/11(火) 12:24 -


	引用なし

	パスワード

▼みーちゃんさん：
>ちなみに、罫線で囲ってる範囲があるとして、
>その範囲のなかのB列の最下行をとりたい場合はどうしたらよいのでしょう。
>しかも、そこには空白だとしたら。

For Each文でセル範囲をループして
Borders(XlBottom).LineStyleプロパティがxlLineStyleNoneでないセルを
検索すればよいのでは

以下サンプル
Dim rngTarget as Range

For Each rngTarget In Range("B1:B65536")
　　With rngTarget
　　　　If .Borders(XlBottom).LineStyle <> xlLineStyleNone Then
　　　　　　MsgBox .Row
　　　　End If
　　End With
Next rngTarget

これだとセルの下端に罫線が設定されているセルをB1から検索して、
最初に引っかかった行を表示します。

下から検索する場合には上記のループ文をFor文に置き換えてSTEP -1で実行してください。

また、"UsedRange"プロパティを使用する方法もあります。

0 hits

▼

【13662】最下行を調べるための みーちゃん 04/5/10(月) 19:41