Поставить enter в ячейке excel

@2serg1 · Регистрация: 05.05.2013

Author24 — интернет-сервис помощи студентам

Как средствами делфи вставить в ячейку enter (иными словами alt+enter).
Пробую так 'текст' + #13#10 + 'текст' перенос строки в ячейке происходит, но при этом в месте entera отображается нередактируимый символ в виде 'квадратика'

@Mawrat · 23.01.2015, 10:21

Там перенос строки задаётся одним знаком - #10.

@2serg1 · 27.01.2015, 20:53 **[ТС]**

Я пробовал все равно этот знак отображается

@Mawrat · 28.01.2015, 05:15

Я проверял в MS Excel из MS Office версий 2007 и 10. При использовании знака #10 содержимое ячейки без лишних символов сформировалось:

Delphi

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  exApp, exBook, exSh : OleVariant;
begin
  exApp := CreateOleObject('Excel.Application');
  exApp.Visible := True;
  exBook := exApp.Workbooks.Add; //Создаём книгу.
  exSh := exBook.Worksheets[1];  //Первый лист рабочей книги.
 
  exSh.Cells[1, 1].Value := 'текст1'#10'текст2';
end;

Если в MS Excel записать макрос с действием по переносу строки в ячейке (Alt+Enter), то его содержимое получается таким:

Visual Basic

Sub Макрос1()
'
' Макрос1 Макрос
'
 
    ActiveCell.FormulaR1C1 = "текст1" & Chr(10) & "текст2"
End Sub

Т. е., для переноса строк в ячейке используется отдельный символ: #10.

@2serg1 0 / 0 / 1 Регистрация: 05.05.2013 Сообщений: 158
		1
	Поставить enter в ячейке excel 22.01.2015, 18:31. Показов 5407. Ответов 3 Метки нет (Все метки) Как средствами делфи вставить в ячейку enter (иными словами alt+enter). Пробую так 'текст' + #13#10 + 'текст' перенос строки в ячейке происходит, но при этом в месте entera отображается нередактируимый символ в виде 'квадратика' 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	23.01.2015, 10:21	2
	Там перенос строки задаётся одним знаком - #10. 0

@2serg1 0 / 0 / 1 Регистрация: 05.05.2013 Сообщений: 158
	27.01.2015, 20:53 [ТС]	3
	Я пробовал все равно этот знак отображается 0

	28.01.2015, 05:15