Function oscill1(prices As Variant, N1 As Long) As Variant
Dim oscillA() As Variant, MA1 As Variant, MA2 As Variant, R As Long, C As Long
Dim i As Long, j As Long, k As Long, sum1 As Double, sum2 As Double
prices = prices.Value2
R = UBound(prices)
C = UBound(prices, 2)
'ReDim oscillA(1 To R, 1 To C)
ReDim MA1(1 To R, 1 To C)
'ReDim MA2(1 To R, 1 To C)
For j = 1 To C
sum1 = 0
'sum2 = 0
For i = 1 To N1
sum1 = sum1 + prices(i, j)
MA1(i, j) = CVErr(xlErrNA)
Next i
MA1(i - 1, j) = sum1 / N1
For i = N1 + 1 To R
sum1 = sum1 + (prices(i, j) - prices(i, j))
MA1(i, j) = (sum1) / N1
Next i
Next j
oscill1 = MA1 |