| 查看: 1683 | 回复: 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.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有6人回复
» 抢金币啦！回帖就可以得到:
-
2026年材料结构与力学性能国际会议（MSMP 2026
+1/823
-
2026年物理学、化学与数据分析国际会议 (PCDA 2026)
+1/816
-
缘分快到了吧！男征女，深圳及东莞
+2/476
-
专利代理人
+1/96
-
【供应】翁江试剂｜分析纯·生命科学·医药中间体·危化品持证｜高校/药厂/检测可询
+1/93
-
北京计算科学研究中心半导体计算模拟方向招收推免/硕博/博后
+1/92
-
中国科大-合肥国家实验室冷原子量子网络团队招聘启事
+2/70
-
南科大薛亚辉课题组诚聘离子输运、二维材料、原子力显微镜等方向“快响行动”博士生
+1/70
-
华南师范大学胡勇军教授课题组招收2027年推荐面试攻读研究生（推免生）
+1/35
-
中山大学柔性电子方向2027级博士招生（材料、材料加工、化学、化工、机械等背景）
+1/18
-
浙江海洋大学2027年接收推免生工作办法
+1/10
-
为多肽行业添砖加瓦；新课题组首肽免费合成
+1/10
-
2027 International Conference on Logistics and Supply Chain Management
+1/5
-
【2027硕士招生】招收材料、化工、环境、冶金类硕士研究生
+1/4
-
大湾区大学姚瑶课题组2027届博士生招生 （与中山大学联合培养）
+1/4
-
浙江大学Kemal Celebi教授课题组招收2027年秋季博士生-材料/化学/化工
+1/3
-
2027 International Conference on Brain, Behaviour and Cognitive Sciences
+1/1
-
【985西北工业大学】材料学院-余泓课题组-招收2027年博士
+1/1
-
2027 International Conference on Communication and Public Relations
+1/1
-
2027 World Conference on Economics, Finance and Management Sciences
+1/1
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
|
楼主，我帮你做了个excel文件，放在下面链接了： https://u.115.com/file/f76a51c4d5test_Equition.xls 提取码：f76a51c4d5 打开excel文件，"工具“->宏 选择运行即可（在打开时，确保启用宏） 注意A2填入A，B2填入B，X既是你要求的增长率 |
5楼2010-11-14 09:47:53
6楼2010-11-14 10:42:33
7楼2010-11-14 10:54:52
8楼2010-11-14 11:13:16
9楼2010-11-15 09:26:21
10楼2010-11-15 09:28:22
11楼2010-11-15 13:02:17
