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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 265 След.
Разбить данные по месяцам
 
Цитата
Иван313 написал:
как этим пользоваться на регулярной основе?
Убеждаетесь, что можете работать с Power Query (2010, 2013 - это устанавливаемая надстройка, 2016 и выше - часть Excel).
Заполняете таблицу под шапкой Исходник, и обновляете правую таблицу (ПКМ - обновить).
Вычислить сколько единиц при соблюдении определенных условий, Есть габариты высота, ширина, длина и вес. Нужно вычислить сколько машин нужно что бы поместить все товары
 
Доброе время суток
Цитата
Diamarh написал:
помощью какой формулы можно сделать?
А нет в Excel такой формулы. К пояснению - в чём проблема Про двумерную упаковку: offline алгоритмы. И это 2D, не 3D, как в вашем случае :)
Разделение текста на составляющие в Power Query
 
Доброе время суток
Цитата
azma написал:
или вот так
Всё это хорошо. Но что если ФИО будет таким Алиев Ильхам Гейдар оглы или Франсиско Мартинес де ла Роса?
HB
 
Пусть остался только час, но лучше поздно, чем никогда. Мотя с Днём Рожденья! Светлых и радостных дней, здоровья, побольше улыбок и счастья. Ваши анекдоты и юморески самые лучшие на форуме!
QueryTable импорт формулы массива
 
Доброе время суток.
Цитата
adamm написал:
как обозначить, что формула является массивной?
Никак, судя по многочисленным обсуждениям в том числе и на заграничных форумах, увы.
Чтобы не обрезало, поместите самую длинную формулу в первую строку. Далее, лучше читайте данные через Adodb.Recordset, потом для того самого транспонирования просто воспользуйтесь методом Recordset.GetRows, получая транспонированный массив, а уже его через метод Range.Resize помещайте как значения.
Updated
Хотя да, есть проблемы. Из простого
Код
Range("A1:B1").Value=array("=PI()", "=СЛЧИС()")
отрабатывает английская версия :(
Изменено: Андрей VG - 17 Июл 2019 23:02:11
Разбить данные по месяцам
 
Доброе время суток.
Цитата
Иван313 написал:
чтобы формула разбила
Пока формулисты ищут бьющую не в бровь, а в глаз - формулу :)  
Версия на Power Query.
Изменено: Андрей VG - 17 Июл 2019 22:29:10
Макрос для парсинга географических адресов
 
Цитата
Oleg Boyaroff написал:
На яндексе 25к запросов в сутки бесплатно
Вам осталось бесплатно предложить макрос для получения и парсинга xml ответа Яндекс :)  Назвался груздем...
Макрос для парсинга географических адресов
 
Доброе время суток
Цитата
БМВ написал:
некоторые атрибуты могут отсутствовать
это только гипотеза. ТС о таком не сообщил.
Как получить изменненый диапозон с помощью формулы
 
Цитата
БМВ написал:
что хотели этим получить?
Привет, Михаил.
Как что, а в названии темы что написано?
Цитата
получить изменненый диапозон
Правда что такое измененный диапазон я то же не знаю. :(
Изменено: Андрей VG - 17 Июл 2019 16:17:03
Подсчет количества уникальных значений и вывод данных на другой лист
 
Доброе время суток
Цитата
Jordan07 написал:
(БЕ уже будут заполнены)
А смысл? Вариант.
Power Query. Выбор строк с самыми актуальными данными, в таблице присутствуют повторы, оставить только самые актуальные
 
Цитата
ivanka написал:
как это решить инструментами интерфейса?
увы, тут я начинающий, путаюсь я в этих кнопках и версиях интерфейса :(
Возможности разработки взаимодействия с БД (выбор инструментов), Javascript ИЛИ VBScript
 
Цитата
bedvit написал:
JeyCi , это происходит от незнания, что такое массив в С++.
Привет, Виталий.
Эк как прорвало :)  Я уже боюсь что-нибудь отвечать JeyCi - иначе на разбор потока времени уходит много. К стати, может как-нибудь встретимся, пива попьём?
Power Query. Выбор строк с самыми актуальными данными, в таблице присутствуют повторы, оставить только самые актуальные
 
Я бы ещё и с датами по аккуратнее. В общем ещё один вариант
Код
let
    filePath = "d:\Path\пример\пример",
    folderFiles = Table.SelectRows(Folder.Files(filePath), each (not Text.StartsWith([Name], "~$")) and Text.Lower([Extension]) = ".xlsx"),
    getDateFromName = Table.AddColumn(folderFiles, "Date", each Date.From(Text.BeforeDelimiter([Name], ".", 2)), Date.Type)[[Date], [Content]],
    getExcelContent = Table.TransformColumns(getDateFromName, {"Content", each Excel.Workbook(_)}),
    getFirstSheetData = Table.TransformColumns(getExcelContent, {"Content", (item) => Table.SelectRows(item, each [Kind] = "Sheet"){0}[Data]}),
    setHeaderByFirstRow = Table.TransformColumns(getFirstSheetData, {"Content", each Table.PromoteHeaders(_)}),
    toCommonTable = Table.ExpandTableColumn(setHeaderByFirstRow, "Content", {"ID", "Название", "Сумма в валюте сделки"}),
    getLatestById = Table.Group(toCommonTable, {"ID"}, {"temp", each Table.Max(_, "Date")})[[temp]],
    #"Expanded {0}" = Table.ExpandRecordColumn(getLatestById, "temp", {"Date", "ID", "Название", "Сумма в валюте сделки"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Expanded {0}",{{"Date", type date}, {"ID", type text}, {"Название", type text}, {"Сумма в валюте сделки", Currency.Type}})
in
    #"Changed Type"
Power Query. Выбор строк с самыми актуальными данными, в таблице присутствуют повторы, оставить только самые актуальные
 
Доброе время суток
Цитата
PooHkrd написал:
Table.Group(ChangedType, {"ID"}, {{"Tab", each Table.SelectRows(_, let latest = List.Max(ChangedType[Name]) in each [Name] = latest), type table}})
Алексей, а не проще ли
Код
Table.Group(ChangedType, {"ID"}, {{"Tab", each Table.Max(_, [Name]), type record}})
С последующим разворачиванием столбца с типом запись?
Обеспечение совместимости Excel VBA приложения для систем разной разрядности и с разными региональными установками.
 
Вот ещё небольшое обсуждение значимости книги и утверждений Win32 API и Visual Basic (Dan Appleman) :)
В Power Query сделать так, чтобы 1,2,3 из строк стали заголовками, а то, что были рядом с ними в строке - строками
 
Цитата
PooHkrd написал:
Вы бы поиском по форуму все таки пользовались что ли
Привет, Алексей.
Вроде не всё так просто в силу
Цитата
Konstantin Zhi написал:
или тройки не хватает или единицы (или порядок иногда 1,2,3, иногда 2,1,3 иногда 3,1,2 и т.д.).
Допустим есть последовательность 2, 3, 1, 3, 2 - это сначала 2 и 3 с пропущенной единицей и затем 1, 3, 2? Или это сначала 2, 3, 1, а затем 3, 2 с пропущенной единицей? :)
Подбор груза для машины с условиями, Vba - задача в стиле рюкзака
 
Вариант формулами с разбросом остатков жадным алгоритмом. Как видно, если дополнить две машины с рулонами по 100 до 60 штук в каждой, то в третьей остаётся 23 свободных места. Вот ту да то можно доложить из первой машины с рулонами по 120 те 23, останется 5, а их переложить во вторую. В данном случае возможно. Полные целочисленные номерами не обозначал. В общем есть что допиливать :)  
Может кому-то будет интересно написать макрос с учётом проверок на достаточность.
Сбор конкретных данных из разных книг в одну таблицу
 
Цитата
artyrH написал:
ни в одном файле не встретил
Привет, Артур.
Ну, марку и приход найти можно, а вот почему не представлен желаемый результат, как того требуют правила - загадка. Видимо ТС предпочитает медленный, но верный подход последовательных приближений. :)
Июльское обновление Windows 10
 
Цитата
БМВ написал:
упс . Не ту ссылку дал.
А можно ту? Сейчас система такая.
Судя по этой ссылке July 9, 2019—KB4507453 (OS Build 18362.239) - как раз июльская этого года.
Изменено: Андрей VG - 15 Июл 2019 19:07:36
Подбор груза для машины с условиями, Vba - задача в стиле рюкзака
 
Доброе время суток.
С учётом ваших ограничений, не вижу цели оптимизации. Скорее всего банальный жадный алгоритм бери больше, кидай дальше. Только в даже таком случае - это не 15 минут. Может что Михаил MCH присоветует.
Updated
А это условие
Цитата
Tverskoy_92 написал:
3. Если вариантов нет - любая ширина подойдет, при этом в машину помещаем не более 50 шт.
так ещё и ухудшает минимум машин. Максимальный остаток для 120 - 49 штук, а для 100 - 59 штук. Имеем смешанное решение по условию 3. Тогда потребуется 3 машины 50, 49 + 1 и на 8 штук :) , вместо того чтобы отправить две не полные машины.
Изменено: Андрей VG - 15 Июл 2019 19:13:29
Июльское обновление Windows 10
 
Цитата
БМВ написал:
у некоторых все отказалось работать
Привет, Михаил.
Это как бы про обновления 2018 года... А что с 2019 не так? Стоит Windows 10 64bit 1903 - указанных проблем со Skype, Outlook нет.
Настройка каскадного выпадающего списка в access
 
Цитата
Vancouver написал:
не могу найти инфу по склейке выпадающих списков в access
А искали, особенно на профильных форумах? ФАК: Связанные списки
VBA: Заполнение двумерного динамического массива
 
Доброе время суток.
Цитата
Framed написал:
что VBA выдает syntax error
Ошибка в синтаксисе здесь
Цитата
Framed написал:
arrAnotherMonth(, i)
Плюс ошибки
Цитата
Framed написал:
arrAnotherMonth(i)
Так как выше массив объявлен как двумерный
Цитата
Framed написал:
ReDim Preserve arrAnotherMonth(0 To i, 0 To i)
Здесь две ошибки.
Preserve допускает изменение только последнего индекса размерности.
Preserve нельзя использовать, если ранее массив не был создан ReDim arrAnotherMonth(1 to 100, 1 to 2) например.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал:
возможно ли его как то ускорить?
Этот вариант - нет. Можете попробовать другой подход
Цитата
Fsociety_ написал:
Selection.FormulaR1C1 = "=UPPER(RC[-1])"
Вместо Selection использовать параллельный по столбцам диапазон (естественно пустой), в котором формула рассчитает по данным выделения требуемое. Затем через Selection.Value = ParallelRange.Value записываем значения и очищаем параллельный диапазон. Аналогично можно сделать и с использованием временного листа.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Sanja написал:
И формула И значение
Коллега, результат формулы в ячейку, применённый к значению этой же ячейки, можно через
Код
ActiveCell.Value = Application.Evaluate("UPPER(""" & ActiveCell.Value & """)")
получить. Но это не отменяет правила использования констант в формулах.
Updated
Хотя, можно как-то где-то так, пусть и не быстро :)
Код
Public Sub ApplyFormulaToValueForSelection(ByVal formulaName As String)
    Dim pCell As Range
    For Each pCell In Selection
        pCell.Value = Application.Evaluate(formulaName & "(" & pCell.Address & ")")
    Next
End Sub

Public Sub test()
    ApplyFormulaToValueForSelection "UPPER"
End Sub
Изменено: Андрей VG - 15 Июл 2019 10:58:20
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал:
Они должны брать значения из выделенного диапазона обрабатывать их в соответствии с назначением формулы и возвращать результат работы формулы значением. как то так)
Не задумывались на таким вопросом, что ваше решение предполагает, что формулы вводятся в ячейку, в которой уже есть некоторое значение. Следовательно простая запись формулы затирает это значение. Следовательно вам нужно доработать макрос так, чтобы в формулу подставлялось константное значение, взятое из ячейки, с учётом правил размещения в формулах константных значений, а не ссылок, как написано в вашем первом посте, который привёл к ошибочным рассуждениям отвечающих.
Соответственно, написать универсальный макрос, которому вы задаёте только имя формулы, в силу разных требований на использование констант в формулах не получиться. Проще двигаться в сторону, Applicaiton.WorksheetFunctions - VBA сборника функций - аналогов формул рабочего листа.
Ну, а записать результат вычисления формул для выделения, как значение вы уже знаете. Selection.Value = Selection.Value
Дерзайте.
Изменено: Андрей VG - 15 Июл 2019 10:28:36
Сравнение двух таблиц на идентичность по двум условиям
 
Доброе время суток.
Вариант на Power Query
Изменено: Андрей VG - 14 Июл 2019 23:14:11 (Добавил пример, на мой взгляд, более правильного вывода результата сравнения по ключевым полям: даты, суммы, значения)
ЕСЛИ данные в 6 последующих ячейках расположены в возрастающем порядке..., Писать макрос или формулами?
 
Цитата
БМВ написал:
меня вводит в недопонимание. 1% от первой (как это у  artyrH ) или от предыдущей.
Ну, тут, Михаил, каждый ТС ожидает, что отвечать на вопрос будет корифей того же профиля, что и ТС, а не некоторые любопытствующие, пусть и не забывшие математику :)  Некоторые так об этом явно пишут. А если это корифей, то зачем ему писать об очевидном в данной отрасли знания - только по напрасну пальцы об клавиатуру отбивать - туннельный синдром приобретать?
Только вот часто ли сюда для оказания помощи заглядывают такие личности?
Изменено: Андрей VG - 14 Июл 2019 17:00:26
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал:
неверно поняли.
Как вопрос был поставлен, так был и понят. Вы серьёзно думаете, что можно догадаться по коду, который делает не то что нужно, что он на самом деле должен делать? Но и в этом случае подумать о пунктах 3, 4 не мешало бы :)
Изменено: Андрей VG - 14 Июл 2019 16:55:30
Ошибка method 'open' of object '_Recordset' failed при выполнении запроса, Запрос к MySQL
 
Доброе время суток
Цитата
Ronin751 написал:
FConn.ConnectionString
Экспериментируете? А почему бы классическим способом не открывать Recordset?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 265 След.
Наверх