| |
▼よう さん：
また、おじゃまします
>それと、
>
>823を入力すると、Ａ列の765と834の比例配分、3と4の配分で、3.65とか
>可能でしょうか？
ぴったりな値でなかったら、両側の値で 案分するということですね？
（関数でありそうですけど、詳しくないので, VBAで地道に求めてみました ^^）
Sub Try2()
Dim m
Dim x1#, x2#, y1#, y2#
Dim y#, a#, b#
Dim myVal As Double
myVal = 823
With Range("A1:A5")
m = Application.Match(myVal, .Cells, 1)
If IsNumeric(m) Then
If .Item(m) = myVal Then
y = .Item(m, 2)
Else
x1 = .Item(m) '(x1,y1)-(x2,y2) の値から
x2 = .Item(m + 1)
y1 = .Item(m, 2)
y2 = .Item(m + 1, 2)
a = (y2 - y1) / (x2 - x1)
b = y2 - a * x2 '直線式 y = ax + b を作成
y = myVal * a + b
End If
End If
End With
Range("C10").Value = y
End Sub
|
|
kanabun
- 08/9/12(金) 23:56 -
