Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Очистка именнованного диапазона с надписями - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка именнованного диапазона с надписями (Макросы/Sub)
Очистка именнованного диапазона с надписями
DmitriyL Дата: Воскресенье, 06.01.2019, 13:23 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2002
Здравствуйте, ув. профессионалы!

Задача: при помощи vba скопировать один именованный диапазон с содержащимися в нем надписями в другой. Причем сделать это таким образом, чтобы копирование происходило с замещением надписей, а не с их наложением одна на другую. Предварительная очистка второго диапазона методами Clear/ClearContents перед копированием ничего не дает (очищается все кроме надписей). Сам пример см. в прикрепленном файле

Или вообще скажите можно ли такое сделать? Может я от excel'я слишком многое хочу?!
К сообщению приложен файл: Test.xls(31.0 Kb)
 
Ответить
СообщениеЗдравствуйте, ув. профессионалы!

Задача: при помощи vba скопировать один именованный диапазон с содержащимися в нем надписями в другой. Причем сделать это таким образом, чтобы копирование происходило с замещением надписей, а не с их наложением одна на другую. Предварительная очистка второго диапазона методами Clear/ClearContents перед копированием ничего не дает (очищается все кроме надписей). Сам пример см. в прикрепленном файле

Или вообще скажите можно ли такое сделать? Может я от excel'я слишком многое хочу?!

Автор - DmitriyL
Дата добавления - 06.01.2019 в 13:23
RAN Дата: Воскресенье, 06.01.2019, 14:52 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4952
Репутация: 987 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub мяу()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If Not Intersect(Range("Диапазон_2"), shp.TopLeftCell) Is Nothing Then shp.Delete
    Next
    Range("Диапазон_1").Copy Range("Диапазон_2")
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub мяу()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If Not Intersect(Range("Диапазон_2"), shp.TopLeftCell) Is Nothing Then shp.Delete
    Next
    Range("Диапазон_1").Copy Range("Диапазон_2")
End Sub
[/vba]

Автор - RAN
Дата добавления - 06.01.2019 в 14:52
DmitriyL Дата: Воскресенье, 06.01.2019, 16:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2002
RAN, Спасибо! То, что надо
 
Ответить
СообщениеRAN, Спасибо! То, что надо

Автор - DmitriyL
Дата добавления - 06.01.2019 в 16:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Очистка именнованного диапазона с надписями (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!