Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в Excel объединить ячейки ? / 5 сообщений из 5, страница 1 из 1
19.06.2007, 11:50
    #34604186
Александр GAGADDDOC
Александр GAGADDDOC
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel объединить ячейки ?
Добрий день !

Код рисует линии вокруг ячейки 1,1
objExcel.ActiveSheet.Cells(1, 1).Borders.LineStyle = xlContinuous

А как объединить строки, например с 1 по 9 ячейку. (1,1 по 1,9)

С уважением Александр.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2007, 12:25
    #34604361
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel объединить ячейки ?
Код: plaintext
objExcel.Range(objExcel.Cells( 1 ,  1 ), objExcel.Cells( 1 ,  9 )).Merge
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2007, 09:24
    #34606651
Александр GAGADDDOC
Александр GAGADDDOC
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel объединить ячейки ?
Код работает objExcel.ActiveSheet.Range(Cells(i, 2), Cells(i, 9)).Merge
но после второго запуска (не выходя з программы) выдает ошибку.
Method 'Cells'of object'_Global' failed
если с программы выйти и снова печатать, все нормально.

Excel закрываю так
objExcel.Quit
Set objExcel = Nothing

В чем может быть ошибка ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2007, 13:43
    #34607666
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel объединить ячейки ?
Александр GAGADDDOCКод работает objExcel.ActiveSheet.Range(Cells(i, 2), Cells(i, 9)).Merge
но после второго запуска (не выходя з программы) выдает ошибку.
Method 'Cells'of object'_Global' failed
если с программы выйти и снова печатать, все нормально.

Excel закрываю так
objExcel.Quit
Set objExcel = Nothing

В чем может быть ошибка ?

Сравни свой код:
Код: plaintext
objExcel.ActiveSheet.Range(Cells(i,  2 ), Cells(i,  9 )).Merge

И мой:
Код: plaintext
objExcel.Range(objExcel.Cells( 1 ,  1 ), objExcel.Cells( 1 ,  9 )).Merge
надеюсь, теперь понятно, почему Method 'Cells'of object'_Global' failed
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.06.2007, 17:05
    #34608564
Александр GAGADDDOC
Александр GAGADDDOC
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Excel объединить ячейки ?
С П А С И Б О !
Все нормально.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в Excel объединить ячейки ? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 632ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163827]:
 0ms
get settings:
 6ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 334ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 208ms
total:  632ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]