Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » egonomist
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перевод Dictionary в таблицу, Как преобразовать словарь в таблицу на листе
 
#
27.09.2017 18:15:10
Уважаемые коллеги, вечер добрый.
Помогите пожалуйста с преобразованием словаря в обычную таблицу на листе.
Источник данных:
Веб сервис - POST запрос - получаю JSON.
его я могу распарсить в R и ручками привести к таблице (муторно и лень),
распарсил в KNIME, перевел в XML, далее через XPATH (не совсем удобно для конечного пользователя - нужно делать веб морду)
Хочу в excel.

Сам источник представляет собой 18 столбцов-списков, по одному документу/записи  могут быть 5 значений в списке номер 3 и 7 значений в списке 8 и т.д.
глубина списка динамическая величина.

Огромное спасибо EducatedFool за совет на просторах форума по считыванию ResponseBodyвместо RespinseText для борьбы с кодировкой.
Получил в excel JSON, распарсил его через CDataset.xlsm (уже обсуждался на форуме) - на выходе Dictionary с child.

Есть ли способ перечислить в строку все значения каждого списка, с учетом иерархии??
Т. е если для какого-то ключа встречается вложенный словарь - то он выводится в новые строчки, а названия ключей вложенного словаря в название столбцов.

пример JSON {Имя:Иванов; Фамилия : Петров; Любимый цвет : {цвет1:красный; цвет2:синий}
аля словарь
                     Имя: Иванов
                     Фамилия: Петров
                     Любимый цвет
                     Любимый цвет - child(1) цвет1 = красный
                     Любимый цвет - child(2) цвет2 = синий

Как хочу
Имя       Фамилия  Любимый цвет
Иванов Петров       красный
                                синий

Прошу прощения, может быть непонятно объяснил, давно к vba не подступал - забыл уж многое.
 
Перейти    
VBA изменение группы выделенных листов
 
#
25.04.2016 09:44:55
Уважаемые коллеги, добрый день.
Не могу найти решение следующего вопроса - нужны знания гуру теории excel:
Макросом генерирую выгрузки одинаковых по своей структуре листов, собираю в одну книгу,  далее мне нужно вставить два столбца с формулами. Столбцы добавляются на всех выделенных листах, но формула - только на активном. (При изменении формулы макросом выделение группы не слетает)    
Код
Sheets(2).Activate
For I = ActiveWorkbook.Sheets.Count To 2 Step -1 'выделил нужные листы
    Sheets(I).Select (False)
Next
Columns("AH:AI").Select : Selection.Insert Shift:=xlToRight 'вставил столбцы
Range("AH4").FormulaR1C1 = "=SUMIFS(R[-1]C19:R[-1]C30,R2C[-15]:R2C[-4],"">=""&DATE(YEAR(NOW()),1,1)&"""",R2C[-15]:R2C[-4],""<""&NOW()&"""")" 'вставил формулу

как вариант  - перебор листов, но хотелось бы избежать этого.
Код
Sub AllWorkSheets()
Dim Arr() As String 
Dim I As Long 
ReDim Arr(Worksheets.Count) :Arr(0) = Worksheets.Count
For I = 1 To Worksheets.Count : Arr(I) = Worksheets(I).Name :Next I
For I = 1 To Arr(0) : Sheets(Arr(I)).Select  : Application.Run "personal.xls!MarkCells" :Next I 
End Sub
Подскажите пожалуйста, как можно вставить формулу макросом на группу выделенных листов без перебора (возможно ли это)
 
Перейти    
OLAP CubeCellValue, помогите найти
 
#
16.10.2013 15:21:35
Добрый день. Мучаюсь с оптимизацией работы excel + olap cube. Обычные сводные в excel - не работают.
В сети есть информация, что когда-то существовала надстройка Excel 2002 Add-in: OLAP CubeCellValue. В сети ее сейчас нет. Может у кого-нибудь есть?
Так же буду рад любым другим надстройкам для работы с olap.
Сейчас делаю все через ADOMD, но его на каждую машину надо устанавливать, ищу обходные пути.
 
Перейти    
цвет кнопки
 
#
18.10.2011 17:02:20
добрый день, товарищи, подскажите пожалуйста как изменить цвет кнопки для макроса. Где то видел надстройку по созданию кнопок - там цветные были. Как это сделать?
 
Перейти    
есть ли буквы в строке?
 
#
07.10.2011 11:36:31
Товарищи, доброе утро. подскажите как решить такой вопрос. Есть столбец (формат текстовый)  
номер удостоверения личности    
в основном это серия и номер паспорта в формате  "01 23 456789" , но  
иногда попадаются загран. паспорта и паспорта граждан других стран и военные билеты.  
Стоит задача - вычленить эти паспорта.  
С международным просто - если len(trim(range(A"" & i & ""))) >12    
У военников и паспортов В серии - буквы.  
например "СК 12356"    
 
Вопрос - как определить что в строке есть буквы?
 
Перейти    
формат 2й оси X
 
#
21.09.2011 14:10:39
Здравствуйте, подскажите, пожалуйста, как можно задать формат второй оси X.  
пример прилагаю. первая ось - время - отображается нормально, но нужна ось даты, а то не понятно в каком дне появилась та или иная величина.  
Офис 2003 - желательно через vba.
 
Перейти    
детский mp3 плеер
 
#
19.09.2011 14:37:32
Здравствуйте, просьба помочь с реализацией следующей идеи.  
Идея: Для маленького ребенка надо создать dvd с детскими сказками (которые раньше были на пластинках)/ dvd купил, сказки скачал/. Хочется создать красивую менюшку - плеер с картинками - для каждой сказки своя кнопка, при нажатии которой воспроизводится нужная директория /картинки скачал, mp3_player.xls скачал/.  Предполагается реализовать все в excel как форма со скрытием окошек excel, которая запускается через скомпилированый в exe батник запуска формы.  
 
Есть ли у кого примеры красивых форм, удобных для данных целей (большая картинка + кнопки, можно даже с слайдшоу). А то руки не оттуда растут и красиво рисовать не умею.    
 
Может у кого то уже есть наработки для меню mp3????  
 
p.s: если модераторы посчитают эту тему оффтопом, то можете удалить.
 
Перейти    
создание надстройки
 
#
29.08.2011 16:08:05
Товарищи, ткните носом в ссылку на эту тему. поиск мало помогает.  
Нужно создать надстройку с 2 кнопками для запуска 2 макросов.    
Офис 2007.  
для себя всегда кнопы макросов выводил на панель, а тут отделу налогооблажения надо было конвертер xls в xml. - для них нужна надстройка.
 
Перейти    
Навигация по листам/книгам - открытый код
 
#
22.07.2011 11:54:09
Доброго времени суток, выкладываю последнюю версию программы для навигации в excel.  
Реализованы следующие возможности:  
открытие/закрытие книги; добавление/удаление листа, копирование/вставка листа;  
сортировка листов, удобное перемещение по листам/книгам.  
возможна навигация кнопками на форме, мышью, стрелками на клавиатуре.  
Полностью открытый код - с комментариями. (начало обсуждений было вот тут http://www.planetaexcel.ru/forum.php?thread_id=1037)  
 
Что лишнего? и чего бы добавить???
 
Перейти    
Страницы: 1
Наверх