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

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

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

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

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

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

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

Пусть, например, требуется объединить ячейки "А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 в 11:21. Причина: Добавлено
SAS888 вне форума  
Старый 22.02.2008, 16:57   #24
Flangini
Форумчанин
 
Аватар для Flangini
 
Регистрация: 11.02.2008
Сообщений: 119
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


01:56.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.