求计算公式方法，最好能在EXCEL上做的

Question

我想做一个公式，意思就是：已知A和B，还有总数C（因为是举例就用字母代替了，平时是有具体的数字的，因为每次的数都不一样，就不写出来了）求X,Y？且X,Y都为小数点后两位的整数，整数的意思是说不可约，表达的不太好请见谅
公式是：A*X+B*Y=C
举例：120*X+9*Y=17.36
一般结果不唯一，最好能把结果都列出来的计算软件，最好是EXCEL
X,Y必须都是小数点后面两位的整数啊！不信你随便找个数试试，你说的是有解，但是大都是无限小数啊！不能保持小数点后面两位为整数啊。 举例：1.23,我的意思就是这个！小数点后面两位为整数，不可约。 拜托大家了我要的是程序软件和过程，顺便在软件上能显示出结果的，跪拜，请求~~

Answer 1

等等，刚 写错了，再想想这个怎么弄

弱智的方法
既然是两位数的小数

在单元格 a3 a4输入 0.01,0.02下拉到0.99
B2,C2输入0.01 0.02 横拉到0.99

在E1, F1输入 120， 9
B3,输入公式如下 ＝$E$1*B$2+$F$1*$A3 复制，选中 B3:CV101 粘贴， 查找 (ctrl+F，注意查找 选项里面 选单元格匹配， 查找范围为 值) 17.36 , 查找全部， 如果有 对应的 两个数就是你要的解，

120*X+9*Y=17.36
这个无解

16.38有两解

想到 一更好的公式 =120*row()/100+9*column()/100 复制，选择整个工作表，粘贴

Answer 2

楼主, 如您题: a b c三数是常数 (a+b=c), x,y 是变量, 求解程式是: a*x+b*y=c中的x,y值. 可以导出x,y的值如下:
x=(c-by)/a
y=(c-ax)/b

因为x,y必需是两位小数可以除尽的实数，那么最小的x,y要大于0.01:
x=(c-by)/a>=0.01

所以y值要:
0.01<=y<=(c-0.01a)/b

同理因 y=(c-ax)/b>=0.01, 所以x值要
0.01<=x<=(c-0.01b)/a

综述本题x,y的范围就是:
0.01<=x<=(c-0.01b)/a
0.01<=y<=(c-0.01a)/b

a,b,c都是常量, 穷尽x,y所有两位小数的值, 同时要满足下面条件就是正确结果
a*x+b*y=c
x=int(x*100)/100
y=int(y*100)/100

二元一次方程，两参量全未知的情况下，只能按值范围去穷尽所有可能值。 个人认为如果用Excel单元格公式去穷尽这个范围的数据几乎是不可能的。只能VBA或是其他编程语言去穷尽所有值。

请楼主公布a,b值, 期待有朋友可以算出答案。

Answer 3

“且X,Y都为小数点后两位的整数，整数的意思是说不可约”
你这句话是关键，但你并没有说清楚。

Answer 4

我估计“X,Y必须都是小数点后面两位的整数啊”这句话是说就只能两位小数。

如果是这样的话表达式先改成这样：1.2*X+0.09*Y=17.36

然后用excel 的规划求解功能计算X、Y的值，并在条件设置中将 X Y 设为整数，得出解以后除以100就变回两位小数位的数了。

这种方法一般能找出解来，但无法一次过找出“所有”的解。

Answer 5

excel的浮点运算会有误差，所以算到一半，就会从2位小数自己变成n位小数，使到基本上是无解。所以下面的程序将2位小数转化成整数，用整数型确保不会有误差，算出结果后再除以100变回2位小数。

还有就是要确定X和Y的有效值范围，设得太小，会漏掉一些解，设得太大，会降低运算效率。所以做了一些判断。但是在这里判断的前提是A和B不能为0至1间的小数，否则X和Y的范围太大了，很难对其范围进行限定了。

Sub 方程()
A = InputBox("输入A*X+B*Y=C中的A值")
B = InputBox("输入A*X+B*Y=C中的B值")
C = InputBox("输入A*X+B*Y=C中的C值") * 100

If A >= C Then
i = 0
j = 100
Else
i = 0
j = C
End If
If B >= C Then
m = 0
n = 100
Else
m = 0
n = C
End If

For X = i To j
For Y = m To n
If A * X + B * Y = C Then
z = z + 1
结果 = 结果 & "解" & z & ":X=" & X / 100 & ",Y=" & Y / 100 & "; "
End If
Next Y
Next X
If 结果 = 空值 Then 结果 = "无解"
MsgBox (结果)
End Sub