|
▼kei さん:
>いつもお世話になっておりますぅ!
>相変わらずド素人な質問ばかりで申し訳御座いません・・・
>
>CommandButton1をクリックした時、
>A列にある数値の1000以上2000以下の最大値を求めたいのです。
>
>お願い致しますっ!
こんにちは
こんなのも、
Sub test()
Dim i As Long
Dim r As Range
Dim v As Variant
Dim rs As Object
Set r = Worksheets("Sheet1").UsedRange.Columns(1).Cells
If r Is Nothing Then Exit Sub
v = r.Value
Set rs = CreateObject("ADODB.Recordset")
With rs
.Fields.Append "Data", 14
.Open
For i = LBound(v) To UBound(v)
If IsNumeric(v(i, 1)) Then
.AddNew
!Data = v(i, 1)
End If
Next
Set r = Nothing
Erase v
.Filter = "Data >= 1000 AND Data <= 2000"
If .RecordCount > 0 Then
.Sort = "[Data] DESC"
v = .GetRows(1, 0, "Data")
MsgBox "1000以上2000以下の最大値は「" & v(0, 0) & "」"
Else
MsgBox "抽出エラー"
End If
.Close
End With
Erase v
Set rs = Nothing
End Sub
|
|