| 查看: 1265 | 回复: 10 | |||
| 本帖产生 1 个 博学EPI ，点击这里进行查看 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
求助一道求解年均增长率Excel公式编辑的数学题（截至2010-11-20）
|
|||
|
已知 2006 年的 销售额数值 为 A，以及2006~2010五年销售总额为 B 求年平均增长率 x 公式为 A + A(1+x) + A(1+x)2 + A(1+x)3 + A(1+x)4 = B 如何在Excel中编辑求 x 的公式？（即将x用A、B的式子表示出来） [ Last edited by wolaiye2014 on 2010-11-14 at 11:07 ] |
回复此楼» 猜你喜欢
表哥与省会女结婚，父母去帮带孩子被省会女气回家生重病了
已经有12人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有14人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
-
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性
已经有11人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有11人回复
» 抢金币啦！回帖就可以得到:
-
西湖大学拓扑光学、非厄米光学、太赫兹方向博士后招聘
+2/244
-
陆军军医大学第二附属医院（新桥医院）冉茜课题组招聘科研人员
+1/86
-
哈工大医康学院材料模拟计算方向人才招聘
+1/78
-
坐标广州，征女友
+2/66
-
澳大利亚麦考瑞大学(Macquarie University)国际博士硕士全额奖学金-计算机-26年中开学
+1/32
-
湘潭大学“过程强化与绿色化工”创新团队补招2026年秋入学博士生
+2/22
-
香港中文大学（深圳）陈筱萌 课题组招生公告（博士 / 博后 / 硕士 / RA）
+1/15
-
中北大学冯瑞教授*开山大弟子*招募
+1/15
-
香港城市大学范俊教授招博士生 2名 机器学习和仿真设计新的电池材料 仅限C9高校学生
+1/14
-
【青岛大学】2026年生物与医药申请考核制博士生招生（含少数民族骨干人才）
+1/12
-
怎么发布了求助贴了， 一发就转到删除栏了
+1/10
-
上海工程技术大学张培磊教授团队招收博士生
+1/7
-
澳门大学生物医学影像实验室诚招博士生（2026秋季入学）
+1/7
-
澳门理工大学 2026 Fall 奖学金博士招生 （AI药物与蛋白质设计，干湿结合）
+1/7
-
澳科大招收2026年秋季药剂学/生物材料方向全奖博士研究生（春节不打烊）
+1/4
-
澳科大招收2026年秋季药物递送/生物材料方向全奖博士研究生（3月5日18:00截止）
+1/4
-
队友
+1/3
-
西交利物浦大学（苏州）/刘雯老师课题组/招博士研究生
+1/3
-
26储能博士申请自荐
+1/2
-
大连海事大学船舶洁净能源研究中心2026年博士研究生招生启事
+1/1
|
楼主，我帮你做了个excel文件，放在下面链接了： https://u.115.com/file/f76a51c4d5test_Equition.xls 提取码：f76a51c4d5 打开excel文件，"工具“->宏 选择运行即可（在打开时，确保启用宏） 注意A2填入A，B2填入B，X既是你要求的增长率 |
5楼2010-11-14 09:47:53
2楼2010-11-12 13:27:12
3楼2010-11-12 14:15:14
wolaiye2014(金币+5, 博学EPI+1):不好意思，确实不会用宏，能不能说一下操作流程？数据A在表格的D6：D80，数据B在I6：I80，创建x在J6：J80。 2010-11-13 20:15:11
|
楼主是一元多次方程求解，没有固定解，只有数值解，过程如下： 例如在第一行填入A, B，下面第二行是对应值，A=1.5 B=10 A B X 1.5 10 0.144 那么用下面的宏，运行，然后，X自动填入X下面，（别告诉我宏不会用） Sub CalIncrease() ' ' CalIncrease Macro ' Macro recorded 11/12/2010 by Evan Ren ' ' Set wb = ActiveWorkbook Set ws = wb.ActiveSheet A = ws.Cells(2, 1) B = ws.Cells(2, 2) prec = 0.001 st = B / A - 1 If (st > 0) Then For i = 0.01 To st Step prec tolerance = ((1 + i) ^ 5 - 1) / i - B / A If Abs(tolerance) <= 0.01 Then ws.Cells(2, 3) = i Exit For End If Next i End If End Sub |
4楼2010-11-12 15:15:36