Excel VBA質問箱 IV

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

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


47324 / 76736 ←次へ | 前へ→

【34371】Re:A1からA200までの値
発言  ichinose  - 06/2/1(水) 12:30 -

引用なし
パスワード
   ▼超1 さん:
こんにちは。

>A1からA200までの値があったとき、
>その中で下から(A200から)数えて最初にMAXになった
>値を取得したいのですけど、どうしたらよいでしょうか?
>そしてそのMAXがどの行にあるかも調べたいです。
>どうやったらできますか?

新規ブックの標準モジュールで
試してみてください。サンプルデータもコードで用意しますから試してみてね


'=======================================================
Sub test()
  Dim radd As String
  With Range("a1:a200")
    .Formula = "=int(rand()*200)+1"
    .Value = .Value
  'ここまでは、サンプルデータ作成
    radd = .Address
    MsgBox "最大値 : " & Application.Max(.Cells)
    MsgBox "最大値の最大行 : " & Evaluate("max(if(" & radd & "=max(" & radd & "),row(" _
                            & radd & ")))")
    '  max(if($A$1:$A$200=max($A$1:$A$200),row($A$1:$A$200)))  ↑こんな数式を評価します
    End With
End Sub


確認してみてください

0 hits

【34355】A1からA200までの値 超1 06/2/1(水) 9:52 質問
【34361】Re:A1からA200までの値 じゅん 06/2/1(水) 11:00 回答
【34362】Re:A1からA200までの値 Statis 06/2/1(水) 11:13 回答
【34371】Re:A1からA200までの値 ichinose 06/2/1(水) 12:30 発言
【34384】Re:A1からA200までの値 超1 06/2/1(水) 19:26 質問
【34385】Re:A1からA200までの値 ichinose 06/2/1(水) 19:36 発言
【34386】Re:A1からA200までの値 超1 06/2/1(水) 19:57 質問
【34388】Re:A1からA200までの値 超1 06/2/1(水) 20:22 質問
【34391】Re:A1からA200までの値 ichinose 06/2/1(水) 20:54 発言
【34392】Re:A1からA200までの値 超1 06/2/1(水) 21:03 発言
【34395】Re:A1からA200までの値 ichinose 06/2/1(水) 21:31 発言

47324 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free