Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек / 4 сообщений из 4, страница 1 из 1
02.12.2013, 10:36
    #38485606
Just_Serg
Just_Serg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Доброго дня всем!

Столкнулся с проблемой - не выполняется процедура объединения ячеек.
Делаю так:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
    ThisWorkbook.Worksheets("8703").Range("B36:B39").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With



Причем, сам по себе код выполняется. Не выполняется от при запуске отдельной процедурой. При запуске отдельной процедурой - лист 8703 не активен. Что можно попробовать сделать? Может, есть другие способы объединения ячеек?
Заранее благодарен за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2013, 11:17
    #38485664
Just_Serg
Just_Serg
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Разобрался. Тема закрыта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2013, 11:18
    #38485665
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Ничего не понял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2013, 12:35
    #38485789
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
F,

Да чего понимать. Человек перед выполнением с другого листа пытался активировать сразу ячейку, не активируя лист с ней. Хотя активация вообще лишняя:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    With ThisWorkbook.Worksheets("8703").Range("B36:B39")
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With


Но можно еще проще:
Код: vbnet
1.
ThisWorkbook.Worksheets("8703").Range("B36:B39").MergeCells = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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