ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в Excel объединить ячейки ?
5 сообщений из 5, страница 1 из 1
Как в Excel объединить ячейки ?
    #34604186
Александр GAGADDDOC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр GAGADDDOC
Участник
Добрий день !

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

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

С уважением Александр.
...
Рейтинг: 0 / 0
19.06.2007, 11:50
| Ответить | Цитировать | Написать  
Как в Excel объединить ячейки ?
    #34604361
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
Код: plaintext
objExcel.Range(objExcel.Cells( 1 ,  1 ), objExcel.Cells( 1 ,  9 )).Merge
...
Рейтинг: 0 / 0
19.06.2007, 12:25
| Ответить | Цитировать | Написать  
Как в Excel объединить ячейки ?
    #34606651
Александр GAGADDDOC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр GAGADDDOC
Участник
Код работает 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, 09:24
| Ответить | Цитировать | Написать  
Как в Excel объединить ячейки ?
    #34607666
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
Александр 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, 13:43
| Ответить | Цитировать | Написать  
Как в Excel объединить ячейки ?
    #34608564
Александр GAGADDDOC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Александр GAGADDDOC
Участник
С П А С И Б О !
Все нормально.
...
Рейтинг: 0 / 0
20.06.2007, 17:05
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в Excel объединить ячейки ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/moderation_log.php?user_name=guestfromrussia]:
 0ms
get settings:
 5ms
get forum list:
 8ms
get settings:
 4ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 192ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 455ms
total:  740ms
созд. / загр.: 740ms
x
x
Закрыть


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