Здравствуйте! Подскажите пожалуйста, аргумент логарифма не равен нулю и не отрицателен, почему выходит сообщение Invalid procedure call or argument [vba]
Код
Option Explicit
Public i, j, N As Integer
Sub Run() Dim sn() Dim hn() N = Cells(Rows.Count, 1).End(xlUp).Row - 1 ReDim sn(0 To N) ReDim hn(0 To (N - 1))
For i = 0 To N Step 1 sn(i) = Worksheets("Volatility").Cells(i + 2, 1).Value Next i
Здравствуйте! Подскажите пожалуйста, аргумент логарифма не равен нулю и не отрицателен, почему выходит сообщение Invalid procedure call or argument [vba]
Код
Option Explicit
Public i, j, N As Integer
Sub Run() Dim sn() Dim hn() N = Cells(Rows.Count, 1).End(xlUp).Row - 1 ReDim sn(0 To N) ReDim hn(0 To (N - 1))
For i = 0 To N Step 1 sn(i) = Worksheets("Volatility").Cells(i + 2, 1).Value Next i
почему выходит сообщение Invalid procedure call or argument
В последнем цикле, при j=N-1, вы читаете sn(j+1) (=sn(N)), которое у вас таки пустое... По идее, у вас цикл должен быть не j=0..N-1, а j=1..N-1, и считать вы должны = Log(sn(j) / sn(j-1))
почему выходит сообщение Invalid procedure call or argument
В последнем цикле, при j=N-1, вы читаете sn(j+1) (=sn(N)), которое у вас таки пустое... По идее, у вас цикл должен быть не j=0..N-1, а j=1..N-1, и считать вы должны = Log(sn(j) / sn(j-1))AndreTM