EXCEL マクロ もし、最終行が１００００件を超えたなら。。

質問

こんにちは。
CurrentRegion.Rows.Count
などを使って、
『もし、最終行が１００００件を超えたなら、メッセージ”データが１万件を超えました』と表示させるには
どうしたらよいでしょうか？

回答No.1

Wendy02 · ベストアンサー

こんにちは。

通常は、以下のように使います。
'-----------------------------------
Sub test1()
dim r As Long
r = Range("A65536").End(xlDown).Row
If r > 10000 Then
　　MsgBox "データが1万件を超えました。"
End If
End Sub

'しかし、CurrentRegion を使う場合は、例えば、このような方法を取ります。
'-----------------------------------
Sub test2()
Dim rng As Range, r As Long
Set rng = Range("A1").CurrentRegion
r = rng(rng.Cells.Count).Row
If r > 10000 Then
　　MsgBox "データが1万件を超えました。"
End If
End Sub

あまり、ひとつの方法にこだわらないほうがよいですね。

お礼

こんばんは。
ありがとうございます。
早速、使わせていただきました。

回答No.4

imogasi

●＃２です。CurrentRegion.Rows.Countなんてのを見たから＃２のようなのを
あげましたが、この手のＶＢＡは、動的でない。
入力した機会に走らない。
超えたときに、このルーチンを走らす保証がない。
●ＳｅｌｅｃｔｉｏｎＣｈａｎｇｅイベントブロシージュアーで設定してもできそうだが、平凡。
●別に思いついたのが、データー入力規則で
Ａ１：Ａ１００００を範囲指定。そして
データ－入力規則ー（入力値の設定）ユーザー設定ー（数式）
=COUNTA($A$10001:$A$65536)=0
（エラーメセージに適当なものを入れないと、何のエラーかわからないので注意。）
とする。＄がいるらしい、ＯＫ分の＝０を設定するなど試行錯誤しました。
ＶＢＡにするなら、これをマクロの記録をとって使えばどうですか。

お礼

ありがとうございます。
ちょっと...むずかしそうですが、チャレンジしてみます。

回答No.3

Wendy02

#1 です。
間違えました。
Range("A1").End(xlDown).Row

でした。

回答No.2

imogasi

私は
d = Range("A65536").End(xlUp).Row
If d > 10000 Then
とします。＃１のご回答とＵｐとＤｏｗｎの違いです。