Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ошибка: невозможно получить свойство linest
 
Уважаемые сам файл слишком большой. поэтому выкладываю ссылку на него https://cloud.mail.ru/public/D5WN/6QEMawiQA

Возможно ошибка в количестве данных. Если данную таблицу разбить на 2 части, то ошибки не будет, более того ошибки не будет если оставить только 8150 событий БР, а при 8200 возникает ошибка. Как это можно исправить?  
Изменено: Alejandro67 - 7 Июн 2016 01:23:47 (Возможная проблема)
Ошибка: невозможно получить свойство 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
Нахождение средней и ошибки средней из массива. (VBA)
 
JayBhagavan, Спасибо, разобрался а по ошибке средней - это не надо. Ещё раз благодарю
Нахождение средней и ошибки средней из массива. (VBA)
 
Здравствуйте, уважаемые подскажите ка решить такую задачу, есть некий параметр измеренный в определенное время. Нужно найти среднее значение и ошибку этого параметра в интервале 10 мин. ВАЖНО отметить что на листе данный параметр может находится в любом месте. (Идеально,  если макрос будет запрашивать место расположение параметра, времени и место выведения результата).
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Казанский, Спасибо большое, все работает замечательно. Посоветуйте, с чего начать изучать vba, что бы писать такие замечательные макросы
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Казанский, вот пожалуйста, новый пример, где обнаруживается ошибка.  
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Казанский, При использовании макроса в другой книге (при условии что данные находятся в тех же самых местах), возникает ошибка: "НЕвозможно получить свойства LinEst класса WorksheetFunction"

Как это можно исправить?
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Супер, то что надо! Казанский, Спасибо
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Событие по длине может быть различным, от 3 ячеек и более
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Здравствуйте, подскажите пожалуйста как можно автоматизировать процесс нахождения  степени регрессии и  величины достоверности аппроксимации по данной таблице, что бы в результате была составлена итоговая таблица (см. пример).
В итоговой таблице столбики:
1. номер событя
2. Знак события -, если числа возрастают -  то "+", если убывают - то "-"
3. коэффициент регрессии - это b из уравнения  линейной линии тренда  (y=bx+a)
4. величина достоверности аппроксимации (R^2).
Выделениепри помощи макроса ячеек, подходящих по условию.
 
SAS888, спасибо большое, все понял
Выделениепри помощи макроса ячеек, подходящих по условию.
 
Sas888,  для меня макросы - это магия. Подскажите, как изменить макрос, что бы он выделял ячейки в которых не по 3 последовательно изменющихся значений, а по 4?
Выделениепри помощи макроса ячеек, подходящих по условию.
 
Ikki, Sas888. Спасибо за помощь.  
Выделениепри помощи макроса ячеек, подходящих по условию.
 
Здравствуйте, знатоки экселя. Помогите создать  макрос по данной таблице. Суть макроса заключается в выделении ячеек, в которых, как минимум в 3 последовательных значениях Давления и R-R интервала изменяются одновременно и однонаправленно. Во вложении вариант ответа, который должен получиться(Если я правильно все рассчитал).
VBA, правила перемещения диаграмм по листу
 
Спасибо, Работает, только надо потом вернуть выделение

Код
Dim chartShape as Shape 
Код
Set chartShape = ActiveSheet.Shapes.AddChart
chartShape.Left = xxx 'положение от левого края рабочего листа
chartShape.Top = yyy 'положение от верхнего края
chartShape.Select
 
данный код соответственно будет размещать график по координатам листа.

Если надо разместить график по координатам относительно видимой части листа то нужен такой код:
Код
 Dim chartShape As Shape
Set chartShape = ActiveSheet.Shapes.AddChart
chartShape.IncrementLeft xxx 'положение от левого края видимой области
chartShape.IncrementTop yyy ' положение от верхнего края видимой области
chartShape.Select
 
VBA, правила перемещения диаграмм по листу
 
Уважаемые, подскажите как изменить код,  что бы диаграммы строились в определенном месте видимой области листа. или же в определенном месте. Код такой:
Скрытый текст
Соответственно все диаграммы строятся на одном и том же месте, друг за другом.  
Метод   записи макрорекодером дает такое решение
Код
ActiveSheet.Shapes("Диаграмма 1093").IncrementLeft -204.
которое не работает  :(  так как здесь идет указание на диаграмму, которая уже была создана.
пробовал присвоить переменную с именем диаграммы, что бы затем ссылаться на неё
Код
t = ActiveChart.Name
ActiveSheet.Shapes(t).IncrementLeft -204.
Увы, и этот метод снова не работает.  :(  
Подскажите как быть в этом случае?.
Большая неточность в размере диапазона построения планок погрешностей, макрос для автоматического построения графиков
 
Простите, только сейчас понял что написал чушь.
У меня  значение не в столбцах а в стоках.
Mean0,4066880,460770,5311980,7650950,8013660,96510611,0236040,9251881,0001491,4085651,2858981,422531
Std. error0,0965050,0561070,0668810,1375880,0451340,11432400,0959050,0593470,1071980,2002330,2831080,200811
то есть ДиапазонГрафика имеет вид, например A1:N1
ДиапазонОШИБКИ в таком случае будет А2:N2
выделение имеет первое значение Std. error, его надо бы убрать. то есть что бы был диапазон B2:N2
Еще раз приношу извинения за невнимательное написание задачи
Изменено: Alejandro67 - 16 Авг 2014 15:15:47
Большая неточность в размере диапазона построения планок погрешностей, макрос для автоматического построения графиков
 
Доброго времени суток. Имеется  Макрос для автоматического построения графиков, но в нем есть БОЛЬШАЯ неточность  в размере диапазона построения планок погрешностей.
Код
 ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Charts\график_фон.crtx")
    Dim ДиапазонГрафика As Excel.Range
    Set ДиапазонГрафика = Application.InputBox("введите диапазон ячеек", Type:=8)
    
    Dim ДиапазонОШИБКИ As Excel.Range
    Set ДиапазонОШИБКИ = ДиапазонГрафика.Offset(1, 0)
    
    ActiveChart.SetSourceData Source:=ДиапазонГрафика
   

    ActiveChart.SetElement (msoElementErrorBarStandardError) 

    ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlX, _
    Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, _
     Amount:=ДиапазонОШИБКИ, MinusValues:=ДиапазонОШИБКИ
 
Mean0,4066880,460770,5311980,7650950,8013660,96510611,0236040,9251881,0001491,4085651,2858981,422531
Std. error0,0965050,0561070,0668810,1375880,0451340,11432400,0959050,0593470,1071980,2002330,2831080,200811
то есть ДиапазонГрафика имеет вид, например A1:N1
ДиапазонОШИБКИ в таком случае будет А2:N2
выделение имеет первое значение Std. error, его надо бы убрать. то есть что бы был диапазон B2:N2
Изменено: Alejandro67 - 16 Авг 2014 15:11:29
Пожалуйста удалите тему
 
Добрый день, форумчане. столкнулся с проблемой и не могу найти решение, пожалуйста подскажите.
Есть файл исходник, в нем находиться последовательность значений, которые надо заменить на значения в эталонном файле. Внимание, порядок ячеек в исходном фале нельзя менять.
Сразу прошу прощения, если решение данной проблемы уже есть на форуме. Но я, полный дум и мне надо буквально разжевать.
Изменено: Alejandro67 - 23 Июл 2013 03:05:08 (разобрался в проблеме,все решается через ВПР,)
Страницы: 1
Наверх