Excel VBA質問箱 IV

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

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


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

46696 / 76732

←次へ　｜　前へ→


	【35004】Re:近似値を求める。

[名前なし] - 06/2/18(土) 0:56 -


	引用なし

	パスワード

以下のように、単純に１つずつ比較していくだけでいいのでは？

Type 項目
　　時間 As Date
　　値 As Long
End Type

Sub Macro1()
Const 計算結果 As Long = 280
Dim 配列() As 項目
Dim i As Long
Dim 検索結果 As Long

　　ReDim 配列(2)
　　配列(0).時間 = TimeValue("13：00"): 配列(0).値 = 100
　　配列(1).時間 = TimeValue("12：00"): 配列(1).値 = 450
　　配列(2).時間 = TimeValue("9：00"): 配列(2).値 = 300

'　　ReDim 配列(2000)
'
'　　Randomize
'
'　　For i = 0 To UBound(配列)
'　　　　配列(i).時間 = Rnd()
'　　　　Do
'　　　　　　配列(i).値 = Rnd() * 計算結果 * 2
'　　　　Loop Until 配列(i).値 <> 計算結果
'　　Next

　　MsgBox "検索を開始します。", vbInformation

　　For i = 0 To UBound(配列)
　　　　If Abs(配列(i).値 - 計算結果) < Abs(配列(検索結果).値 - 計算結果) Then
　　　　　　検索結果 = i
　　　　　　If 配列(i).値 = 計算結果 Then Exit For
　　　　End If
　　Next
　　
　　MsgBox 計算結果 & " に最も近いのは配列(" & 検索結果 & ")の " & _
　　　　　　配列(検索結果).値 & " で、時間は " & Format(配列(検索結果).時間, "h:mm") & " です。"
End Sub

1 hits

▼

【34939】近似値を求める。 ゼロイオン 06/2/16(木) 14:40