- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
108 ：デフォルトの名無しさん[]：2015/09/19(土) 21:56:47.05 ID:Ser2uuvv - 解決済みだけどループだとこうか
Dim myHeap(3)
myHeap(0) = -9 '例
myHeap(1) = 2 '例
myHeap(2) = -8 '例
myHeap(3) = myHeap(0)
For a = 0 To 2
sa = Abs(myHeap(a) - myHeap(a + 1))
If a = 0 Or sa < samin Then
samin = sa
kore = a
End If
Next
Debug.Print (myHeap(kore) + myHeap(kore + 1)) / 2
|
|