|
Доброго времени суток, Посетитель!
|
|
|
|
|
|
|
|
|
вид форума:
|
| |
|
|
| | в Excel есть данная функция... отлично работает...
в Access есть возможность добавить линию тренда на диаграмму....
А мне необходимо расчитать значения этой функции в таблице... среди функций Access ее нет...
Возможно ли вызвать для ее расчета библиотеку функций Excel и как это сделать?  | |
| |
| |
| |
|
|
| |
Sub TestExcelFunc()
On Error Resume Next
Dim ExlApp As Object 'Excel.Application
Set ExlApp = GetObject(, "Excel.Application") 'Если есть открытый Excel
If Err.Number <> 0 Then
Err.Clear
Set ExlApp = CreateObject("Excel.Application") 'Иначе - создаем новый
End If
MsgBox ExlApp.WorksheetFunction.Round(1.125, 2)
Set ExlApp = Nothing
End Sub
|
| |
| |
| |
| |
 41 Кб. |
|
| | это будет одно значение.... а мне необходимо мало того, что расчитать значения для каждого товара за каждый месяц. так еще и в нескольких видах (Линейный тренд, Логарифм.... и т.д.).
Т.е.мне необходима именно формула линии тренда.... (см.приложение) | |
| |
| |
| |
|
|
| |
'-- IRR/ВСД
Public Function myIRR#(Optional arg1#, Optional arg2#, Optional arg3#, Optional arg4#, Optional arg5#, _
Optional arg6#, Optional arg7#, Optional arg8#, Optional arg9#, Optional arg10#, _
Optional arg11#, Optional arg12#, Optional arg13#, Optional arg14#, Optional arg15#, _
Optional arg16#, Optional arg17#, Optional arg18#, Optional arg19#, Optional arg20#, _
Optional arg21#, Optional arg22#, Optional arg23#, Optional arg24#, Optional arg25#, _
Optional arg26#, Optional arg27#, Optional arg28#, Optional arg29#, Optional arg30#, _
Optional arg31#, Optional arg32#, Optional arg33#, Optional arg34#, Optional arg35#, _
Optional arg36#, Optional arg37#, Optional arg38#, Optional arg39#, Optional arg40#, _
Optional arg41#, Optional arg42#, Optional arg43#, Optional arg44#, Optional arg45#, _
Optional arg46#, Optional arg47#, Optional arg48#, Optional arg49#, Optional arg50#, _
Optional arg51#, Optional arg52#, Optional arg53#, Optional arg54#, Optional arg55#, _
Optional arg56#, Optional arg57#, Optional arg58#, Optional arg59#, _
Optional Guess = 0)
On Error GoTo err33232
myIRR = Excel.Application.IRR(Array(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, _
arg11, arg12, arg13, arg14, arg15, arg16, arg17, arg18, arg19, arg20, _
arg21, arg22, arg23, arg24, arg25, arg26, arg27, arg28, arg29, arg30, _
arg31, arg32, arg33, arg34, arg35, arg36, arg37, arg38, arg39, arg40, _
arg41, arg42, arg43, arg44, arg45, arg46, arg47, arg48, arg49, arg50, _
arg51, arg52, arg53, arg54, arg55, arg56, arg57, arg58, arg59) _
, Guess)
Exit Function
err33232:
Exit Function
End Function
|
| |
| |
| |
| |
|
|
| | Вот нашел пример в инете (по слову "WorksheetFunction.Trend" можно нагуглить немеряно) :-)
Function Trend()
Dim objExcel As Excel.Application
Dim Arg1(10) As Double
Dim Arg2(10) As Double
Dim constarg As Double
Dim x As Integer
Dim result As Variant
constarg = Log(10)
For x = 1 To 10
Arg1(x) = x * 100
Arg2(x) = Log(x)
Next
Set objExcel = CreateObject("Excel.Application")
result = objExcel.WorksheetFunction.Trend(Arg1, Arg2, constarg)
MsgBox result(1)
objExcel.Quit
Set objExcel = Nothing
End Function
|
| |
| |
| |
| |
|
|
| | наверное прийдется офис переустановить.... присоединила библиотеку Excel, а функции в процедуре не видно...(((
возможно ли самому расчитать значения коэффициентов линейного тренда (y=kx+b)? | |
| |
| |
| |
|
|
| | разьясните пожалуйста, что показывает данная процедура? | |
| |
| |
HiProg.com - Технологии программирования
|
