如果条件似乎不同，则使用excel vba求解方程

尝试使用excel vba解方程

公式： xy=5（x+y）

我使用下面的vba代码确定

x

和

y

的值，并将其打印到单元格

A1

Sub equation()
Dim x As Long, y As Long
For x = 1 To 9
For y = 1 To 9
    If ((x * y) = (5 * (x + y))) Then
        Range("A1") = x & "," & y
    End If
Next y
Next x
End Sub

但是，此代码不起作用。我想我在

IF

条件中缺少了一些东西

我试过下面的，效果很好

Sub equation()
Dim x As Long, y As Long
For x = 1 To 9
For y = 1 To 9
    If 5 * (x + y) = 45 Then
        Range("A1") = x & "," & y
    End If
Next y
Next x
End Sub

我甚至试过使用2个

temp

变量，但都不起作用

Sub equation()
Dim x As Long, y As Long, temp1 As Long, temp2 As Long
For x = 1 To 9
For y = 1 To 9
    temp1 = x * y
    temp2 = 5 * (x + y)
    If temp1 = temp2 Then
        Range("A1") = x & "," & y
    End If
Next y
Next x
End Sub

有人能告诉我，如果<代码>出现这种情况，我做错了什么。

考虑一下：

xy=5（x+y）
xy=5x+5y
xy-5y=5x
y（x-5）=5x
y=5x/（x-5）

然后只需插入x的值并求解y

选择x的任何值，如果需要小数部分，只需避免

x=5

将

y

声明为双：

---

@pnuts我的坏。。我现在明白了。谢谢@pnuts谜题方程式中更有趣的部分是，xy不是x*y，而是（x*10）+y。。现在，我得到了欺骗我的东西和我的编码技能：P@GowthamShivaIF（）没有什么问题。因为你在一个整数网格中单步前进，所以网格中可能没有有效的值。我明白了！！非常感谢。

Sub qwerty()
    Dim x As Long, y As Long

    For x = 6 To 13
        y = 5 * x / (x - 5)
        Cells(x, 1) = x
        Cells(x, 2) = y
    Next x
End Sub