Excel VBA質問箱 IV

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

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


13956 / 76734 ←次へ | 前へ→

【68278】Re:指定した項目の最大値を求めたいのですが
発言  kanabun  - 11/2/20(日) 9:44 -

引用なし
パスワード
   ▼江々 さん:

>最大値の取得の方法はわかるのですが、
>氏名AAAに制限して最大値を取得する方法は

A列にフィルタかけて 抽出行に MAX関数でなく、SubTotal関数を適用したら
どうでしょう?

'◆範囲は そちらのセル範囲に変更してください

Sub Try1()
  With Range("A1").CurrentRegion
    .Worksheet.AutoFilterMode = False
    .AutoFilter 1, "AAA"
    If .Columns(1).SpecialCells(xlVisible).Count > 1 Then
      MsgBox "最大値は" & WorksheetFunction.Subtotal(4, Intersect(.Cells, .Offset(1, 1)))
    End If
    .AutoFilter
  End With
      
End Sub
1 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 お礼

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