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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 265 След.
Как получить изменненый диапозон с помощью формулы, MID, SUMIFS, работа с диапозоном
 
Цитата
БМВ написал:
что хотели этим получить?
Привет, Михаил.
Как что, а в названии темы что написано?
Цитата
получить изменненый диапозон
Правда что такое измененный диапазон я то же не знаю. :(
Изменено: Андрей 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?
ЕСЛИ данные в 6 последующих ячейках расположены в возрастающем порядке..., Писать макрос или формулами?
 
Цитата
БМВ написал:
пока у меня низкая понимаемость что хотел ТС
Да вроде всё кристально ясно.
Для блока из шести последовательно идущих ячеек убедится, что есть только положительные и нулевые разности или только отрицательные и нулевые разности. Если выполнено  условие невозрастания или неубывания, то проверить, что максимальное абсолютное отклонение в разностях не превышает 1%.
До же для отношений. Убеждаемся что есть только отношения последующего к текущему меньше или равные единицы или только больше или равные единицы, и абсолютная разница отношения с 1 не превышает 1%.
Как-то так
Цитата
artyrH написал:
можно исправить: формулу из уф в столбец Н и на листе 1
спасибо, понял. Нашёл поиском по существующим Уф.
Изменено: Андрей VG - 14 Июл 2019 09:50:58
Как из текста-каши получить первое русское слово
 
Доброе время суток.
Aleksei_Zhigulin, спасибо. Интересный вариант ухода от лямбды или let .. in :)
ЕСЛИ данные в 6 последующих ячейках расположены в возрастающем порядке..., Писать макрос или формулами?
 
Доброе время суток.
artyrH, коллега, не уловил, а что сделано-то в вашем файле?
Изменено: Андрей VG - 14 Июл 2019 08:46:52
Работа формулы внутри макроса в выделенном диапазоне
 
Доброе время суток
Цитата
Ігор Гончаренко написал:
там может и решение найдется
Краткий перевод с языка ТС на человеческий

Задача: в каждую ячейку выделения вписать формулу PROPER, аргументом которой является ячейка слева.
Цитата
Fsociety_ написал:
в любом выделенном диапазоне
Условие выполнения макроса:
1. Выделенный диапазон не должен содержать столбец A, так как в этом случае не существует левого столбца, ячейки которого являются аргументом применяемой к выделению формулы. Если выделение содержит столбец А, то прерывать выполнение макроса с сообщением.
2. Каждая область выделения должна состоять из одного столбца, так как бессмысленно применять формулу во втором столбце и последующих столбцах выделения.
Подварианты обработки исключения:
2.1 Прерывать выполнение макроса без выполнения
2.2 Ввести формулу только в самый левый столбец области
2.3 Ввести формулу только в самый правый столбец области
2.4 Запросить пользователя, что делать в этом случае.
3. В каждую ячейку выделения доступна для ввода данных. Проверка защищён ли лист. Если защищён, то проверка все ли ячейки выделения являются не защищёнными. Если нет, то варианты
3.1 Вводить формулу только в не защищённые.
3.2 Запросить пользователя, что делать в этом случае.
4. Возможно, проверять, не содержат ли ячейки выделения уже введённые данные или формулы. Защита от случайного ошибочного выделения.

Ну, как-то так я бы составил ТЗ.
Изменено: Андрей VG - 14 Июл 2019 08:45:31
Таблица с выбором данных с разных листов
 
Цитата
gling написал:
Дубль темы создавать было не обязательно
Обязательно нужно было о кроссе предупредить :)
Работа с загруженными из XML данными
 
Доброе время суток.
Думаю, что проще это делать через Power Query - тогда будет достаточно только обновить таблицу.
Изменено: Андрей VG - 12 Июл 2019 15:06:50 (Забыл пример приложить)
Регулярные выражения - извлечь часть текста по условию
 
Уже давно расшифровано. Вы не поверите, но даже книги в продаже есть! :)
Регулярные выражения - извлечь часть текста по условию
 
Цитата
shlang написал:
А первое число с конца?
Шаблон
Код
"\d+(?=\D*$)"
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 265 След.
Наверх