| 查看: 1608 | 回复: 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 ] |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有6人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有4人回复
-
跳槽后在研项目怎么办？
已经有10人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
-
什么时候开奖？
已经有10人回复
-
2026国自然函评费到账
已经有16人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有9人回复
-
让我中一个面上吧！
已经有14人回复
-
今天放榜吗？
已经有16人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
» 抢金币啦！回帖就可以得到:
-
告别流水线爽文！108万字完结仙侠《女娲石之灵石奇缘（仙界篇）》值得细品
+1/9020
-
基金祈福
+1/976
-
华西生物制药研究院招聘科研助理
+2/400
-
基金申请小调查！预祝申请必定中中中！！祈福！！！
+5/295
-
南方医科大学|生物材料与医学工程团队诚聘科研助理
+2/252
-
五大联赛看好哪支球队
+5/195
-
散金求好运
+1/191
-
诚征另一半
+1/172
-
上海交通大学张航课题组招聘博士后（电化学储能）
+1/89
-
那年春暖花开，今朝如梦初醒 —— 北漂十五载，相亲十年，归乡孑然一身
+1/72
-
哈尔滨工业大学（校本部）电子与信息工程学院2027级博士招生
+1/64
-
强耀生物金秋开学季活动，2026年8月18日-10月31日，肽库筛选低至2W5
+3/40
-
瑞典-博后-固态电池-粘结剂-锂离子电池方向
+1/36
-
中山大学化学工程与技术学院欧阳钢锋/吴鑫课题组博士生（2027年入学）/博士后招聘启事
+1/34
-
2027环境工程博士申请
+1/8
-
祈祷老公中国基
+1/5
-
中科院大连化学物理研究所 招聘 催化剂研发方向 科研助理 2名
+1/5
-
出全新蔡司 Plan?APOCHROMAT 20×/0.8 平场复消色差物镜
+1/2
-
CS phd 寻找机会
+1/1
-
找女友
+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
