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

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

No.4 回答者： imogasi 回答日時： 2005/07/30 18:39

●＃２です。

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

この回答へのお礼

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

お礼日時：2005/07/30 21:42

No.3 回答者： Wendy02 回答日時： 2005/07/30 16:34

#1 です。

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

でした。

No.2 回答者： imogasi 回答日時： 2005/07/30 13:53

私は

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

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2005/07/30 12:19

こんにちは。

通常は、以下のように使います。
'-----------------------------------
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

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

この回答へのお礼

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

お礼日時：2005/07/30 21:40