vba算净现值有错误，烦请指教如何更正

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

教材代码如下，按说明，仅用来计算一行现金流量。
'计算一行现金流量的净现值，输入值用 折现率、和现金流区域
Function nNPV(Rate, R)
       nNPV = R(1) + Application.WorksheetFunction.NPV(Rate, R.Range("B1", R.End(xlToRight)))
End Function

情景1，此时正常

cf	(400.00)	100.00	100.00	100.00	100.00
折现率	10.00%
nnpv	(83.01)	<-- =nNPV(B737,B736:F736)

情景2， 此时异常，即从C737:G737及以下的所有行里，如果输入数值，该函数都会算入净现值。请教该如何解决此问题？谢谢。
a           b                    c                 d              e              f           g
cf           (400.00)                100.00         100.00         100.00         100.00        
折现率        10.00%        100.00                                                       100.00
nnpv        86.84         <-- =nNPV(B737,B736:F736)                               
                                                              100.00                

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：VBA 请指教 净现值 Application worksheet

论坛通常都是无用之地，都是挣钱之人，谢谢各位哈，就此别过。

yypp88 发表于 2022-12-11 20:05
论坛通常都是无用之地，都是挣钱之人，谢谢各位哈，就此别过。

可惜帮不上忙。擅长图表。