エクセルシート内のある数値以上の最初のセルを検索したい

エクセルのシート内で、例えば７以上の数字が入力されているシート内最初のセルを検索したいのですが、どのようにすれば良いでしょうか？よろしくお願い致します。

No.3 ベストアンサー 回答者： nattocurry 回答日時： 2009/01/13 09:23

#1です。

一例として・・・

範囲選択した状態で、以下のマクロを実行すれば良いです。

Sub Test()

Dim c
For Each c In Selection
If c.Value >= 7 And IsNumeric(c.Value) Then
c.Activate
Exit For
End If
Next c

End Sub

範囲内に文字列が存在しなくて、空セルか数字だけなのであれば、
And IsNumeric(c.Value)
は特に必要ありません。
あっても不具合は起きないので、そのままでも構いませんけど。

また、Activate の代わりに Select を使用しても似たような動作になります。
どちらも試してみて、お好みのほうを使用するのも良いと思います。

この回答へのお礼

ありがとうございました。
マクロを試してみます。

お礼日時：2009/01/13 13:54

No.2 回答者： tom04 回答日時： 2009/01/08 22:37

一番簡単な方法はオートフィルタを利用するのがいいのではないでしょうか？

フィルタのオプションで「7以上」で抽出できると思いますが・・・

この回答への補足

質問の仕方がまずくてすみません。オートフィルタではなく、たくさんあるデータの中で、最初にある７以上の数値のセル（７以上も以下もたくさん入力されている中で）を見つけたいのですが・・・

補足日時：2009/01/09 18:14

この回答へのお礼

ありがとうございました。

お礼日時：2009/01/13 13:55

No.1 回答者： nattocurry 回答日時： 2009/01/08 16:25

比較的簡単なVBAマクロで実現できますが、とりあえずマクロを使わない方法を。

検索対象範囲がどれくらいなのか判りませんが、すべてのセルに対して、7以上だったら色を着ける、という条件付き書式を設定すれば、7以上のセルだけに色が着きます。
あとは、その色着きセルを目で探す、と。
色着きセルを探すだけなら、文字は読めなくても良いので、かなり縮小して広範囲を見ることが出来ますよ。

この回答への補足

確かに条件付き書式で色をつける方法は簡単ですね。
おかまいなければVBAマクロの方法も教えてもらって良いでしょうか？
よろしくお願い致します。

補足日時：2009/01/09 18:20