Excel VBA質問箱 IV

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

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


34635 / 76734 ←次へ | 前へ→

【47305】Re:条件付の最大値の求め方
回答  Hirofumi  - 07/3/7(水) 18:44 -

引用なし
パスワード
   こんなのでも?

Option Explicit

Public Sub Sample()

  Dim i As Long
  Dim lngRows As Long
  Dim vntData As Variant
  Dim vntMax As Variant
  Dim strProm As String
  
  With ActiveSheet.Cells(1, "A")
    'データ行数を取得
    lngRows = .Offset(Rows.Count - .Row) _
                .End(xlUp).Row - .Row + 1
    'データが無い場合
    If lngRows <= 1 And .Value = "" Then
      strProm = "データが有りません"
      GoTo Wayout
    End If
    'データを配列に取得
    vntData = .Resize(lngRows + 1).Value
  End With
  
  For i = 1 To lngRows
    '値が1000以上、2000以下なら
    If 1000 <= Val(vntData(i, 1)) _
        And Val(vntData(i, 1)) <= 2000 Then
      '保存した値より、データが大きいなら
      If vntMax < Val(vntData(i, 1)) Then
        'データを保存
        vntMax = Val(vntData(i, 1))
      End If
    End If
  Next i
  
  If vntMax = Empty Then
    strProm = "該当データが有りません"
  Else
    strProm = "1000以上、2000以下の最大値は、" & vntMax & "です"
  End If
  
Wayout:
  
  MsgBox strProm, vbInformation
  
End Sub

6 hits

【47286】条件付の最大値の求め方 kei 07/3/7(水) 12:30 質問
【47287】Re:条件付の最大値の求め方 Jaka 07/3/7(水) 13:18 発言
【47288】Re:条件付の最大値の求め方 ウッシ 07/3/7(水) 13:39 回答
【47305】Re:条件付の最大値の求め方 Hirofumi 07/3/7(水) 18:44 回答

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