Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.73/75: Рейтинг темы: голосов - 75, средняя оценка - 4.73
6 / 6 / 0
Регистрация: 02.06.2014
Сообщений: 65

словарь словарей

30.03.2017, 00:58. Показов 16312. Ответов 30
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте.
Я долго время пытался создать словарь словарей, перечитал различные методы предложенные тут на форуме, поэкспериментировал, но увы ни чего не получилось.
Если коротко, в фале есть 4 стр, мне нужно сделать поиск в 3 стр(кроме 1), найти соответствие номера заявки к лаб номеру(ищу заявку прибавляю к ней 1 столбеец) и с мг/дм.
должно получиться как-то так
{ключ-лаб номер;итем-[ключ-элемент(название стр);итем-с,мг/дм3)]}
прошу вашей помощи с кодом словарей, что-то я совсем запутался как их формировать
P.S. с vba только знакомлюсь и пользуюсь модулем 2, который имеется в книге
Вложения
Тип файла: xls resul.xls (92.0 Кб, 32 просмотров)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.03.2017, 00:58
Ответы с готовыми решениями:

Словарь словарей плюс Коллекция массивов
Здрасьте! Что-то я или запутался совсем, или лечить пора. Создал Dict (ключи - значения ячейки текущего ряда r столбца 11)....

Словарь словарей или что-то подобное
Здраствуйте. Может кто направит мою бедную голову на правильный путь. Есть, например, словарь1 (mDict1), в котором .Item принимает...

Не получается вложить словарь в словарь
Друзья, доброго времени суток! Не могу понять, почему у меня не получается вложить словарь в словарь. Set Header =...

30
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
30.03.2017, 12:51
Студворк — интернет-сервис помощи студентам
Ну стоят-то в порядке, но никто порядок не обещал.
0
6 / 6 / 0
Регистрация: 02.06.2014
Сообщений: 65
30.03.2017, 13:00  [ТС]
Hugo121, что-то я совсем запутался, порядок есть и нет одновременно))
вот смотрите, я вывожу их в ячейки тут есть порядок
1 литий 0,15
1 аммоний 0,5
1 калий 0,8
2 литий 0,63
2 аммоний 0,3
2 калий 0,71
3 литий 0,17
3 аммоний 0,7
3 калий 0,45
0
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
30.03.2017, 13:16
Вы понимаете разницу между "есть порядок" и "порядка может не быть"?
0
6 / 6 / 0
Регистрация: 02.06.2014
Сообщений: 65
30.03.2017, 13:28  [ТС]
Hugo121, тогда от чего он зависит?
0
Модератор
Эксперт MS Access
 Аватар для shanemac51
12512 / 5086 / 814
Регистрация: 07.08.2010
Сообщений: 14,973
Записей в блоге: 4
30.03.2017, 13:51
скачала файл из п.1
вызвала оба макроса
ошибка ---нет листа
Visual Basic
1
2
3
4
5
Dim wbj As Workbook: Set wbj = ActiveWorkbook
Dim shr As Worksheet: Set shr = wbj.Worksheets("resul")
...
 
Dim shp As Worksheet: Set shp = wbp.Worksheets("Лист1")
с какими же листами должен работать макрос
0
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
30.03.2017, 13:54
Цитата Сообщение от kronos_o_0 Посмотреть сообщение
тогда от чего он зависит?
- если верить Microsoft'у - ни от чего.
0
6 / 6 / 0
Регистрация: 02.06.2014
Сообщений: 65
30.03.2017, 16:07  [ТС]
shanemac51,
все работает, в первом модуле все хватает

Добавлено через 1 час 59 минут
Hugo121, а вы можете показать пример как словарь загнать в массив?
0
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
30.03.2017, 16:45
Цитата Сообщение от kronos_o_0 Посмотреть сообщение
как словарь загнать в массив?
Visual Basic
1
массив=словарь.keys
Весь словарь в массив загонять смысла нет, но с ключами вот так.
0
6 / 6 / 0
Регистрация: 02.06.2014
Сообщений: 65
30.03.2017, 17:31  [ТС]
Hugo121
потом сделать в массиве сортировку и обращаться к словарю-словарей через сравнения с массивом?
0
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
30.03.2017, 19:02
1. Ключи в массив.
2. Массив сортируем.
3. Цикл по массиву, берём ключ.
4. По ключу из словаря берём значение (ну или вложенный словарь, тогда можно вернуться к первому пункту).
5. Выгружаем ключ и рядом значение куда угодно.
0
6 / 6 / 0
Регистрация: 02.06.2014
Сообщений: 65
30.03.2017, 19:05  [ТС]
Hugo121, спасибо, первые два уже сделал, пошел остальное доделывать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.03.2017, 19:05

Сравнение словарей?
Здравствуйте! Я, офисная крыса, обрабатывающая большие объемы информации, на старости лет разленилась и увлеклась автоматизацией этого...

Сортировка словаря словарей
Здравствуйте! У меня в который раз одни и те ж грабли. Есть данные: ст.А ст.B ст.С Климент Тест #...

Получить количество словарей (коллекций)
Всех, кто празднует по старому календарю, с Рождеством! Если у меня в проекте будет использован не один, а несколько словарей (~...

Словарь
Здравствуйте! Помогите пожалуйста..нужно создать словарь на vba.. программа должна работать, как обычные словари только содержать слова,...

Из Массива в Словарь
Приветствую всех! Ни как не могу передать значения из массива в Словарь: Public Function Get_Value_From_Close_Book2() Dim...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru