Jak obliczyc srednia z zakresu-range ?
Excelsheet := CreateOleObject('Excel.Application');
Excelsheet.Workbooks.Open('c:\b.xls');
ExcelSheet.Application.Visible:=true;
ex := ExcelSheet.ActiveSheet;
Range:=ex.Range['A1:A16'];
showmessage(string(range.value[1]));
mialem dopiero trzy wyklady z pisania makr w visualu wiec moze to nie byc najefektywniejsze, ale jesli liczy sie tylko efekt to mozna to zapisac tak:
kod w Visual Basic ale liczy sie idea:
Sub proc()
Dim rn As Range
Set rn = Range("a3")
rn.FormulaLocal = "=Średnia(a1:b2)"
MsgBox rn.Value
End Sub
w okienku wyswietli sie srednia :)