J
John Taylor
Hello,
I've been attempting to use XIRR with non contiguous cells, in Excel 97, but
without success.
My data (investment fund Unit Prices) is arranged in columns (dates in A,
values in B, sorted in ascending order) and I'm wanting to calculate
annualized returns over various periods.
My lack of success lead to a very long search of the newsgroup archives, as
well as other sources. I finally found out that it's not possible to use
XIRR 'directly' where the cells are non contiguous, but there were a couple
of workarounds suggested. One, a UDF from Harland Grove (submitted by Ron
Rosenfeld), and the second a formula using Offset, from Domenic. I also
came across the Function XXIRR, submitted by Myrna Larson.
However, I still have a couple of questions related to this and would
appreciate any feedback that people can offer.
1. The UDF works fine but has the drawback that the non-contiguous ranges
must be named. This is quite laborious when there are about 2000 data sets
and one wants to do many XIRR comparisons. Also, at least one of the values
for XIRR must be a negative and therefore the UDF doesn't work on my
original data as they are all positive values. Is there any way that the
UDF can be modified to change one value (the first, corresponding to the
earliest date, presumably) to a negative?
===========================
Function myxirr( _
v As Variant, _
d As Variant, _
Optional g As Double = 0 _
) As Variant
'-------------------------------------------------------
'this udf requires an explicit reference to APTVBAEN.XLA
'if v and/or d represent non-contiguous ranges, they should be
'NAME'd
'-------------------------------------------------------
Dim vv As Variant, dd As Variant, X As Variant, i As Long
If TypeOf v Is Range Then
ReDim vv(1 To v.Cells.Count)
i = 0
For Each X In v
i = i + 1
vv(i) = X.Value
Next X
Else
vv = v
End If
If TypeOf d Is Range Then
ReDim dd(1 To d.Cells.Count)
i = 0
For Each X In d
i = i + 1
dd(i) = X.Value
Next X
Else
dd = d
End If
myxirr = IIf(g <> 0, xirr(vv, dd, g), xirr(vv, dd))
End Function
===========================
2. Another query I found posted, but for which I didn't see any reply, also
applies to my situation. Any help would be most appreciated. Namely:
The '-b1' causes the error, with dates in column A and values in column B.
3. From a thread titled "XIRR in VBA" - by Myrna Larson
Option Explicit
Const MaxChange As Double = 0.00000001
Const MaxTries As Long = 100
Enum ArrayDims '07/26/2003
NotArray = 0
SingleDim = 1
Horizontal = 2
Vertical = 3
Rectangular = 0
End Enum
etc. etc.
When I paste the code into the VBE the lines "Enum ArrayDims" and "End Enum"
are both highlighted in red.
Does this mean that "Enum" is not available in Excel 97?
If it's not, is there any alternative that would allow use of this function
in Excel 97?
Apologies for the length of this post, but I thought it was best to pose all
the questions at the same time since they're related.
Regards,
John
I've been attempting to use XIRR with non contiguous cells, in Excel 97, but
without success.
My data (investment fund Unit Prices) is arranged in columns (dates in A,
values in B, sorted in ascending order) and I'm wanting to calculate
annualized returns over various periods.
My lack of success lead to a very long search of the newsgroup archives, as
well as other sources. I finally found out that it's not possible to use
XIRR 'directly' where the cells are non contiguous, but there were a couple
of workarounds suggested. One, a UDF from Harland Grove (submitted by Ron
Rosenfeld), and the second a formula using Offset, from Domenic. I also
came across the Function XXIRR, submitted by Myrna Larson.
However, I still have a couple of questions related to this and would
appreciate any feedback that people can offer.
1. The UDF works fine but has the drawback that the non-contiguous ranges
must be named. This is quite laborious when there are about 2000 data sets
and one wants to do many XIRR comparisons. Also, at least one of the values
for XIRR must be a negative and therefore the UDF doesn't work on my
original data as they are all positive values. Is there any way that the
UDF can be modified to change one value (the first, corresponding to the
earliest date, presumably) to a negative?
===========================
Function myxirr( _
v As Variant, _
d As Variant, _
Optional g As Double = 0 _
) As Variant
'-------------------------------------------------------
'this udf requires an explicit reference to APTVBAEN.XLA
'if v and/or d represent non-contiguous ranges, they should be
'NAME'd
'-------------------------------------------------------
Dim vv As Variant, dd As Variant, X As Variant, i As Long
If TypeOf v Is Range Then
ReDim vv(1 To v.Cells.Count)
i = 0
For Each X In v
i = i + 1
vv(i) = X.Value
Next X
Else
vv = v
End If
If TypeOf d Is Range Then
ReDim dd(1 To d.Cells.Count)
i = 0
For Each X In d
i = i + 1
dd(i) = X.Value
Next X
Else
dd = d
End If
myxirr = IIf(g <> 0, xirr(vv, dd, g), xirr(vv, dd))
End Function
===========================
2. Another query I found posted, but for which I didn't see any reply, also
applies to my situation. Any help would be most appreciated. Namely:
I use the XIRR function regularly but would like to input relative
references instead of always using arrays or constants (as in the Help
example) but if I try this I get an error. Specifically I would like
to do something like this: xirr({-b1,b2},{a1,a2}). This way I can
calculate the period return from a list of positive values (e.g.
balances as of a certain date).
The '-b1' causes the error, with dates in column A and values in column B.
3. From a thread titled "XIRR in VBA" - by Myrna Larson
Option Explicit
Const MaxChange As Double = 0.00000001
Const MaxTries As Long = 100
Enum ArrayDims '07/26/2003
NotArray = 0
SingleDim = 1
Horizontal = 2
Vertical = 3
Rectangular = 0
End Enum
etc. etc.
When I paste the code into the VBE the lines "Enum ArrayDims" and "End Enum"
are both highlighted in red.
Does this mean that "Enum" is not available in Excel 97?
If it's not, is there any alternative that would allow use of this function
in Excel 97?
Apologies for the length of this post, but I thought it was best to pose all
the questions at the same time since they're related.
Regards,
John