Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
является ли имя именованной константой?
 
#1
04.04.2013 00:58:54
Как средствами vba определить является ли конкретное имя константой, т.е когда имя не ссылается на диапазон (ячейку)
 
 
 
#2
04.04.2013 01:07:44
Код
On Error Resume Next
Set r = Names("qwe").RefersToRange
If Err Then 'не диапазон
 
 
 
#3
04.04.2013 01:18:24
Я тоже так хотел в начале, но не проходит, поскольку именем может быть ни только ДИАПАЗОН, но и массив, и даже формула.....
Вытащить информацию, что не диапазон проще простого (например так, как вы указали)
 
 
 
#4
04.04.2013 07:44:04
- http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=47299
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#5
04.04.2013 14:31:46
что, нет решений. как красиво решить задачу?
 
 
 
#6
04.04.2013 15:44:58
evgmaz, а вот "на слабо" не нужно - проходили уже...
 
 
 
#7
04.04.2013 16:30:56
Не понимаю ответа, но если действительно нет содержательного решения, тогда смело закрывайте тему.....
Мне казалось, что это очень простая задача, судя по аналогичным вопросам, но мне самому не удавалась ее решить....
Никого обижать и брать на слабо не собирался. Об этом вы сами сказали.....
Спасибо!
 
 
 
#8
04.04.2013 16:39:34
.RefersToRange не сработает с русскими названиями функций типа СЧЁТ, ИНДЕКС и т.п., которые могут быть в именах динамических диапазонах. Надежнее так:
Код
Function IsRange(MyName As String) As Boolean
  IsRange = IsObject(Evaluate(MyName))
End Function


или так:
Код
Function IsRange(MyName As String) As Boolean
  On Error Resume Next
  With Evaluate(MyName).Cells: End With
  If Err Then Err.Clear Else IsRange = True
End Function


При проверке констант, полагаю, достаточно считать, что если не диапазон, то это константа
Изменено: ZVI - 04.04.2013 16:48:40
 
 
 
#9
04.04.2013 16:46:45
Цитата
ZVI пишет: При проверке, полагаю, достаточно считать, что если не диапазон, то это константа
А так считать нельзя, поскольку у меня бывают и именованные массивы и именованные формулы
 
 
 
#10
04.04.2013 17:02:11
Понятно, тогда можно, например, проще:
Код
Function IsConstant(MyName As String) As Boolean
  Dim s As String
  s = Trim(Mid(Names(MyName).RefersTo, 2))
  IsConstant = IsNumeric(s) Or Mid(s, 1, 1) = """"
End Function

Если тоже не годится, то приведите примеры имен констант и не констант, с идентификацией которых возникают проблемы. И укажите, что Вы считаете чем.
Например, для RefersTo: =1+2 или ="A"&"B" - это по результату константы, но с другой стороны - это вычисляемые константы, то есть формулы
Изменено: ZVI - 04.04.2013 17:10:55
 
 
 
#11
05.04.2013 03:53:35
Спасибо, сейчас изучаю ваше решение....
RefersTo: =1 - это константа
RefersTo: ==Лист2!$H$15+Лист2!$J$13 - это формула
RefersTo: ={"пн";"вт";"ср";"чт"} - это массив

Вы правильно уловили мой вопрос...из кучи возможных имен, нужно выбрать конкретного типа (в частности константы, и в частности массивы)
 
 
 
#12
05.04.2013 04:21:33
[QUOTE]ZVI пишет:
Понятно, тогда можно, например, проще:
Код
 Function IsConstant(MyName As String) As Boolean
  Dim s As String
  s = Trim(Mid(Names(MyName).RefersTo, 2))
  IsConstant = IsNumeric(s) Or Mid(s, 1, 1) = """"
End Function


Спасибо ZVI.... проверил, работает....
Я правильно понимаю, что для массива можно аналогично только фиг скобку надо выделять....
По другому никак?
 
 
 
#13
05.04.2013 06:25:41
Цитата
evgmaz: ... для массива можно аналогично только фиг скобку надо выделять.... По другому никак?
Всё правильно. Для идентификации массива можно и по другому, например:

Код
Function IsAnArray(MyName As String) As Boolean
  IsAnArray = TypeName(Evaluate(MyName)) = "Variant()"
End Function

' Или, если нужно похуже :-)
Function IsAnArray(MyName As String) As Boolean
  IsAnArray = IsArray(Evaluate(MyName)) And Not IsObject(Evaluate(MyName))
End Function


Для диапазона можно тоже по аналогии:
Код
Function IsRange(MyName As String) As Boolean
  IsRange = TypeName(Evaluate(MyName)) = "Range"
End Function
Изменено: ZVI - 05.04.2013 06:37:48
 
 
 
#14
05.04.2013 13:00:04
Спасибо ZVI, Вы даже помнится как-то уже помогали мне еще на старом форуме....

Собственно говоря, Вы продемонстрировали новый для меня аппарат программирования через TypeName и Evaluate. Раньше я только разбирал по частям строку для решения подобных задач.
Чувствовал, что можно как-то иначе (более красиво), но не знал!
 
 
 
#15
05.04.2013 13:35:11
ИМХО. Формально: Имя - это всегда переменная. Даже если =1 или ="а".
Раз стоит "=" , значит вычисляется; вычисляется, значит переменная.
 
 
 
Страницы: 1
Читают тему
Наверх