Question

求写excel vba中的一段代码

a*b=c d*e=f f+c=g其中b，e，g为用户输入的常量,求a和d都为整数的所有结果，谢谢各位大神！excel能实现的函数，或是vba代码都可以

Answer 1

图片就不更新了，只更新代码。

Integer是整数型，范围：-32,768 到 32,767

Long 长整数型，范围：-2,147,483,648 到 2,147,483,647

把Dim i As Integer改为Dim i As Long即可。

【下面的代码已更新】：

Sub JiSuan()
    b = [A2]
    e = [B2]
    g = [C2]
    r = [D65536].End(3).Row + 1 '赋值r=D列最后一个数据的行号+1
    Range("D2:E" & r).Delete Shift:=xlUp '删除D2至Fr区域，准备写入结果
    Dim i As Long
    For i = 1 To g
        a = i
        d = (g - a * b) / e
        If d > 0 And d = Int(d) Then
            r = [D65536].End(3).Row + 1 '重新赋值r
            Range("D" & r) = a
            Range("E" & r) = d
        End If
        If g < a * b Then
            If [D2] = "" Then
                [D2] = "无解"
                [E2] = "无解"
            End If
            r = [D65536].End(3).Row '重新赋值r
            Range("D2:E" & r).Interior.Color = 10213316  '结果区域添加背景颜色 草绿
            Range("D2:E" & r).Borders.LineStyle = xlContinuous '结果区域添加边框线
            Exit Sub '退出Sub
        End If
    Next
End Sub

追问

大师，我的条件给错了，能不能帮我再看一下？

追答

答案已更新。

追问

大神，谢谢你的代码，运行尚好，唯一的问题是g值输入超过32400时，运行到 For i = 1 To g，就提示溢出错误，请问如何修改？

追答

【前面的答案已经更新】。

Answer 2

根据已经条件可以推导出如下结论：

a=b/c

d=f*e=(g-c)*e

很明显，a应该是唯一解，是否整数就看b/c是否整除；由于e没有给出值，可以是任意整数，因此d有无穷组解。

这下EXCEL公式很简单了吧。公式：

示例解：

追问

题目中的已知量给错了，已修改，麻烦再看一下

追答

a*b=c 推出 a=b*c

d*e=f 推出 d=e*f

然后就利用 f+c=g 进行枚举f、c的整数组合即可。

公式解决方案如下：

其中f为0、1开始向下拉动，直到g为止（上图示例直接拉到30），c的公式见上图（g-f），最后就是计算a、b，公式见下图：

追问

我的已知量可没有说是整数啊，这样算局限性很大