应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台» 网络生活区» 有奖问答 » 有奖问答完结子版 » 求助一道求解年均增长率Excel公式编辑的数学题（截至2010-11-20）
51/1返回列表
查看: 1270  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 博学EPI ，点击这里进行查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

wolaiye2014

至尊木虫 (职业作家)

『小叶子』上班了~

[交流] 求助一道求解年均增长率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 ]
回复此楼

» 猜你喜欢

» 抢金币啦！回帖就可以得到:

查看全部散金贴
超赞的经济论坛http://www.pinggu.org/bbs/viewthread.php?tid=397908&page=1&fromuid=1888827
1楼 2010-11-12 13:04:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wolaiye2014

至尊木虫 (职业作家)

『小叶子』上班了~
引用回帖:
Originally posted by rh1127 at 2010-11-14 09:47:53:
楼主，我帮你做了个excel文件，放在下面链接了：
https://u.115.com/file/f76a51c4d5test_Equition.xls
提取码：f76a51c4d5
打开excel文件，"工具“->宏 选择运行即可（在打开时，确保启用宏 ...

找不到“工具”，是不是我用的是office2007的关系？
这是Excel表

以红色数字为原数据（D列为A，N列为B，J列为x），麻烦您了！如果能解决，我给您追加金币，谢谢！

[ Last edited by wolaiye2014 on 2010-11-15 at 09:28 ]
赞一下 回复此楼
超赞的经济论坛http://www.pinggu.org/bbs/viewthread.php?tid=397908&page=1&fromuid=1888827
8楼2010-11-14 11:13:16
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

onjie

木虫 (著名写手)

笨鸟@快乐家族
一元四次方程求解啊
赞一下 回复此楼
因为舍得才有义无反顾的奋斗，因为舍不得才有旷世的爱
2楼2010-11-12 13:27:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wyh7230

铁杆木虫 (正式写手)
现在EXCEL中求出X=什么，然后在空格中逐步引入A和B，回车就可以了！公式可以复制，求解多个数据！
赞一下 回复此楼
幸福是奋斗出来的！
3楼2010-11-12 14:15:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

rh1127

捐助贵宾 (著名写手)

一名工程师@上海
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
赞一下 回复此楼
Actionnoworachievenever!
4楼2010-11-12 15:15:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭