Как тип ячейки поменят в текстовый?

[Дамир]

Нужна подсказка.Как тип ячейки поменят в текстовый?Заранее благодарен.

[pashulka]

Если Вы хотите установить текстовый формат, то выделите нужную ячейку или диапазон ячеек и [1] в меню Формат выберите команду Ячейки или [2] кликните правой кнопкой мышки и в контекстном меню выберите команду Формат ячейки, либо [3] используйте клавиши CTRL+1
Затем, в появившемся стандартном диалоговом окне, выделите закладку Число, в списке Числовые форматы выберите Текстовый и нажмите кнопку OK.

Обратите внимание на то, что установка текстового формата порой приводит к негативным последствиям, например, если впоследствии эти ячейки используются для ввода числовых значений. Поэтому, перед тем как совершить подобное действо, на мой взгляд, имеет смысл подумать над тем, а стоит ли овчинка выделки, ведь для ввода текста - подобное изменение излишне, а для ввода числа с лидирующим нулем или текста формулы можно использовать апостроф, например '0123

[Slim]

Правой кнопкой мыши на ячейку, в списке выбрать "формат ячеек", в открывшемся окошке самая левая вкладка "Число", в списке на этой вкладке выбрать "Текстовый" и нажать ок

Если интересует макрос, то:

cells(1, 1).NumberFormat = "@"

P.S. не успел - опередили

[pashulka]

Сообщение от Slim

Если интересует макрос, то:
Cells(1, 1).NumberFormat = "@"

Попытка изменить параметры форматирования в рабочем листе, который защищён в отношении содержимого, приведёт к возникновению ошибки (исключение составляет MS Excel XP и старше, ибо в этих версиях, при установке защиты листа можно разрешить форматирование ячеек)
Поэтому, перед выполнением подобного действа, весьма желательно проверить защиту листа, ячейки которого должны подвергнуться форматированию. Кроме того, в большинстве случаев, лучше не полагаться на то, что активным листом окажется лист имеющий ячейки, а явно указать родителей, например :

With ThisWorkbook.Worksheets(1)
     If Not .ProtectContents Then
        .Cells(1).NumberFormat = "@"
     Else
        MsgBox "Не срослось", vbInformation, ""
     End If
End With

[Дамир]

Пардон. Ошибся, некорректно задал вопрос. Как прогрммно средствами Delphi изменить формат ячейки Excel в текстовий?
У меня данные из запроса отправляются в книгу. Косяк: в ячейку отправляется "01-28", получается "28 янв."

[pashulka]

Дамир, Если на этом ресурсе нет искомой информации, то посмотрите здесь. И будем надеяться, что эта ссылка окажется Вам полезна.

[Дамир]

pashulka,благодарю!Помогло!