求一个反计算过程？请老师们进去看看！

汶誉仔

已有一个计算过程，求一个反计算。

计算.rar (17.85 KB, 下载次数: 11)

2024-8-18 20:10 上传

点击文件名下载附件

likaiyihou

你这计算逻辑都不完整，怎么反算的出来？

liulang0808

Sub 按钮1_Click()
    Arr = [c3].CurrentRegion
    For j = 4 To Cells(Rows.Count, "j").End(3).Row
        If Len(Cells(j, "j")) > 0 Then
            For k = 2 To UBound(Arr, 2)
                If Arr(1, k) = Cells(j, "i") Then
                    C = k
                    Exit For
                End If
            Next k
            For I = 2 To UBound(Arr)
                If Val(Arr(I, 1)) = Val(Cells(j, "j")) Then
                    Cells(j, "k") = Arr(I, C)
                    Exit For
                Else
                    If Val(Arr(I, 1)) > Val(Cells(j, "j")) Then
                        Cells(j, "k") = Arr(I - 1, C) + (Arr(I, C) - Arr(I - 1, C)) * (Cells(j, "j") - Arr(I - 1, 1)) / 10
                        Exit For
                    End If
                End If
            Next I
        End If
    Next j
End Sub
Sub 按钮2_Click()
    Arr = [c3].CurrentRegion
    For j = 4 To Cells(Rows.Count, "O").End(3).Row
        If Len(Cells(j, "O")) > 0 Then
            For k = 2 To UBound(Arr, 2)
                If Arr(1, k) = Cells(j, "N") Then
                    C = k
                    Exit For
                End If
            Next k
            For I = 2 To UBound(Arr)
                If Val(Arr(I, C)) = Val(Cells(j, "O")) Then
                    Cells(j, "P") = Arr(I, 1)
                    Exit For
                Else
                    If Val(Arr(I, C)) > Val(Cells(j, "O")) Then
                        Cells(j, "P") = (Cells(j, "O") - Arr(I - 1, C)) / (Arr(I, C) - Arr(I - 1, C)) * 10 + Arr(I - 1, 1)
                        Exit For
                    End If
                End If
            Next I
        End If
    Next j
End Sub

liulang0808

附件内容供参考。。。。。。

汶誉仔

liulang0808 发表于 2024-8-18 20:38
附件内容供参考。。。。。。

非常棒！感谢liulang0808版主！

jsxjd

P4单元格数组公式去体会：
=INDEX($C$4:$C$24,MATCH(O4,D4:D24))+10*PRODUCT(ABS(IF({1;0},O4)-MMULT({1,0;-1,1},OFFSET($D3,MATCH(O4,D4:D24),,2,)))^{1;-1})