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

Страницы: 1 2 3 4 След.
VBA. Экспорт из Excel в xml. Как создать самозакрывающийся тег xml
 
#
22.08.2017 06:32:30
Благодарю.
Подскажите как отформатировать вывод xml с отступами, но без замены самозакрывающихся тегов?

Как переделать этот код? Или есть другой способ?
Код
'Процедура для придания XML читабельного вида (с отступами)
Sub transformXML(ByRef xml As Variant)

    'Cоздание объекта XSL
    Set xsl = CreateObject("MSXML2.DOMDocument")
    
    'Загрузка XSL из строки (не требует наличия отдельного XSL-файла)
    xsl.LoadXML ("<xsl:stylesheet version='1.0' xmlns:xsl='http://www.w3.org/1999/XSL/Transform'>" & vbCrLf & _
    "<xsl:output method='xml' version='1.0' encoding='UTF-8' indent='yes'/>" & vbCrLf & _
    "<xsl:template match='@*|node()'>" & vbCrLf & _
    "<xsl:copy>" & vbCrLf & _
    "<xsl:apply-templates select='@*|node()' />" & vbCrLf & _
    "</xsl:copy>" & vbCrLf & _
    "</xsl:template>" & vbCrLf & _
    "</xsl:stylesheet>")
    
    'Выполнение преобразования
    xml.transformNodeToObject xsl, xml

End Sub
Изменено: Евгений Кириллов - 22.08.2017 06:33:05
 
Перейти    
VBA. Экспорт из Excel в xml. Как создать самозакрывающийся тег xml
 
#
21.08.2017 14:48:59
Задача сформировать xml файл.
Тег "photo" должен быть самозакрывающийся:
Код
<photo url="pic1.jpg" />

Сейчас получается создать только парные теги:
Код
<photo url="pic1.jpg">
</photo>
Код
    Set createImg = createGood.appendChild(xml.createElement("photo"))
    createImg.setAttribute "url", photo
 
Перейти    
Операции с элементами диапазонов разного размера
 
#
22.04.2017 10:52:35
Очень добрый день.

!!! Задача
1 Сцепляем непустые ячейки всех столбцов (количество ячеек может быть разным), каждый элемент с каждым через пробел;
2 Определяем длину строки каждой получившейся комбинации
3 Считаем число комбинаций с длинной строки меньше 50 символов.

? Возможно ли формулой, без VBA?
Все операции с массивами производятся только с одинаковыми размерами (((
 
Перейти    
Сохранить фильтр интерактивной таблицы
 
#
08.10.2014 23:35:41
Alexey Ko, записать макрос...
 
Перейти    
Расчет схемы приема препарата Варфарин, нужна помощь кардиологу!
 
#
15.08.2014 15:47:09
Денис, А еще можно добавить историю приема препарата прошлых недель, что вероятно даст понимание как изменение дозы влияет на изменение MHO.
И не ясно как влияет на результат анализов пиковое принятие препарата, например, в схеме на день сдачи анализа приходится прием на 1 таблетку больше/меньше, чем в течении всей недели.

В последнем посте ваши критерии пересекаются, потому как +/-0,5 от цели 2,5 (диапазон нормы) - 20%, либо корректировка на 20% либо не меняем курс лечения?!
 
Перейти    
Расчет схемы приема препарата Варфарин, нужна помощь кардиологу!
 
#
15.08.2014 14:48:05
Денис, в ячейке L3 поменяйте 10% на 5% или любое другое... ограничение в 20% меняется в L4
 
Перейти    
Расчет схемы приема препарата Варфарин, нужна помощь кардиологу!
 
#
15.08.2014 13:34:28
Не стал привязываться к предопределенным схемам приема лекарства:

Выбираем тип MHO.
Сравниваем отклонение текущего показателя от целевого.
Если отклонение меньше 10%, то лечение не меняем.
Если отклонение белее 20%, то меняем дозу на 20%.
Если отклонение в диапазоне от 10-20%, то меняем на это процент.
Определяем количество таблеток на неделю с точностью до половины таблетки.
Распределяем равномерно недельное количество по дням с точностью до половины таблетки.
 
Перейти    
Расчет схемы приема препарата Варфарин, нужна помощь кардиологу!
 
#
15.08.2014 11:58:12
vikttur, дак, и я о том же. все таблетки имеют полоски для удобного деления на 2 части. зачем скачки 1 - 2 - 1 -2 такого сильного препарата? или я чего то не понимаю в медицине.
 
Перейти    
Расчет схемы приема препарата Варфарин, нужна помощь кардиологу!
 
#
15.08.2014 11:02:58
Денис, программы лечения изменению не подлежат?
В группе схем лечения "A" возможен прием по половине таблетки,
но в группе "B" уже нет, могут чередоваться прием 1 2 1 2 1 2, почему не 1,5 1,5 1,5 1,5 1,5 ...???  
 
Перейти    
Нахождение суммы в массиве данных с условием по строкам и столбцам.
 
#
13.08.2014 15:10:18
{=СУММ(ЕСЛИ($C16=Поставщик;1;0)*ЕСЛИ(D$15=Период;1;0)*МассивДанных)}
ФМ
 
Перейти    
Копирование динамической диаграммы
 
#
31.07.2014 12:43:08
Бонус, тогда привязка (формулы) должна быть с указанием листа, если не указан то данные будут ссылаться на новый лист где нет данных.
 
Перейти    
Не могу отследить ошибку в формуле (с поиском поз. по двум условиям)
 
#
28.07.2014 22:20:15
Цитата
Jnas пишет: ЕСЛИ(распределение!O:O=C14
У вас не ФМ, поэтому первое значение в диапазоне распределение!O:O = «20F-MRI-03»
Любое другое значение выдаст #Н/Д
 
Перейти    
Условное форматирование повторяющихся значений по нескольким столбцам
 
#
28.07.2014 16:12:22
İlham Heydar, через доп. столбик Сцепить()
http://www.planetaexcel.ru/techniques/14/69/
 
Перейти    
Макрос для диагональной замены значений на "0", Копирование значений с построчной заменой значений
 
#
28.07.2014 15:53:12
Smerd,
Код
=ЕСЛИ(СТРОКА()>=СТОЛБЕЦ();Исходник!A1;0)
 
Перейти    
Совместить 2 диаграммы с накоплением в одну
 
#
28.07.2014 14:48:55
Acid Burn,
я бы не лепил все в 1 график:
отдельно показал бы: - план-факт, динамику было-стало, за счёт чего ± (добавлено / ликвидировано ).
1 мысль = 1 слайд (диаграмма/гарфик)!
 
Перейти    
Отображает дату числом
 
#
27.07.2014 23:10:46
evgeniy_m,
Код
=--A1

И да, формат ячейки Дата в нужном вам виде.
 
Перейти    
Создание выпадающего списка с данными из несмежных ячеек + связанные с ними списки
 
#
26.07.2014 21:08:49
jurij271, http  :/  /www.planetaexcel.ru/techniques/2/80/ - сортировка формулой;
http :/ /www.planetaexcel.ru/techniques/1/38/ - зависимы выпадающие списки
 
Перейти    
Разъяснение функции ЕСЛИ
 
#
26.07.2014 20:32:44
SUM, функция ЕСЛИ() работает следующим образом (вам же нужно разъяснение функции ЕСЛИ?):

= ЕСЛИ ( Логическое выражение - сравниваете то, что вам нужно с тем, что вам нужно ; Что делать если сравнение истинное ; Что делать если сравнение ложное )
 
Перейти    
Подсчет количества значений при условии в Excel 2003., Подсчет значений справа налево от условия.
 
#
26.07.2014 20:23:26
okiel,
Код
=СЧЁТЕСЛИМН($M$2:$M$29;O2;$J$2:$J$29;"ДАТА" )
Изменено: Евгений Кириллов - 26.07.2014 20:23:55
 
Перейти    
Совместить 2 диаграммы с накоплением в одну
 
#
26.07.2014 20:17:38
Acid Burn, возможно, вас устроит такая визуализация.
 
Перейти    
Проблемы с формулой =РАБДЕНЬ() в условном форматировании, Как подсветить два следующих рабочих дня?
 
#
26.07.2014 15:00:44
Юрий Глодовский,
Код
=И((РАБДЕНЬ(СЕГОДНЯ();2)>=A1);(ДЕНЬНЕД(A1;2)<6);(A1>СЕГОДНЯ()))
в мой версии Excel нет РАБДЕНЬ.МЕЖД()
 
Перейти    
Совместить 2 диаграммы с накоплением в одну
 
#
25.07.2014 21:25:28
Acid Burn, что вы хотите видеть, добавив эти данный на диаграмму ? Если просто добавить, то выделить диапазон Ctrl + C  и вставить в диаграмму Ctrl + V  :)
Изменено: Евгений Кириллов - 25.07.2014 21:26:16
 
Перейти    
Проблемы с задвоенными строками
 
#
24.07.2014 22:58:25
AlyKun,
Код
=ЕСЛИОШИБКА(ВПР(C2;ТаблицаЛиц;1;0);A1)
=ЕСЛИ(A1<>A2;0;ЕСЛИОШИБКА(ВПР(C2;ТаблицаКатегорийЛиц;1;0);B1))
При такой структуре можно и в сводную таблицу передать
Изменено: Евгений Кириллов - 25.07.2014 09:04:26 (добавил файл, исправил формулы)
 
Перейти    
Перенос столбцов таблицы по условию, по нескольким условиям
 
#
24.07.2014 11:25:19
я Ирина, если без макроса то надо доработать в исходные данные для сводной таблицы, колонку "флаг" - если значение в нужном месяце больше 2%.
и добавить в фио строку "прочее" сумма всего что без "флага"
В сводной фильтр по флагу.
Сводная диаграмма на основе сводной таблицы.
 
Перейти    
Как сделать обновление графика от динамического диапазона
 
#
24.07.2014 11:21:30
я Ирина, пожалуйста.
 
Перейти    
Формулой ВПР выбрать формулу для расчета даты платежа
 
#
24.07.2014 09:30:29
verrrra,
=ВПР() - для выбора отсрочки из справочника компания-отсрочка
=РАБДЕНЬ() - для определения срока платежа в банковских днях

Большего, за неимением от вас файла примера, сделать для вас не могу. (см. правила форума)
 
Перейти    
Разделить окно в Excel на более чем 4 окна
 
#
23.07.2014 18:24:59
Shikamaru, Если просто видеть части книги, используйте инструмент Камера.
 
Перейти    
Вынесение новых значений в ячейке в отдельный столбец
 
#
23.07.2014 16:41:29
LILLY, без макроса, вносить значение прямо в таблицу
дату и время вставлять горячими клавишами:

Дата: Ctrl+Shift+;
Время: Ctrl+Shift+:
 
Перейти    
Замена пустых ячеек на среднее соседних
 
#
23.07.2014 13:24:14
Цитата
vikttur пишет:
для чего так растягивать сообщение?
В строке 3 - его текущая формула, выделил таким способом (осознанно). Существенно на высоту комментария не повлияло.
 
Перейти    
Замена пустых ячеек на среднее соседних
 
#
23.07.2014 13:20:13
oleg28,
Код
=ЕСЛИ(ЕПУСТО(RC[-2]);
СРЗНАЧ(R[-1]C;R[1]C)
;RC[-2])
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх