人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

vbaで指定範囲の最小値を探し、最小値が入ったセルの行番号を取得する方法を教えてください。

WorksheetFunction.min(Range(Cells(i, 1), Cells(i +10, 1)))
これで最小値が取れるとこまで来たのですが、
このセルの行番号を取得するにはどうしたらいいですか?



●質問者: 匿名質問者
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● 匿名回答2号
ベストアンサー

http://www.moug.net/tech/exvba/0100004.html
http://excelvba.pc-users.net/fol7/7_1.html


匿名質問者さんのコメント
ありがとうございます。MATCH関数を利用して、やりたいことがやれました。

2 ● 匿名回答1号
For i = 0 To 5
 
 min = WorksheetFunction.min(Range(Cells(i * 5 + 1, 1), Cells(i * 5 + 4, 1)))
 
 m = i * 5 + 1
 For k = i * 5 + 1 To i * 5 + 4
 If Cells(k, 1) = min Then
 m = k
 Exit For
 End If
 Next k
 
 Cells(i * 5 + 1, 2).Formula = "= 100-G" & CLng(m)
Next i  'その次の5セルの固まりへ…(6-10行)

匿名質問者さんのコメント
おお、あの方だったんですね!丁寧にありがとうございます。 今後の事を考えると、セルの行番号取った方がいいのかなと思って、 別として質問させて頂いておりました。 2号さんに教えてもらったMATCH関数でやりたいことがやれましたので、 問題はないですが、更にこういう書き方もあるんだと、 本当に勉強になります。ありがとうございます!!!!!!!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ