Форматирование ячеек - Microsoft Office Excel - Страница 2

Andr · 17.08.2007, 23:55

"XlApp.ActiveWorkBook.WorkSheet s[Edit5.Text].Range['E1'].Value := tmp;" - уже понял, что сам код правильный, а дело в самой ячейке Е1. Перед этим я объединял ее с другими. Так что сделать, чтоб в нее можно было записывать?

pashulka · 18.08.2007, 14:16

Давайте попробуем использовать(адаптировать) что-то вроде нижеопубликованного варианта :

Код:

With ActiveWorkbook.Worksheets(1).Range("E1")
     If .MergeCells = True Then
        .MergeArea.Item(1).Value = "XYZ"
     Else
        .Value = "XYZ"
     End If
End With

Andr · 18.08.2007, 20:15

Наконец - то заработало!! Огромное тебе спасибо, что помог!!!

18.08.2007, 14:16	#12
pashulka Форумчанин Регистрация: 03.11.2006 Сообщений: 524	Давайте попробуем использовать(адаптировать) что-то вроде нижеопубликованного варианта : Код: `With ActiveWorkbook.Worksheets(1).Range("E1") If .MergeCells = True Then .MergeArea.Item(1).Value = "XYZ" Else .Value = "XYZ" End If End With`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Форматирование ячеек	shmelvs	Microsoft Office Excel	6	24.07.2008 10:24
Условное форматирование ячеек.	Иван	Microsoft Office Excel	2	24.11.2007 13:49
Условное форматирование	Asu	Microsoft Office Excel	2	18.10.2007 10:14
Форматирование чисел	Gorin	Общие вопросы Delphi	11	26.09.2007 10:30
Условное форматирование + размер ячеек.	Hellen	Microsoft Office Excel	5	07.01.2007 20:49

17.08.2007, 23:55	#11
Andr Пользователь Регистрация: 11.04.2007 Сообщений: 75	"XlApp.ActiveWorkBook.WorkSheet s[Edit5.Text].Range['E1'].Value := tmp;" - уже понял, что сам код правильный, а дело в самой ячейке Е1. Перед этим я объединял ее с другими. Так что сделать, чтоб в нее можно было записывать?

18.08.2007, 20:15	#13
Andr Пользователь Регистрация: 11.04.2007 Сообщений: 75	Наконец - то заработало!! Огромное тебе спасибо, что помог!!!