ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2529|回复: 3

[求助] VBA--IRR

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-8-23 12:59 | 显示全部楼层 |阅读模式

A1:A100 = -1000,.........,-1000,12000

Cells(5, 8) = IRR(A1:A100)

what's wrong?


TA的精华主题

TA的得分主题

发表于 2006-8-23 13:08 | 显示全部楼层

IRR

請參閱

傳回一連串以數字表示的現金流量之內部報酬率。與年金函數不同的是,IRR 函數的每期現金流量不一定要相等。然而,現金流量必須定期發生,如每月一次或每年一次。內部報酬率是指在某項投資計劃固定期間的支出 (負數) 及收入 (正數) 中所能獲得的利率。

語法

IRR(values,guess)

Values    是一個陣列或儲存格的參照,而這些儲存格包含您想要計算其內部報酬率的數值。

  • Values 引數必須至少包含一個正數和一個負數,以計算內部報酬率。
  • IRR 函數會根據 values 引數中數值的順序來解釋現金流量的順序。所以在輸入您的支出及收入值時,請務必依照您想要的順序。
  • 如果陣列或參照引數中包含文字、邏輯值或空白儲存格,則這些值將會略過。

Guess    是您猜測近於 IRR 結果的數值。

  • Microsoft Excel 使用反覆運算法來計算 IRR。從 guess 開始,IRR 會反覆計算直到誤差小於 0.00001% 為止。如果計算二十次之後,IRR 依舊無法求得結果,將會傳回錯誤值 #NUM!。
  • 在大部份的情況下,您並不需要提供 guess 以進行 IRR 函數運算。如果省略掉 guess 引數,將假設它是 0.1 (10%)。
  • 如果 IRR 函數傳回錯誤值 #NUM!,或是所傳回的數值和您的期望差距很大時,請使用不同的 guess 值再試一次。

VBA:

IRR 函數範例

在本範例中,IRR 函數會計算由陣列 Values() 內所含一系列期間的5筆現金流量之實質報酬率 (internal rate of return)。第一個陣列元素為一負值現金流,代表事業初始成本 (事業初始成本)。其餘4個正值現金流代表後續4年內的收入狀況。Guess 為實質報酬率之估計值。

Dim Guess, Fmt, RetRate, Msg
Static Values(5) As Double    ' 宣告陣列。
Guess = .1    ' Guess  10% 開始。
Fmt = "#0.00"    ' 定義百分比的顯示格式。
Values(0) = -70000    ' 事業初始成本。
' 正值現金流代表連續四年的收入狀況。
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
RetRate = IRR(Values(), Guess) * 100    ' 計算實質報酬率。
Msg = "The internal rate of return for these five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent."
MsgBox Msg    ' 顯示實質報酬率。
[此贴子已经被作者于2006-8-23 13:14:18编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-8-23 15:17 | 显示全部楼层

谢谢!

但是,如果A1到A“a”,其中a不确定,怎么表示?

Cells(5, 8) = "=IRR(A1:Aa)" 不对!!!

怎么表示?

TA的精华主题

TA的得分主题

发表于 2006-8-23 15:18 | 显示全部楼层
Cells(5, 8) = "=IRR(A1:A" & a & ")"
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-10-12 12:26 , Processed in 0.028175 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表