EXCEL比较复杂的问题

[复制链接]
查看11 | 回复5 | 2010-12-4 08:26:48 | 显示全部楼层 |阅读模式
应该是数学的问题,VB应该可以解决,函数不知道行不
A列
B列
C列
A1
B1
C1
A2
B2
C2
A3
B3
C3
等等
等等 等等
---------------------------

C总
C列=A列*B列
C总=C1+C2+C3+...
现已知C总的值,A列的值。要求B列的值(所有ABC值均为正整数)
要求B列每个值之间差值有一定范围。比如正负100以内,全部相等最完美了,但是实际上不太可能。
各位大哥,有公式做到吗?
行数一般不会超过20个
例100
B1
C1
右边为答案
100
1100
110000

120
B2
C2
120
1200
144000

5
B3
C3
5
800
4000

29
B4
C4
29
950
27550
(已知C1+C2+C3+C4=285550,求B1-B4的值,要求B1-B4均为正整数,相互差不超过300)
有可能有答案,并且答案是多种,也可能没答案,因为有些组合没法是整数。能用函数解决吗?

回复

使用道具 举报

千问 | 2010-12-4 08:26:48 | 显示全部楼层
1.工具--宏-录制新宏-确定。 2.在宏窗口上“停止录制” 3.工具-宏-宏,点击macro1-编辑,进入一个窗口,把里面的内容全部删除,粘贴下面代码: Sub 高显两列中的不同数据1() On Error GoTo MyErr Dim MyRan As Range Set MyRan = Selection If MyRan.Areas.Count2 Then MsgBox "选择的不是两列", vbExclamation Exit Sub End If Dim i As Integer, j As Integer, IsRept As Boolean, m As Inte
回复

使用道具 举报

千问 | 2010-12-4 08:26:48 | 显示全部楼层
1.工具--宏-录制新宏-确定。 2.在宏窗口上“停止录制” 3.工具-宏-宏,点击macro1-编辑,进入一个窗口,把里面的内容全部删除,粘贴下面代码: Sub 高显两列中的不同数据1() On Error GoTo MyErr Dim MyRan As Range Set MyRan = Selection If
回复

使用道具 举报

千问 | 2010-12-4 08:26:48 | 显示全部楼层
这个问题是不能做到的。因为价格应该根据合同确定。不过,你可以先求一个平均价格,根据经验来估算每种商品的价格,再用加权法校正。
回复

使用道具 举报

千问 | 2010-12-4 08:26:48 | 显示全部楼层
没有原文件,太能理解了。能给文件不?========================================
您的问题==我的课题奉献知识==辉煌生命
黑龙江省 张志晨========================================
回复

使用道具 举报

千问 | 2010-12-4 08:26:48 | 显示全部楼层
B1=C1/A1
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行