Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Элементы именнованного массива констант из VBA
 
#1
10.10.2011 18:40:10
Подскажите, а можно обратиться из VBA к конкретным элементам именнованного массива констант?  
Как это сделать?
 
 
 
#2
10.10.2011 18:44:24
А что такое "именнованный массив" ?
 
 
 
#3
10.10.2011 18:49:50
Как к элементу массива? :О)  
Если массив М() содержит константы, то М(2) вернет 3 элемент (по умолчанию в массиве отсчет с 0)
 
 
 
#4
10.10.2011 18:51:37
Создается имя (например "ДНИ"), где вместо диапозона указывается массив, например,    
={"пн";"вт";"ср";"чт";"пт";"сб"}  
К каждому элементу в Эксель можно обратиться, например, через функцию ИНДЕКС.    
Вопрос заключается в том, а можно ли обратиться к указанным элементам через VBA?
 
 
 
#5
10.10.2011 18:54:29
попробуйте написать формат записи в VBA?
 
 
 
#6
10.10.2011 19:01:07
Я обычно пишу так:  
 
ДНИ = Split("пн вт ср чт пт сб")  
 
Получается массив с первым индексом 0, т.е.  
ДНИ(0) = "пн"  
ДНИ(1) = "вт"  
и т.д.
 
 
 
#7
10.10.2011 19:05:34
Народ, вы не поняли: создавать массивы в VBA и использовать их (в том числе обращаться к элементам массива) проблем нет!  
Проблема как обращаться из VBA к элементам и работать с элементами массива созданного в Excel?
 
 
 
#8
10.10.2011 19:12:22
Может так?  
 
Sub tt()  
Dim a  
a = [ДНИ]
MsgBox a(1)  
End Sub
 
 
 
#9
10.10.2011 19:18:28
Уважаемый Hugo, все здорово работает и как надо!  
Только я не понял, что это за обращение в квадратных скобках, никогда в литературе по вба не встречал!  
Все так просто, аж не вериться!
 
 
 
#10
10.10.2011 19:23:40
А может еще можно вносить из vba элементы в именнованный диапозон excel&
 
 
 
#11
10.10.2011 19:24:11
А я литературу не читал :)
 
 
 
#12
10.10.2011 19:31:38
{quote}{login=asdom}{date=10.10.2011 07:23}{thema=Re: }{post}А может еще можно вносить из vba элементы в именнованный диапозон excel&{/post}{/quote}  
[ДНИ].Item(3) = "asd"
Я сам - дурнее всякого примера! ...
 
 
 
#13
10.10.2011 19:32:54
Как-то грубо, но работает.  
Сам принцип может быть такой:  
 
 
Sub tt()  
Dim a  
a = [ДНИ]
MsgBox a(1)  
ReDim Preserve a(UBound(a))  
a(UBound(a)) = "пятница"  
ActiveWorkbook.Names.Add Name:="ДНИ", RefersToR1C1:=a  
End Sub  
 
Как править именно в имени - не нашёл.
 
 
 
#14
10.10.2011 19:34:05
А Сергей уже... Я про Итем не подумал...  
Теперь этого должно хватить на все случаи :)
 
 
 
#15
10.10.2011 19:38:24
Хм.. Сергей, не работает... Почему?
 
 
 
#16
10.10.2011 19:40:56
Стоп, работает, извиняюсь.  
"в именнованный диапозон" работает.  
А в "={"пн";"вт";"ср";"чт";"пт";"сб"}" - не работает.
 
 
 
#17
10.10.2011 19:41:13
См.
Я сам - дурнее всякого примера! ...
 
 
 
#18
10.10.2011 19:43:41
Игорь, для ВБА "={"пн";"вт";"ср";"чт";"пт";"сб"}" - это строка а не массив. И работать с ней надо соответственно.
Я сам - дурнее всякого примера! ...
 
 
 
#19
10.10.2011 19:51:21
[ДНИ].Item(3) = "asd" прекрасно работает, если ДНИ это именнованный диапозон!
Если ДНИ это именнованный маасив констант, то не работает! Что жалко, поскольку очень простой способ добавления бы был?
 
 
 
#20
10.10.2011 19:57:13
Не, погоди...  
См. файл
 
 
 
#21
10.10.2011 19:58:58
Это я Сергею отвечал :)  
А в файле как раз показано добавление.
 
 
 
#22
10.10.2011 20:02:11
А можно сделать так, чтобы в квадратных скобках была переменная (скажем типа String), которая в случае необходимости принимала бы различные значения, в том числе ДНИ (как в нашем примере)?
 
 
 
#23
10.10.2011 20:09:19
Не совсем в тему, но раз уж про константы заговорили...  
 
Enum MyConst  
Ania = 1  
Bania = 2  
Cania = 3  
End Enum  
 
Sub io()  
Dim x As MyConst  
x = Ania  
MsgBox x  
End Sub
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#24
10.10.2011 20:18:01
Это что-то вроде словаря получается...  
По поводу править - так в моём примере и можно править.  
Перебирайте массив а, или конкретное значение меняйте на что угодно, потом пишите его назад в имя.  
Кстати, так вполне можно что-то своё хранить в именах, особенно если это имя сделать скрытым. И никакого скрытого листа не нужно.
 
 
 
#25
10.10.2011 20:25:29
Игорь, я как раз написал(отвлекли):  
Public Sub www()  
   Dim a  
   a = [Дни]
   a(2) = "kjg"  
   Application.Names.Add Name:="Дни", RefersTo:=a  
   MsgBox Application.Index([Дни], 2)
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#26
10.10.2011 20:26:34
Как менять туда и извлекать обратно, это уже благодаря вас стало понятно, спасибо!  
 
Не работает вот что:  
st = "ДНИ"  
a = [st]
 
обращение к a(1) в этом случае уже выдает ошибку!  
Хочется чтобы мобильно меняя имя именнованного диапозона можно было бы мобильно обращаться к элементам данного именнованного диапозона!
 
 
 
#27
10.10.2011 20:29:39
т.е в идеале хочется заполучить следующую функцию:  
Fun(mas As String, i As Integer)  
 
mas имя именнованного диапозона, созданного в Эксель (а не в вба)  
i - порядковый элемент этого диапозона
 
 
 
#28
10.10.2011 20:31:13
пардон, не диапозона, а массива констант...
 
 
 
#29
10.10.2011 20:32:27
а что там должно работать?  
st="ДНИ" это присвоение переменной st значения текстовой строки ДНИ  
а=[st] попытка обратиться к диапазону st (а он существует?)
 
 
 
#30
10.10.2011 20:33:27
>>Как менять туда и извлекать обратно, это уже благодаря вас стало понятно, спасибо!  
Кстати, если уже что-то меняете, то это не константы : )
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх