Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек / 16 сообщений из 16, страница 1 из 1
01.03.2006, 11:09:35
    #33572890
Al2006
Al2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Добрый день, уважаемые.
При выделении в книге EXCEL нескольких диапазонов с Ctrl и их объединении получется такой код:
Range("A3:A8,B3:B8,C3:C8,D3:D8").Select
Range("D3").Activate
Selection.Merge

Мне необъодимо в макросе перелопатить все строки и при наличии одинаковых объединить их

Сейчас делаю так (в цикле):
Worksheets(1).Range(Cells(x1, 2), Cells(X2 - 1, 2)).Select
'Selection.Merge
Только приходится для нескольких столбцов дублировать несколько раз с разными индексами.

Можно ли сделать объединение 5-6 столбцов одновременно как Excel делает или нет ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2006, 18:36:07
    #33575026
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Al2006Добрый день, уважаемые.
При выделении в книге EXCEL нескольких диапазонов с Ctrl и их объединении получется такой код:
Range("A3:A8,B3:B8,C3:C8,D3:D8").Select
Range("D3").Activate
Selection.Merge
Нельзя использовать Select!

Al2006Мне необъодимо в макросе перелопатить все строки и при наличии одинаковых объединить их
что значит "одинаковые строки"? Объединять ты можешь только группы прямоугольной формы конкретных ячеек. Делается это просто:
Код: plaintext
Range("A3:D8").Merge
Если нужно сделать объединения нескольких областей по отдельности, то команда будет другая:
Код: plaintext
Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
Простой метод Merge требует чтобы была активной хотя бы одна из ячеек внутри любой из объединямых областей.


Al2006Только приходится для нескольких столбцов дублировать несколько раз с разными индексами.Вообще-то, существует такая вещь как вложеные циклы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2006, 09:01:21
    #33575645
al2006
al2006
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
- Нельзя использовать Select!

Так ведь я привожу макрос, записанный в экселе (Макрос- Начать запись...)

- Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
А если мне надо объединить ячейки в цикле (допустим, те, в которых значения ячеек одинаковые)

Worksheets(1).Range(Cells(x1, 2), Cells(X2 - 1, 2)).Merge - это объединение ячеек второго столбца.

И получается, что данная операция будет повторяться раз 5-6, что довольно долго.

Вопрос-то как раз в том, как можно строку
Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true

приспособить для использования в цикле.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2006, 09:03:03
    #33575648
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Al2006Добрый день, уважаемые.
При выделении в книге EXCEL нескольких диапазонов с Ctrl и их объединении получется такой код:
Range("A3:A8,B3:B8,C3:C8,D3:D8").Select
Range("D3").Activate
Selection.Merge

Мне необъодимо в макросе перелопатить все строки и при наличии одинаковых объединить их

Сейчас делаю так (в цикле):
Worksheets(1).Range(Cells(x1, 2), Cells(X2 - 1, 2)).Select
'Selection.Merge
Только приходится для нескольких столбцов дублировать несколько раз с разными индексами.

Можно ли сделать объединение 5-6 столбцов одновременно как Excel делает или нет ?
может это тебе нужно?
Код: plaintext
1.
2.
x1 =  3 
x2 =  8 
Range("A" & x1 & ":A" & x2 -  1  & ",C" & x1 & " :C" & x2 -  1 ).MergeCells = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2006, 19:27:16
    #33578288
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
al2006- Нельзя использовать Select!
Так ведь я привожу макрос, записанный в экселе (Макрос- Начать запись...)
Я знаю :) Но что позволено Экселю не позволено всем остальным. Метод Select имеет очень много ограничений и он резко замедляет работу.

al2006- Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
А если мне надо объединить ячейки в цикле (допустим, те, в которых значения ячеек одинаковые)Ну тогда и делай себе цикл. Определяешь по каким-то критериям прямоугольную область, формируешь строку описывающую область и делаешь Range(MyArea).MergeCells=true.

al2006Вопрос-то как раз в том, как можно строку
Range("A3:A8,B3:B8,C3:C8,D3:D8").MergeCells = true
приспособить для использования в цикле.Ты в своем цикле можешь опеределить какие области надо объединять? Ну вот и сформируй строку описывающие одну, две, десять, сто двадцать две области за раз и отдай эту строку в метод Range. Сначала в цикле формируешь адресную строку, потом один раз обращаешься к Экселю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 10:43:01
    #34152539
.kbz
.kbz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
vkodor
Member
Столкнулась с этой же проблемой "Объединение ячеек", вот только не получается написать макросю. Очень нужна помощь!!!

julia
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 10:49:27
    #34152568
.kbz
.kbz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
vkodor
Member
Столкнулась с этой же проблемой "Объединение ячеек", вот только не получается написать макрос. Очень нужна помощь!!!

julia
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 10:53:41
    #34152597
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
.kbzvkodor
Member
Столкнулась с этой же проблемой "Объединение ячеек", вот только не получается написать макросю. Очень нужна помощь!!!

julia
Что сделано?
Как пробывали?
Выложите Ваши попытки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 11:02:23
    #34152647
.kbz
.kbz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
"Я только учюсь". Все попытки как начинающего, не сохранились, т.к. запуталась сама.
Все что было получено во времы обучения не смогла объединить, т.к. ничего похожего не давалось. Да и когда не пользуешься этим оно забывается.
С чего начать писать макрос!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 11:24:42
    #34152757
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
.kbz
С чего начать писать макрос!
Это вопрос?
Если да, тогда Вам сюда www.firststeps.ru
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 13:00:29
    #34153231
.kbz
.kbz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Спасибо за ссылку на сайт и спасибо за помощь. Помогло но немного.
Мне нужно объединить 4 ячейки-столбца с текстом и цифровой записью ("Учреждение, год окончания, специальность, № диплома") в один ("Диплом об образовании") записанные в строчку или череэ запятую в 1 ячейке. А потом все это продублировать на нижележащие строчки в стобце.
То что я просмотрела больше относятся к обработке цифровых записей.
Но все равно это больше всего того, что я смогла найти.

Julia
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 13:17:55
    #34153311
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
есть такая функция "СЦЕПИТЬ()"
допустим в А1,В1,С1,D1 есть информация
пишем в E1
=СЦЕПИТЬ(A1;", ";B1;", ";C1;", ";D1)
ну и жмем "Entire"
получаем (а впрочем сами посмотрите)
P.S. это называется не оьединение ячеек
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 13:24:46
    #34153333
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
как можно добавать символ к уже емеющимуся тексту в Excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 13:36:38
    #34153383
.kbz
.kbz
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
vkodorесть такая функция "СЦЕПИТЬ()"
допустим в А1,В1,С1,D1 есть информация
пишем в E1
=СЦЕПИТЬ(A1;", ";B1;", ";C1;", ";D1)
ну и жмем "Entire"
получаем (а впрочем сами посмотрите)
P.S. это называется не оьединение ячеек

Огромное спасибо!!
На этот раз получилось. До этого я использовала эту функцию, но ничего не вышло.
Спасибо всем за помощь!
julia
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2006, 11:48:02
    #34157175
Игорь Щ.
Игорь Щ.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Добрый день! Есть такой вопрос - при объединении ячеек постоянно вылезает окно с просьбой подтвердить слияние. Как от него избавиться? Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.11.2006, 12:54:26
    #34157434
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек
Выполнение макроса и диалоговые окна
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 502ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183861]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 203ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 206ms
total:  502ms
x
x
Закрыть


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