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

Вход

Регистрация

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

 

= Мир MS Excel/Добавить значение к существующему ключу в Dictionary - Мир MS Excel

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

Excel 2007
Здравствуйте,

Подскажите, пожалуйста, как можно добавить значение в словарь, если ключ уже сущесвует. Например есть два столбца
А 100
А -10
А 50
Как можно сделать, чтобы конечный результат в словаре был А 140?
Спасибо.
 
Ответить
СообщениеЗдравствуйте,

Подскажите, пожалуйста, как можно добавить значение в словарь, если ключ уже сущесвует. Например есть два столбца
А 100
А -10
А 50
Как можно сделать, чтобы конечный результат в словаре был А 140?
Спасибо.

Автор - Bregra
Дата добавления - 16.02.2017 в 13:07
Roman777 Дата: Четверг, 16.02.2017, 13:26 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 732
Репутация: 80 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Bregra, вот Вам примерчик:
[vba]
Код
Sub dict()
Dim dict As Object, key$
Set dict = CreateObject("Scripting.dictionary")
key = "A"
dict.Add key, 90
MsgBox dict("A")
dict.Remove key
dict.Add key, 180
MsgBox dict("A")
End Sub
[/vba]


Много чего не знаю!!!!
 
Ответить
СообщениеBregra, вот Вам примерчик:
[vba]
Код
Sub dict()
Dim dict As Object, key$
Set dict = CreateObject("Scripting.dictionary")
key = "A"
dict.Add key, 90
MsgBox dict("A")
dict.Remove key
dict.Add key, 180
MsgBox dict("A")
End Sub
[/vba]

Автор - Roman777
Дата добавления - 16.02.2017 в 13:26
Bregra Дата: Четверг, 16.02.2017, 13:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо. Все получилось
 
Ответить
СообщениеСпасибо. Все получилось

Автор - Bregra
Дата добавления - 16.02.2017 в 13:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить значение к существующему ключу в Dictionary (Макросы/Sub)
Страница 1 из 11
Поиск:

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