excel - 在一个数组中找到 2 个元素，它们在一个简单的方程中给出一个目标结果

Question

在电子产品中，我需要一定的阻力，但是市场上的标准值有限。如果我将两个电阻并联组合，我可以获得非常接近目标的结果。问题是哪 2 个电阻可以提供最好的结果。

到目前为止，我有这些元素:

1. Excel column of 86 standard values from 0.25 to 1000000 in A2:A87 cells
2. Target resistance that I enter in cell C3
3. R1 and R2 - variables that can get 86 values from A2 to A87 cells
4. equation giving the parallel resistance: Rtarget=R1*R2/(R1+R2)

我是一个 VBA 无知的人，我发现这项任务是了解更多有关 VBA 操作的好机会。在这里，我从变量开始，但我不知道如何进行。您的帮助将不胜感激。

Sub ResCom()

Dim Rstd As Double 
Dim Rt As Double, R1 As Double, R2 As Double

Rstd = Range("a2:a87").Value

.
.
.

End Sub

提前致谢!

Answer 1

我们可以创建一个易于重复使用的工具。

首先在中输入电阻值A2 通过 A87 .然后运行:

Sub tablemaker()
    Dim i As Long, j As Long, K As Long

    K = 2
    For i = 2 To 87
        For j = i To 87
            Cells(K, 2) = Cells(i, 1)
            Cells(K, 3) = Cells(j, 1)
            K = K + 1
        Next j
    Next i

    Range("D2:D" & K - 1).Formula = "=B2*C2/(C2+B2)"
End Sub

这将在 中创建一个阻力表。 B2 通过 D3742 .该表列出了组合对和每对的相关电阻。

(不需要排列，因为 4,2 对实际上与 2,4 相同)

然后在单元格 中输入目标值E2 .在 E3 输入 数组公式 :

=MATCH(MIN(ABS(D2:D3742-E2)),ABS(D2:D3742-E2),0)

数组公式 必须使用 Ctrl + Shift + Enter 输入，而不仅仅是 Enter 键。如果正确执行此操作，公式将在公式栏中显示并带有花括号。

这给出了表中匹配最接近的行。最后在 E4 进入:

=INDEX(B2:B3741,$E3)

并将其复制到 F4



要重新运行它，只需更改 中的目标即可。 E2