Уважаемые знатоки, есть макрос, который отлично работал, но сегодня сто-то случилось и он начал выдавать ошибку. "Невозможно получить свойство 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 |
