Имена и макрос - Мир MS Excel

Дата: Воскресенье, 03.11.2013, 11:35 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мяу!
В книге есть скрытые имена
[vba]

Код

_xlfn.IFERROR
_xlfn.SUMIFS

[/vba]
Для этих имен выполняется
[vba]

Код

nm.Visible = True

[/vba]
но не выполняется
[vba]

Код

nm.Visible = False

[/vba]
А при попытке удаления
[vba]

Код

nm.Delete

[/vba]
вываливается ошибка.

Причем вручную эти имена удаляются без проблем.

К сообщению приложен файл: 1639676.jpg (18.6 Kb)

Быть или не быть, вот в чем загвоздка!

Дата: Воскресенье, 03.11.2013, 12:02 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

гав! где файлик?

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Воскресенье, 03.11.2013, 12:02

Serge_007

Дата: Воскресенье, 03.11.2013, 12:06 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата RAN, 03.11.2013 в 11:35, в сообщении № 1

_xlfn.IFERROR
_xlfn.SUMIFS

Точно имена? Это ведь так 2003 и ниже воспринимает функции ЕСЛИОШИБКА и СУММЕСЛИМН

ЮMoney:41001419691823 | WMR:126292472390

Дата: Воскресенье, 03.11.2013, 12:12 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мяу!

PS Обижаешь, начальник!

К сообщению приложен файл: 7845705.xlsb (18.5 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 03.11.2013, 12:13

Дата: Воскресенье, 03.11.2013, 12:29 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

у меня всё удалилось таким вариантом кода:
[vba]

Код

Sub aa()
     Dim nm As Name
     For Each nm In ThisWorkbook.Names
         nm.Visible = True
         nm.Delete
     Next
End Sub

[/vba]
(в текущий момент под рукой - версия 2003 с конвертером)

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Дата: Воскресенье, 03.11.2013, 12:41 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

А у меня не хочет. (2007).
Visible срабатывает, а Delete - ошибка.

Быть или не быть, вот в чем загвоздка!

Дата: Воскресенье, 03.11.2013, 12:47 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

Репутация: 504 ±

Замечаний: 0% ±

Excel 2003, 2010

именно на Delete ошибка?
или на Debug.Print nm.Name после Delete?

пс. я знаю, что вопрос глупый, но вдруг...

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Дата: Воскресенье, 03.11.2013, 12:53 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Именно Delete
Попробовал так
[vba]

Код

Sub aa()
     Dim nmm As Names
     Set nmm = ThisWorkbook.Names
     For i = 1 To nmm.Count
         nmm(i).Delete
     'Debug.Print nmm(i).Name
     Next
End Sub

[/vba]

Писать - пишет, а удалять не хочет.

Быть или не быть, вот в чем загвоздка!