| Код |
var
App, Wksht, Range, Cell1, Cell2, ArrayData, R,A: Variant;
i,j: integer;
begin
...
App.WorkBooks[1].Sheets.Add; // добавляем лист
Wksht:=App.WorkBooks[1].Sheets[1];
Wksht.Name := 'Итог';
...
R:= App.WorkBooks[1].Sheets['Лист2'].Cells.Find(What:='Карандаш',
LookIn := xlValues, SearchDirection:=xlNext,
MatchCase:=False);
// вот так берется искомое значение
Wksht.Cells.Item[3, 3].Formula:= '='+QuotedStr('Лист2')+'!'+R.Address[True, True, xlA1, EmptyParam, EmptyParam];
end;
|
А как мне взять значение, например на две я чейки правеее? |