Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 273 След.
Запрос к БД, sql и vba
 
Доброе время суток
Цитата
Luc написал:
Да и вопрос о вариантах написания SQL запросов к базе данных через VBA
А вы можете доказать, что текст запроса к базе данных Microsoft SQL Server в VBA чем то отличается от текста запроса в SQL Server Management Studio? Если ни чем, то не лучше ли задавать вопрос по написанию текста запроса на профильных форумах, например sql.ru?
PQ расчет сортировки товаров
 
Доброе время суток.
Vsevolod, вам нужно каждый раз напоминать, что нужно отписываться в своих темах? Или вы форум рассматриваете как своего рода магазин?
Заполнение данных столбца, основываясь на уже имеющихся данных за другие года
 
Доброе время суток.
Версия на Power Query
Код
let
    Source = Excel.CurrentWorkbook(){[Name="База"]}[Content],
    #"Removed Columns" = Table.RemoveColumns(Source,{"Год"}),
    #"Filtered Rows" = Table.SelectRows(#"Removed Columns", each ([Населённый пункт] <> null)),
    #"Removed Duplicates" = Table.Distinct(#"Filtered Rows"),
    onlyOne = Table.Group(#"Removed Duplicates", {"Контрагент"}, {"temp", each if Table.RowCount(_) = 1 then _{0}[Населённый пункт] else null}),
    joined = Table.Join(Source, {"Контрагент"}, onlyOne, {"Контрагент"}),
    #"Renamed Columns" = Table.RenameColumns(joined,{{"Населённый пункт", "source"}}),
    calcDistrict = Table.AddColumn(#"Renamed Columns", "Населённый пункт", each if [source] = null then [temp] else [source]),
    #"Removed Columns1" = Table.RemoveColumns(calcDistrict,{"source", "temp"}),
    #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns1",{"Контрагент", "Населённый пункт", "Год"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Reordered Columns",{{"Контрагент", type text}, {"Населённый пункт", type text}, {"Год", Int64.Type}})
in
    #"Changed Type"
слияние таблиц при двух условиях с датами и временем
 
Доброе время суток.
Лобовая версия на Power Query. Часть штрафов не определилась :)
Расстановка копий группы - по листу, с учетом расположения фигур внутри самой группы.
 
Доброе вермя сутко
Цитата
radioamator написал:
поэтому обычные тригонометрические способы перемещения здесь навряд ли будут применимы.
А причём тут тригонометрия?
Находите Shape группу, по имени например. Находите через GroupItems по имени тот овал Узел1, находите координаты центра. Разница в координатах центра Узел1 и центра Приёмный узел1 даст величину смещения координат всей группы. Где в этом решении хоть один sin или cos или tg?
Изменено: Андрей VG - 20 Авг 2019 20:31:02
Как передать параметр в SQL запрос прописанный в соединениях (Connections)
 
Цитата
БМВ написал:
Послое появится параметр, который можно указать сославшись на ячейку.
Привет, Михаил.
А точно параметры работают с
Цитата
БМВ написал:
OLEDBConnection
?
Несколько лет тому назад у меня не получилось это сделать в Excel 2010. По крайней мере с данными из книг Excel параметры в свойствах подключения работали только с ODBC подключением.
Разбор возникающей ошибки при обновлении PQ-запросов из иной книги
 
Доброе время суток.
Цитата
Дмитрий(The_Prist) Щербаков написал:
Может лучше, максимально правильная?
Вот, вот. Перефразируя известного оратора.
Если не определяется: что, где, когда, то получается - как всегда :)
Изменено: Андрей VG - 20 Авг 2019 16:12:31
Извлечение ссылок со страницы
 
Доброе время суток.
Вариант
Добавить столбец Ранга в PowerQwery, Как добавить с помощью языка М столбец ранга в таблице, ориентирующийся на другой столбец
 
Доброе время суток
Цитата
Kalinin_vn написал:
Готовая строка кода также приветствуется)
А также приветствуются: чтение и соблюдение правил форума, использование поиска для получения ответа на уже решённые задачи :)
MS PowerQuery/PowerBI: Функция content, добавление пользовательского столбца.
 
Доброе время суток
Цитата
bobyjoy написал:
То в powerBI источником является что то другое
Угу, Excel.Workbook :)
Код
let
    bookPath = "D:\Path\Content.xlsx",
    Source = Excel.Workbook(File.Contents(bookPath), null, true),
    calendar = Source{[Item="Календарь",Kind="Table"]}[Data][[Мес]],
    table2 = Source{[Item="Таблица2",Kind="Table"]}[Data],
    union = Table.Join(table2, {}, calendar, {}),
    typed = Table.TransformColumnTypes(union, List.Transform(Table.ColumnNames(union), each {_, Text.Type}))

in
    typed
Power Pivot средняя стоимость за период
 
Доброе время суток
Цитата
Andrey_Gogin написал:
задача очень сложная или
специалисты вашего профиля не заглядывают в вашу тему. Остальные либо заняты и не имеют достаточно времени чтобы поискать информацию об опущенных вами деталях методике расчётов, либо не находят задачу столь интересной, чтобы заняться поиском...
Как-то так, по моему мнению.
Как в Power Query получить в новых столбцах текст с увеличенной ценой на пол-единицы
 
Доброе время суток.
Цитата
abc1 написал:
получить в новых столбцах текст с увеличенной ценой на пол-единицы?
Как-то так
В Power Query получить дату текстом(два знака года&два знака месяца&два знака дня)
 
Доброе время суток.
Воспользуйтесь другой функцией Date.ToText.
Как скрыть от пользователя VBAProject после его разблокировки
 
Цитата
Borgov написал:
И как раз наоборот есть сохранить файл то в нем будут применены все изменения, и пароль будет вновь активным
Исходите из того, что предоставляет вам система. Хотите поведения как вам хочется, нужно тогда менять систему или подход. И в рамках изменения подхода - прислушайтесь к совету коллеги buchlotnik.
Более того - этот подход с надстройкой обсуждался уже не раз обсуждался на форуме.
Делаете надстройку, кладёте её на общий ресурс, доступный обычным пользователям только на чтение. Подключаете надстройку у пользователей. Надо изменить что-то в надстройке, просто заменяете доработанный файл надстройки (естественно, когда пользователи не работают).
Как скрыть от пользователя VBAProject после его разблокировки
 
Доброе время суток
Цитата
Borgov написал:
По сути, когда используется команда для разблокировки VBAproject
Так и ответ простой. Чтобы действие пароля снова вступило в силу, нужно закрыть книгу, а потом снова её открыть - придёте снова к исходному состоянию - пароль ещё не введён
PowerPivot, PowerQuery, PowerBI
 
Сопоставил разницу спецификаций февраля 2014 и июля 2019. Фактически отличий мало. В файле построчные отличия. Для 2014 - 388 строк, которых нет в 2019, а для 2019 - 347 строк, которых нет в 2014. И при беглом сравнении различий - можно выявить, что если некоторые строки нормализовать, то и они будут равны. В общем - нет ничего нового в спецификации в плане языка. Тут штиль. Вот на фронте новых функций и коннекторов - тут прогресс заметен.
PowerPivot, PowerQuery, PowerBI
 
Бегло сравнил со спецификацией 2014 года. Особой разницы нет. Чуть лучше описана типизация. Новых языковых конструкций и нововведений пока не нашёл.
Формула для подсчёта зарплаты, В экселе полный профан. Нужно составить формулу для подсчёта зарплаты
 
Доброе время суток
Цитата
msi2102 написал:
А на калькуляторе сколько получается
Коллега, о чём вы? Тс же написал
Цитата
Mithelll написал:
Я же предупредил что не бум-бум
Power Query. Объединение запросов
 
Доброе время суток
Цитата
wammaxy написал:
но у меня всё равно нифига не получилось
Что не получилось - стать вице-президентом компании в которой вы работаете? Или найти ответ на
Цитата
wammaxy написал:
ссылается на другие запросы или этапы и поэтому не может напрямую обращаться к источнику данных. Измените эту комбинацию данных.
Или просто не искали? Один из вариантов решения обсуждался Power Query ошибка Formula.Firewall
Поиск последнего значения в массиве
 
Цитата
БМВ написал:
Ну могли б и сами проверить. Работает, только там нужно принудительно сказать что сие формула массива
Привет, Михаил.
Я всё же был прав. Был поиск тестировщика. :)
Поиск последнего значения в массиве
 
Доброе время суток
Цитата
DreamerO написал:
Работает ли такая формула LOOKUP в Google Sheets?
Вы ищете тестировщика? Или просто лень импортировать файл в Google Spreadsheet и проверить?
Как в Excel по двум переменным построить функцию
 
Доброе время суток.
Ещё вариант линейной интерполяции.
Ошибка выражения Text.BetweenDelimiters не распознано, Ошибка выражения
 
Доброе время суток
Цитата
kaa700 написал:
как можно победить?
Да очень просто, перестать надеяться, что Microsoft перестала развивать Power Query. :)
Как с помощью Power Query выгрузить массив на разные листы по условию
 
Доброе время суток
Цитата
Борис13 написал:
надо динамически создавать разное количество листов с обработанной информацией
Ответ: никак - не умеет Power Query этого делать, да и не предназначен в целом для этого.
Цитата
Борис13 написал:
через макрос, вылетает ошибка "Out Of Memory"
Нет гарантии, что и Power Query не вылетит. Он достаточно часто более прожорлив по памяти, чем VBA, особенно если аккуратно подходить к в макросах к загрузке данных для обработки. Хотя, случается, что и на оборот.
Изменено: Андрей VG - 13 Авг 2019 12:45:21
Формирование составного кода подразделения из полей таблицы, Необходимо с помощью запроса PQ создать пользовательский столбец с кодом подразделения
 
Доброе время суток
Числовой вариант
Код
Table.AddColumn(Source, "Код подразделения*", each [#"Код отдела (текст)"] * Number.Power(10, if [#"Код отдела (текст)"] = 409040 then 5 else Number.RoundUp(Number.Log10([#"Код сектора (целое число)"]), 0) + 1) + [#"Код сектора (целое число)"])
Импорт из файла с помощью Power Query, Импорт из файла с помощью Power Query
 
Доброе время суток.
Начальный вариант чтения. Далее обычные трансформации
Код
let
    Source = Xml.Tables(File.Contents("D:\Path\Пример.xls"), null, 1251),
    sheet = Source{[Name="Worksheet"]}[Table],
    table = sheet{[Name="Table"]}[Table],
    rows = table{[Name="Row"]}[Table][[Cell]],
    toCells = Table.TransformColumns(rows, {"Cell", each if _[Data]? <> null then Table.FromRows({_[Data]}) else null}),
    heads = List.Distinct(List.Combine(List.RemoveNulls(List.Transform(toCells[Cell], each if _ <> null then Table.ColumnNames(_) else null)))),
    expanded = Table.ExpandTableColumn(toCells, "Cell", heads),
    toCellData = Table.ReplaceValue(expanded, null, null, (a, b, c) => if a <> null then a[#"Element:Text"]{0} else null, heads)
in
    toCellData
Изменено: Андрей VG - 12 Авг 2019 13:13:48
Работа со сводной таблицей. Выделение строк цветом.
 
Цитата
fareng8 написал:
помечаю внутри производителя категорию
Используйте условное форматирование для той самой пометки.
Возможности разработки взаимодействия с БД (выбор инструментов), Javascript ИЛИ VBScript
 
Цитата
JeyCi написал:
ЧТО быстрее??
Чаще всего написать код, подготовить тестовый пример, провести тестирование быстрее, чем дождаться того, кто такое уже проделывал и проделает вместо вас :)  А как же опыт, что сын ошибок трудных, предполагаете приобретать и полезные шишки и мозоли зарабатывать? :)
Изменено: Андрей VG - 10 Авг 2019 17:20:29
как найти битые файлы excel
 
Доброе время суток
Цитата
YuraY написал:
как найти битые файлы excel,
Что бы что-то найти, нужно сначала определить что ищем. Что такое битые файлы Excel и чем они отличаются от не битых, и, дополнительно, причём здесь копирование и типа архив?
Книга по VBA от Николая Павлова, Когда будет? :)
 
Цитата
Lari написал:
Если есть еще какие варианты навигации, прошу подсказать.
Можно поставить PdfBookmarks, и самому создать оглавление для панели навигации. В принципе, это не сложно.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 273 След.
Наверх