Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33980 / 76734

←次へ　｜　前へ→


	【47969】Re:配列の値のmax minについて

ウッシ - 07/3/28(水) 13:50 -


	引用なし

	パスワード

こんにちは

>配列の要素数に限界があるので注意。
でした。(..)

配列ならループしてもそんなに時間掛からないですね。

Sub test1()
　　Dim AAA(1 To 1000000)
　　Dim i　　As Long
　　Dim maxD As Long
　　Dim minD As Long
　　For i = 1 To UBound(AAA)
　　　　AAA(i) = i
　　Next
　　maxD = AAA(1): minD = AAA(1)
　　For i = 2 To UBound(AAA)
　　　　maxD = IIf(AAA(i) > maxD, AAA(i), maxD)
　　　　minD = IIf(AAA(i) < minD, AAA(i), minD)
　　Next
　　Debug.Print maxD
　　Debug.Print minD
　　Erase AAA
End Sub

配列（↓では単純に数値）を空のレコードセットに読み込んでソートしてって
試しましたけど遅かった。（AddNewがネックでした。）

Sub test2()
　　Dim i　　　As Long
　　Dim c　　　As Long
　　Dim v　　　As Variant
　　Dim rs　　 As Object
　　Dim s　　　As String

　　Set rs = CreateObject("ADODB.Recordset")

　　With rs
　　　　With .Fields
　　　　　　.Append "data", 14　　　'adDecimal
　　　　End With
　　　　.CursorLocation = 2
　　　　.Open
　　　　For i = 1 To 1000000
　　　　　　.AddNew
　　　　　　!data = i
　　　　Next
　　　　.MoveFirst
　　　　If .RecordCount > 0 Then
　　　　　　.Sort = "[data] DESC"
　　　　　　Debug.Print "最大値　　　---" & .GetRows(1, 0, "data")(0, 0)
　　　　　　.Sort = "[data] ASC"
　　　　　　Debug.Print "最小値　　　---" & .GetRows(1, 0, "data")(0, 0)
　　　　End If
　　　　.Close
　　End With
　　Set rs = Nothing
End Sub

3 hits

▼

【47959】配列の値のmax minについて GG 07/3/28(水) 10:20