sh := Form2.ComboBox14.Text;///--Размер шрифта
Ex.ActiveWorkBook.WorkSheets[L1].Range['B26:B43'].Select;
Ex.Selection.Font.Size:=sh;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
Ex.ActiveWorkBook.WorkSheets[L1].Cells[i+26, 2].value:= memo1.Lines[i];
end;
Ex.ActiveWorkBook.WorkSheets[L1].Range['B26:B43'].Select;
Sleep (200);
Ex.Selection.Font.Size:=sh;///--Размер шрифта
Sleep (200);
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
Ex.ActiveWorkBook.WorkSheets[L1].Cells[i+26, 2].value:= memo1.Lines[i];
end;
Ex.Selection.Font.Size:=StrToInt(sh);
Ex.Selection.Font.Size:=OleVariant(sh);
Ex.Selection.Font.Size:=sh;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.