Недавнее содержимое от kler_93

Все всем спасибо программа написана. Остался последний вопрос как сделать так, что бы пользователь сам мог выбрать файл с которым работает программа? Ну знаю что нужно вставить OpenDialog затем кнопку "открыть" затем при нажатии на кнопку открывался файл, как-то так: procedure...

я смотрел выбираю поиск по букве "R" а там нет range

И почему когда Range нельзя указывать так Range[16,16] или так Range['16,16'] а только так Range['P16']?

Что-то в условии просто так Excel.WorkBooks[1].WorkSheets[1].Range['P16'].Formula:='=Q16-N17'; работает

Вот что получил, но не работает if Excel.WorkBooks[1].WorkSheets[1].Range['P16']=' ' then Excel.WorkBooks[1].WorkSheets[1].Range['P16'].Formula:='=Q16+N17';

В общем я сам во всем разобрался и задача практически выполнена осталась она проблема: допустим у меня есть 7 ячеек(В них может быть число отличное от нуля либо ничего) по вертикали мне нужно сделать такое условие Если А[i] пустая то переходим к следующей ячейке иначе копируем значение в...

В общем добрался до следующего: unit new; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, comobj, StdCtrls, Excel_TLB, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private {...

а вот так работает: n:=excel.ActiveCell.Row; i:=2; while i < n do begin excel.WorkBooks[1].WorkSheets[1].Rows[i].Select; excel.Selection.Insert(Shift:=xlDown); inc(i); end;

странно а почему такой цикл вообще не хочет работать? n:=excel.ActiveCell.Row; i:=2; while i <= n do begin excel.WorkBooks[1].WorkSheets[1].Rows[i].Select; excel.Selection.Insert(Shift:=xlDown); end;

Я уже и так делал: n:=excel.ActiveCell.Row; i:=2; while i <= n do begin excel.WorkBooks[1].WorkSheets[1].Rows[i].Select; excel.Selection.Insert(Shift:=xlDown); excel.WorkBooks[1].WorkSheets[1].Rows[i].Select; excel.Selection.Insert(Shift:=xlDown); excel.WorkBooks[1].WorkSheets[1].Rows[i].Select...

Уже нет ошибки вот что получилось excel.WorkBooks[1].WorkSheets[1].Rows[i].Select; excel.Selection.Insert(Shift:=xlDown); Но все равно не могу понять как цикл организовать. Мне надо так, что бы 3 строки вставлялись после 1ой строки и потом 3 строки после 2ой(т.е. цикл после добавления первых 3ёх...

Вот пытаюсь вставить строку между 3 и 4 строкой прога компилируется но вот при обработке ошибок выдает ошибку(( excel.WorkBooks[1].WorkSheets[1].Rows['4:4'].Select; excel.WorkBooks[1].WorkSheets[1].Selection.Insert(Shift:=xlDown);

А как в delphi писать цикл пока не конец excel документа? и ещё что-то я не понял про матрицу. Просто в ячейках и текст может быть. Почему не правильно? Если цикл не правильно работает, то почему он здесь работает? randomize; for a_:=1 to 5 do begin...

Excel в Delphi, цикл по строкам Начал изучать редактирование excel книг через delphi по началу было все понятно, пока не столкнулся с одним примером: Вот картинки что есть и что надо получить: до после Задание: 1) После каждой строки добавить 3 пустых строки 2) Объединение 3) С чем пока...