Как извлечь из словаря случайную пару "ключ

Как извлечь из словаря случайную пару "ключ - значение"?

Пользователь

Сообщений: 90 Регистрация: 30.08.2013

21.05.2015 08:09:51

Привет, всем.
В файле "Пример словаря" создается словарь DictW. Ключ - английское слово, значение - русский перевод. Подскажите, пожалуйста, как из этого словаря извлечь случайную пару "Ключ - значение" и поместить его в строке 10? Можно, конечно, использовать значение ячеек, но меня интересует работа со словарем.

Прикрепленные файлы

Пример словаря.xlsb (15.45 КБ)

Grr

Пользователь

Сообщений: 614 Регистрация: 17.09.2013

21.05.2015 08:34:36

Код
Max = DictW.Count - 1 Min = 0 r = Int((Max - Min + 1) * Rnd + Min) WS.Cells(10, 1).Value = DictW.Keys(r) WS.Cells(10, 2).Value = DictW.Items(r)

BretHard120 Пользователь Сообщений: 90 Регистрация: 30.08.2013	#3 21.05.2015 08:41:13 спасибо, то, что нужно. Изменено: BretHard120 - 21.05.2015 10:00:26

Grr Пользователь Сообщений: 614 Регистрация: 17.09.2013	#4 21.05.2015 08:42:32 BretHard120, Пояснения нужны?

BretHard120 Пользователь Сообщений: 90 Регистрация: 30.08.2013	#5 21.05.2015 08:43:35 Не, все понятно.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 21.05.2015 10:01:09 Одно пояснение все же нужно: кнопка цитирования не для ответа

Читают тему