Question

想用excel中的VBA语句解一个比较简单的二元一次方程组。求大神帮帮忙哈。

我要求解表格中Y88-91的四个数值（其中Y88=Y89，Y90=Y91），方程组是这样的：Y88+Y89+Y90+Y91=Y93；Y88-AF70=Y89-AF71=Y90-AF72=Y91-AF92.其中Y93和AF70.71.72.73是已知的。我在表格上设置了一个按钮，指定到这个宏，一按按钮就会有结果。

Answer 1

Dim MyA as integer (就是你的Y88,Y99了，如果类型不对，改成Long or Double)
Dim MyB as integer
With Thisworksheet(你的表Worksheets(1)类似这样也行)
MyA = (.cells(93,25).Value + .cells(70,25).Value * 2 - .cells(72,25).Value * 2) / 4
MyB = (.cells(93,25).Value + .cells(72,25).Value * 2 - .cells(70,25).Value * 2) / 4
End With
从你的公式看，AF70 = AF71,AF72 = AF73(严重怀疑你的AF92是AF73)
所以 MyA * 2 + MyB * 2 = Y93,MyA * 2 - AF70 * 2 = MyB * 2 - AF72 * 2

追问

呵呵 不好意思哈 确实是AF73.