Автоподгонка размера ячейки в Excel

← →
Voldemar © (2002-08-16 02:26) [0]

Доброе время суток!
Проблема состоит в следующем: когда я передаю данные в Excel такой методой Sheet.cells[x,y]:=MyString;
как бы мне сделать, чтобы ширина ячейки соответствовала длине строки? Или хотя бы жестко задать ширину...

← →
Ekaterina © (2002-08-16 06:59) [1]

Sheet.Columns[y].AutoFit

← →
Voldemar © (2002-08-16 17:25) [2]

Great TNX!

Теперь возникла другая проблема: у меня частенько встречаются значения типа 000, 02 и т.п., причем число нулей очень существенно. Но вредный Excel самостоятельно преобразовывает их в числовой формат со всеми вытекающими (обрезает "лишние" нули)... Как это побороть?

← →
TTCustomDelphiMaster © (2002-08-16 19:29) [3]

Voldemar © (16.08.02 17:25)
Делать формат ячейки текстовым.

← →
Voldemar © (2002-08-16 20:37) [4]

>TTCustomDelphiMaster © (16.08.02 19:29)
Серьезно?! :)) А мне бы и в голову не пришло...:))

Я именно об этом и спрашиваю - КАК его делать текстовым? Естественно, не открывая предварительно excel, чтобы заняться этим ручками, а при создании книги или добавлении текста в ячейку из программы. Хотя я уже решил этот вопрос, правда, несколько извращенно - добавляя пустую строку в начало данных в каждой ячейке. Но хотелось бы грамотное решение...

← →
TTCustomDelphiMaster © (2002-08-16 22:07) [5]

Voldemar © (16.08.02 20:37)
примерно так
Range.NumberFormat := "@"

>TTCustomDelphiMaster © (16.08.02 22:07)
Вот это уже конкретика... Благодарю.

PS. А где бы надыбать RTFM по этому вопросу? В делфовом хелпе ну очень уж скудно это описано, а Code Completing в этих случаях не работает, да и работать не должен...

1. Excel - Сервис - макрос - начать запись. Потом просмотр в редакторе VB.
2. Поставить help по VB из поставки office.
3. MSDN Library.

>Voldemar
>>Я именно об этом и спрашиваю - КАК его делать текстовым?

Sheet.cells[x,y]:= """"+"000";
Excel сам "подумает" что это текстовое значение, причем символа """ не будет видно.
ЗЫ. Просто добавь символ """ перед значением.

Автоподгонка размера ячейки в Excel Найти похожие ветки