Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.07.2008, 17:07   #1
Katherina_Koval
 
Регистрация: 18.07.2008
Сообщений: 4
По умолчанию Объединение ячеек

как сделать, чтобы при объединении нескольких ячеек сохранялись данные из их всех, а не только из одной (например, были ячейки "имя", "отчество", "фамилия", а при объединении стала одна со всем этим содержимым)?
P.S. в Excel 2003
Katherina_Koval вне форума
Старый 28.07.2008, 18:06   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

При обьединении ячейек невозможно задать операцию обьединения.
Эксель недвузначно сигнализирует, что будут потеряны все данные кроме верхнего левого.

А обьединить фамилию, имя и отчество при условии, что они записаны соответственно в колонках А, В и С можно так =A1 & " " & B1 & " " & C1. Формулу пишем в любой свободной ячейке.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 28.07.2008, 20:51   #3
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

вот что пишет по этому поводу pashulka
Цитата:
Если в диапазоне, который требуется об'единить, окажется несколько заполненных ячеек, то на экране появится предупреждение (в виде диалогового окна) информирующее пользователя о том, что подобное об'единение приведёт к потере всех значений, кроме левого верхнего. Именно это и произойдёт, если кликнуть кнопку OK, однако, иногда требуется не только об'единить сами ячейки, но и сохранить, при этом, данные всех заполненных ячеек. Что, собственно говоря, и позволяет сделать процедура MyMerge, вызов которой - должен заменить стандартное об'единение (см.ниже)
Код:
Private Sub Call_MyMerge()
    
   'Range("B11:D12").Merge
   'Range("B11:D12").MergeCells = True
    
    MyMerge Range("B11:D12") 'Worksheets(1).Range("B11:D12")
    
End Sub

Public Sub MyMerge(iDiapazon As Range)
    With Application
         Dim iCell As Range
         For Each iCell In iDiapazon
             iText$ = iText$ & " " & CStr(iCell.Value)
         Next
         iText$ = .Trim(iText$)
         
         .DisplayAlerts = False
         With iDiapazon
              .WrapText = True
              .MergeCells = True '.Merge
              .Value = iText$
         End With
         .DisplayAlerts = True
    End With
End Sub
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 29.07.2008, 06:53   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Могу еще добавить, что можно организовать "перехват" команды объединения ячеек и заменить стандартную процедуру объединения, например, предложенным выше макросом.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объединение списков. life_burns Microsoft Office Excel 5 05.04.2008 16:13
Объединение ячеек в таблице SnakeMan Общие вопросы Delphi 2 01.04.2008 12:33
Объединение ячеек StringGrid Македонский Общие вопросы Delphi 1 15.11.2007 12:07
Объединение GWT-модулей ILester JavaScript, Ajax 0 24.10.2007 14:55
Объединение заказов asale Microsoft Office Excel 6 22.10.2007 19:05