Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 18.02.2008, 08:14   #21
Flangini
Форумчанин
 
Аватар для Flangini
 
Регистрация: 11.02.2008
Сообщений: 119
По умолчанию

SAS888 предоставил мне именно то что нужно, осталось только немного изменить макрос и можно бежать к начальству
Flangini вне форума
Старый 18.02.2008, 08:22   #22
Flangini
Форумчанин
 
Аватар для Flangini
 
Регистрация: 11.02.2008
Сообщений: 119
По умолчанию

А не подскажите как можно с помощью макроса объединять ячейки?
Flangini вне форума
Старый 18.02.2008, 10:12   #23
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,165
По умолчанию

Пусть, например, требуется объединить ячейки "А1" и "А2".
Если просто объединить, тогда:
Код:
Range("A1:A2").MergeCells = True
При этом Excel предупредит о том, что в объединенной ячейке будут наличествовать только данные первой ячейки объединяемого диапазона.
Если нужно предотвратить данное предупреждение, то перед объединением нужно вставить:
Код:
Application.DisplayAlerts = False
Но, как правило, требуется результат объединения поместить в центре созданной ячейки. тогда так:
Код:
Application.DisplayAlerts = False
    Range("A1:A2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With
Поэкспериментируйте.

P.S. Если нужно объединить и данные ячеек, то тогда через строковую переменную объединить, например, так:
Код:
Application.DisplayAlerts = False
    Dim MyString As String
    MyString = Range("A1") & Range("A2")
    Range("A1:A2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .MergeCells = True
    End With
    Selection = MyString

Последний раз редактировалось SAS888; 18.02.2008 в 10:21. Причина: Добавлено
SAS888 вне форума
Старый 22.02.2008, 15:57   #24
Flangini
Форумчанин
 
Аватар для Flangini
 
Регистрация: 11.02.2008
Сообщений: 119
По умолчанию

Огромное спасибо!!!
Flangini вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск значений Rom1k06 Microsoft Office Excel 11 04.09.2008 04:14
Удаление повторяющихся записей gavrylyuk Microsoft Office Excel 3 28.06.2008 07:10
SQL-запрос на выбор повторяющихся строк stepchild БД в Delphi 2 07.06.2008 09:52
Запись файлов в *.тхт с учетом повторяющихся значений Arteom Общие вопросы Delphi 3 03.04.2008 16:26
Поиск свободных значений в столбце IDENTITY sqlnovichok SQL, базы данных 0 07.03.2008 09:12


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS