|
こんばんは、Takao さん
使い方はTakao さんが決める事です。
フォームからボタンを作るならマクロ登録するだけです。
傾きから求める方法に変えたつもりです、試して下さい。
KNの元範囲と、調べるKNの範囲をマウスで選択するようにしました。
Sub test_1()
Dim i As Long
Dim mRng As Range, cRng As Range, cR As Range
On Error Resume Next
Set mRng = _
Application.InputBox("KNの元範囲を選択して下さい。例A1〜G1)", , , , , , , 8)
If mRng Is Nothing Then Exit Sub
Set cRng = _
Application.InputBox("調べるKNの範囲を選択して下さい。例A4〜A9)", , , , , , , 8)
If cRng Is Nothing Then Exit Sub
On Error GoTo 0
With mRng
For Each cR In cRng
i = Application.Match(cR.Value, mRng, 1)
cR(1, 2) = (cR.Value - .Cells(1, i)) * _
(.Cells(2, i + 1) - .Cells(2, i)) / _
(.Cells(1, i + 1) - .Cells(1, i)) + _
.Cells(2, i)
Next
End With
Set mRng = Nothing
Set cRng = Nothing
End Sub
|
|