Excel VBA質問箱 IV

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

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


10857 / 13646 ツリー ←次へ | 前へ→

【19565】表の集計で同じ最大値をいくつも取得する... あや 04/11/9(火) 18:41 質問[未読]
【19569】Re:表の集計で同じ最大値をいくつも取得す... ichinose 04/11/9(火) 19:40 発言[未読]
【19579】表の集計で同じ最大値をいくつも取得する... あや 04/11/9(火) 21:34 お礼[未読]

【19565】表の集計で同じ最大値をいくつも取得する...
質問  あや  - 04/11/9(火) 18:41 -

引用なし
パスワード
   表の集計で同じ最大値がいくつもあった場合、日にちと最大値を全部表示する
方法はありますか?
初心者ですので、宜しくお願いします。
  (例)
        日にち      
       11月 1日   10
       11月 2日   75
       11月 3日   60
       11月 4日   75
       11月 5日   50
         ・
         ・
       11月29日   75
       11月30日   35 
  _______________________________
  (結果)  
       11月 2日   75
       11月 4日   75
       11月29日   75

【19569】Re:表の集計で同じ最大値をいくつも取得...
発言  ichinose  - 04/11/9(火) 19:40 -

引用なし
パスワード
   ▼あや さん:
こんばんは。

>表の集計で同じ最大値がいくつもあった場合、日にちと最大値を全部表示する
>方法はありますか?
>初心者ですので、宜しくお願いします。
>  (例)
>        日にち      
>       11月 1日   10
>       11月 2日   75
>       11月 3日   60
>       11月 4日   75
>       11月 5日   50
>         ・
>         ・
>       11月29日   75
>       11月30日   35 
この表の日にちがA列、数値がB列(一行目は、項目名、2行目からデータ)だったとしましょう。以下のコードを試してみて下さい(C列を作業列として使います)。

'================================
Sub main()
  Dim rng As Range
  Dim ans As Range
  Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
  With rng
   If .Row > 1 Then
     .Offset(0, 2).Formula = _
        "=IF(B2=MAX(" & .Offset(0, 1).Address & "),A2,"""")"
     On Error Resume Next
     Set ans = _
       .Resize(, 3).SpecialCells(xlCellTypeFormulas, xlNumbers)
     If Err.Number = 0 Then
      ans.Offset(0, -2).Copy Range("e1")
      ans.Offset(0, -1).Copy Range("f1")
      End If
     .Offset(0, 2).Formula = ""
     End If
   End With
End Sub

同じシートのE1から結果を表示しています。


>  _______________________________
>  (結果)  
>       11月 2日   75
>       11月 4日   75
>       11月29日   75

【19579】表の集計で同じ最大値をいくつも取得する...
お礼  あや  - 04/11/9(火) 21:34 -

引用なし
パスワード
   ichinose 様 有り難うございます
あや です。こんばんは。

どうして良いか悩んでいました。おかげで解決することが出来ました。
有り難うございます。
また、分からないことがあったら御教授ねがいます。
ほんと、ありがとうございました。

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