- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
132 ：デフォルトの名無しさん[sage]：2015/09/21(月) 06:46:29.92 ID:IJWaFyNv - >>128
> とりあえずIfよりも分かりにくい
そうか？
たいして変わらん気がするが
s1 = Abs(A2 - A3)
s2 = Abs(A1 - A3)
s3 = Abs(A1 - A2)
x = ( _
IIf(s1 <= s2 And s1 <= s3, A2 + A3, 0) + _
IIf(s2 <= s1 And s2 <= s3, A1 + A3, 0) + _
IIf(s3 <= s1 And s3 <= s2, A1 + A2, 0) _
) / 2
|