Excel VBA質問箱 IV

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

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


13957 / 76734 ←次へ | 前へ→

【68277】指定した項目の最大値を求めたいのですが
質問  江々  - 11/2/20(日) 9:09 -

引用なし
パスワード
   以下のデータで指定氏名の最大値を取得したいのですが・・・

氏名    第一回    第二回    第三回
AAA    10    34    25
BBB    12    53    23
CCC    13    90    31
AAA    42    61    22
BBB    5    13    36
CCC    12    15    45
AAA    45    2    63

最大値の取得の方法はわかるのですが、
氏名AAAに制限して最大値を取得する方法はどのようにすれば良いのでしょうか。
tに《変数を》加えて…と思ったのですが、・・・アドバイスお願いします。
AAAが分かればBBBなどにも展開できるのですが、進みません。

Sub kzoeru()
Dim i, t, m
  m = 1
For i = 6 To Range("A" & Rows.Count).End(xlUp).Row
  If Cells(i, 1).Value = "AAA" Then
    t = Range(Cells(i, 2), Cells(i, 4))
    m = 1 + 1
  End If
Next
  MsgBox "最大値は" & Application.WorksheetFunction.Max(t)
End Sub

4 hits

【68277】指定した項目の最大値を求めたいのですが 江々 11/2/20(日) 9:09 質問
【68278】Re:指定した項目の最大値を求めたいのですが kanabun 11/2/20(日) 9:44 発言
【68280】Re:指定した項目の最大値を求めたいのですが 江々 11/2/20(日) 10:00 質問
【68282】Re:指定した項目の最大値を求めたいのですが kanabun 11/2/20(日) 15:56 発言
【68285】Re:指定した項目の最大値を求めたいのですが 江々 11/2/20(日) 17:18 お礼

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