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

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