- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
99 ：デフォルトの名無しさん[sage]：2015/09/19(土) 09:58:07.05 ID:x1zzYklZ - >>91
indexとか配列とかなくした
Dim h, i As Long, j As Long
If UBound(arg) > 0 Then
h = Abs(arg(0) - arg(1))
NearAverage = (arg(0) + arg(1)) / 2
For i = 0 To UBound(arg) - 1
For j = i + 1 To UBound(arg)
If h > Abs(arg(i) - arg(j)) Then
h = Abs(arg(i) - arg(j))
NearAverage = (arg(i) + arg(j)) / 2
End If
Next j
Next i
End If
|