Страницы: 1
RSS
Ошибка: невозможно получить свойство linest
 
Уважаемые знатоки,  есть макрос, который отлично работал, но сегодня сто-то случилось и он начал выдавать ошибку. "Невозможно получить свойство LinEst класса worksheetFunction"

Вопрос: как посмотреть на какой строчке исходных данных происходит ошибка?
Собственно сам макрос:
Код
Sub Нахождение_А_коэффициента()
[e:e].ClearContents: [e2] = "Номер события БР"
[f:f].ClearContents: [f2] = "Знак"
[g:g].ClearContents: [g2] = "A-коэффициент"
[h:h].ClearContents: [h2] = "R^2"
[i:i].ClearContents: [i2] = "комм."
[j:j].ClearContents: [j2] = "критерий по SAP"
[k:k].ClearContents: [k2] = "критерий по PI"
[l:l].ClearContents: [l2] = "время"
Dim a As Range, i&, r(), v(1 To 4)
Set a = Columns(2).SpecialCells(xlCellTypeConstants, xlNumbers)
i = 3
For Each a In a.Areas
v(1) = a.Cells(1, 3)
r = WorksheetFunction.LinEst(a.Offset(, 1), a, , 1)
v(3) = r(1, 1)
v(4) = r(3, 1)
v(2) = "знак"
' IIf(v(3) > 0, "+", "-")
Cells(i, "E").Resize(, 4).Value = v
i = i + 1
Next
End Sub
 
Уважаемые сам файл слишком большой. поэтому выкладываю ссылку на него https://cloud.mail.ru/public/D5WN/6QEMawiQA

Возможно ошибка в количестве данных. Если данную таблицу разбить на 2 части, то ошибки не будет, более того ошибки не будет если оставить только 8150 событий БР, а при 8200 возникает ошибка. Как это можно исправить?  
Изменено: Alejandro67 - 07.06.2016 01:23:47 (Возможная проблема)
 
Взял файл с облака. Вставил макрос на лист. Запустил. Ошибки нет.
Как получить ошибку?
p.s. Первая мысль была, что дело в типе переменной. 8200 - это примерно 4-ая часть integer  
Страницы: 1
Наверх