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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление именованных диапазонов. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удаление именованных диапазонов.
gling Дата: Пятница, 07.03.2014, 20:28 | Сообщение № 1
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2560
Репутация: 701 ±
Замечаний: 0% ±

2010
Здравствуйте уважаемые Форумчане! Девушек поздравляю с наступающим праздником.
Хочу заполнить пустоту в понятии Ecxel. При копировании листа в другую книгу, именованные диапазоны тоже копируются. При разрыве связей, связи почему то, не разрываются. Вышел из положения копированием и вставкой значений в лист. Связи в формулах отсутствуют, но они остаются в именованных диапазонах. Возможно ли эти все именованные диапазоны, разом удалить. Своими попытками я определил, что необходимо для удаления, в макросе прописать имя диапазона. Вопрос 1- можно ли не обозначая имя диапазона (т.к. их несколько и все неизвестны) удалить все имена из книги или с листа.
Вопрос 2- Влияют ли именованные диапазоны на скорость обработки или объем файла.
Думаю что файл в этом случае не нужен.
Спасибо за любую информацию и помощь.
Извиняюсь. Наверно это тема скорей всего должна быть в вопросах по VBA. Просьба к Модераторам перенести.


ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 07.03.2014, 21:21
 
Ответить
СообщениеЗдравствуйте уважаемые Форумчане! Девушек поздравляю с наступающим праздником.
Хочу заполнить пустоту в понятии Ecxel. При копировании листа в другую книгу, именованные диапазоны тоже копируются. При разрыве связей, связи почему то, не разрываются. Вышел из положения копированием и вставкой значений в лист. Связи в формулах отсутствуют, но они остаются в именованных диапазонах. Возможно ли эти все именованные диапазоны, разом удалить. Своими попытками я определил, что необходимо для удаления, в макросе прописать имя диапазона. Вопрос 1- можно ли не обозначая имя диапазона (т.к. их несколько и все неизвестны) удалить все имена из книги или с листа.
Вопрос 2- Влияют ли именованные диапазоны на скорость обработки или объем файла.
Думаю что файл в этом случае не нужен.
Спасибо за любую информацию и помощь.
Извиняюсь. Наверно это тема скорей всего должна быть в вопросах по VBA. Просьба к Модераторам перенести.

Автор - gling
Дата добавления - 07.03.2014 в 20:28
ikki Дата: Пятница, 07.03.2014, 22:08 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
1. [vba]
Код
For Each n In ThisWorkbook.Names: n.Delete: Next
[/vba]
2. да


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение1. [vba]
Код
For Each n In ThisWorkbook.Names: n.Delete: Next
[/vba]
2. да

Автор - ikki
Дата добавления - 07.03.2014 в 22:08
gling Дата: Пятница, 07.03.2014, 22:26 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2560
Репутация: 701 ±
Замечаний: 0% ±

2010
ikki Спасибо за ответ сейчас попробую Ваше решение.


ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 07.03.2014, 22:26
 
Ответить
Сообщениеikki Спасибо за ответ сейчас попробую Ваше решение.

Автор - gling
Дата добавления - 07.03.2014 в 22:26
ikki Дата: Пятница, 07.03.2014, 22:38 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
для удаления имён уровня листа чуть иначе, хотя принцип тот же
[vba]
Код
for each s in thisworkbook.sheets
     for each n in s.names: n.delete: next
next
[/vba]


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениедля удаления имён уровня листа чуть иначе, хотя принцип тот же
[vba]
Код
for each s in thisworkbook.sheets
     for each n in s.names: n.delete: next
next
[/vba]

Автор - ikki
Дата добавления - 07.03.2014 в 22:38
gling Дата: Пятница, 07.03.2014, 23:47 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2560
Репутация: 701 ±
Замечаний: 0% ±

2010
ikki Посмотрите пожалуйста, что не так. Я в макросах не спец. Ругается на n.Delete:. При открытых обоих книгах из Отчета хочу убрать связь (точнее именные диапазоны) в книге Февраль, Макросом1.
К сообщению приложен файл: 1934008.rar (69.0 Kb)


ЯД-41001506838083
 
Ответить
Сообщениеikki Посмотрите пожалуйста, что не так. Я в макросах не спец. Ругается на n.Delete:. При открытых обоих книгах из Отчета хочу убрать связь (точнее именные диапазоны) в книге Февраль, Макросом1.

Автор - gling
Дата добавления - 07.03.2014 в 23:47
Serge_007 Дата: Суббота, 08.03.2014, 01:03 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Возможно ли эти все именованные диапазоны, разом удалить?
Без макросов:
1. Ctrl+F3
2. Shift+End
3. Delete
4. Enter

[p.s.]В версиях Excel ниже 2007 этот способ работать не будет[/p.s.]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Возможно ли эти все именованные диапазоны, разом удалить?
Без макросов:
1. Ctrl+F3
2. Shift+End
3. Delete
4. Enter

[p.s.]В версиях Excel ниже 2007 этот способ работать не будет[/p.s.]

Автор - Serge_007
Дата добавления - 08.03.2014 в 01:03
gling Дата: Суббота, 08.03.2014, 02:28 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2560
Репутация: 701 ±
Замечаний: 0% ±

2010
Serge_007 Спасибо. Как руками это сделать я знаю. Хотел эту процедуру завязать в цикл. Готовится отчет, копия его сохраняется в другой книге, далее этот отчет распечатывается, готовится следующий отчет. Особо эти диапазоны не напрягают. Не получится не страшно. Думал может всё же есть способ стереть их с листа.


ЯД-41001506838083
 
Ответить
СообщениеSerge_007 Спасибо. Как руками это сделать я знаю. Хотел эту процедуру завязать в цикл. Готовится отчет, копия его сохраняется в другой книге, далее этот отчет распечатывается, готовится следующий отчет. Особо эти диапазоны не напрягают. Не получится не страшно. Думал может всё же есть способ стереть их с листа.

Автор - gling
Дата добавления - 08.03.2014 в 02:28
Michael_S Дата: Суббота, 08.03.2014, 03:58 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
[vba]
Код
Sub Макрос1()
Dim n As Variant
     Windows("Февраль.xlsx").Activate
For Each n In ActiveWorkbook.Names:
On Error Resume Next
n.Delete:
Next
     Windows("Отчет.xlsm").Activate
End Sub

[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Макрос1()
Dim n As Variant
     Windows("Февраль.xlsx").Activate
For Each n In ActiveWorkbook.Names:
On Error Resume Next
n.Delete:
Next
     Windows("Отчет.xlsm").Activate
End Sub

[/vba]

Автор - Michael_S
Дата добавления - 08.03.2014 в 03:58
gling Дата: Суббота, 08.03.2014, 08:39 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2560
Репутация: 701 ±
Замечаний: 0% ±

2010
Michael_S Спасибо! Всё сработало как надо.
Всем спасибо принявшим участие.


ЯД-41001506838083

Сообщение отредактировал gling - Суббота, 08.03.2014, 08:41
 
Ответить
СообщениеMichael_S Спасибо! Всё сработало как надо.
Всем спасибо принявшим участие.

Автор - gling
Дата добавления - 08.03.2014 в 08:39
  • Страница 1 из 1
  • 1
Поиск:

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