Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ошибка: невозможно получить свойство 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)
 
Здравствуйте, уважаемые подскажите ка решить такую задачу, есть некий параметр измеренный в определенное время. Нужно найти среднее значение и ошибку этого параметра в интервале 10 мин. ВАЖНО отметить что на листе данный параметр может находится в любом месте. (Идеально,  если макрос будет запрашивать место расположение параметра, времени и место выведения результата).
Автоматическое нахождение степени регрессии и величины достоверности аппроксимации (VBA)
 
Здравствуйте, подскажите пожалуйста как можно автоматизировать процесс нахождения  степени регрессии и  величины достоверности аппроксимации по данной таблице, что бы в результате была составлена итоговая таблица (см. пример).
В итоговой таблице столбики:
1. номер событя
2. Знак события -, если числа возрастают -  то "+", если убывают - то "-"
3. коэффициент регрессии - это b из уравнения  линейной линии тренда  (y=bx+a)
4. величина достоверности аппроксимации (R^2).
Выделениепри помощи макроса ячеек, подходящих по условию.
 
Здравствуйте, знатоки экселя. Помогите создать  макрос по данной таблице. Суть макроса заключается в выделении ячеек, в которых, как минимум в 3 последовательных значениях Давления и R-R интервала изменяются одновременно и однонаправленно. Во вложении вариант ответа, который должен получиться(Если я правильно все рассчитал).
VBA, правила перемещения диаграмм по листу
 
Уважаемые, подскажите как изменить код,  что бы диаграммы строились в определенном месте видимой области листа. или же в определенном месте. Код такой:
Скрытый текст
Соответственно все диаграммы строятся на одном и том же месте, друг за другом.  
Метод   записи макрорекодером дает такое решение
Код
ActiveSheet.Shapes("Диаграмма 1093").IncrementLeft -204.
которое не работает  :(  так как здесь идет указание на диаграмму, которая уже была создана.
пробовал присвоить переменную с именем диаграммы, что бы затем ссылаться на неё
Код
t = ActiveChart.Name
ActiveSheet.Shapes(t).IncrementLeft -204.
Увы, и этот метод снова не работает.  :(  
Подскажите как быть в этом случае?.
Большая неточность в размере диапазона построения планок погрешностей, макрос для автоматического построения графиков
 
Доброго времени суток. Имеется  Макрос для автоматического построения графиков, но в нем есть БОЛЬШАЯ неточность  в размере диапазона построения планок погрешностей.
Код
 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.08.2014 15:11:29
Пожалуйста удалите тему
 
Добрый день, форумчане. столкнулся с проблемой и не могу найти решение, пожалуйста подскажите.
Есть файл исходник, в нем находиться последовательность значений, которые надо заменить на значения в эталонном файле. Внимание, порядок ячеек в исходном фале нельзя менять.
Сразу прошу прощения, если решение данной проблемы уже есть на форуме. Но я, полный дум и мне надо буквально разжевать.
Изменено: Alejandro67 - 23.07.2013 03:05:08 (разобрался в проблеме,все решается через ВПР,)
Страницы: 1
Наверх