Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Получить данные с сетевого ресурса методом POST, "расшарить" JSESSIONID
 
Доброго времени суток!
Проблема: получить данные о наличии сведений о клиенте с сетевого ресурса https://kad.arbitr.ru/ методом POST. Запрос заполнением WEB форм дает результат. Запрос из среды VBA возвращает 403 ошибку. Вероятно, проблема в заголовках cookie, SessionId. Рекомендуют запросить главную страницу, получить и сохранить cookie, потом с этими  cookie запросить страницу https://kad.arbitr.ru/. Модуль во вложенном файле, как захватить cookie - не имею представления. Прошу оказать посильную помощь.
VBA. Однородные подстроки извлечь и выбрать максимум
 
Добрый день!
В прилагаемом файле "достать даты r" (во вложении) в текстовой строке находится некоторое количество однородных данных, объединенных общим признаком: даты после символа r.
Строка может содержать одно или более значений подстроки, в зависимости от записанной информации. Задача подразумевает получить наиболее позднюю дату всего массива значений r.
Просьба поделиться
Комбинаторика и ГИПЕРГЕОМЕТ: вывод сочетаний с условием ограниченной выборки
 
Уважаемые эксперты, Доброго времени суток!

В темах форума достаточно много примеров различного подхода к выводу массива комбинаций неповторяющихся сочетаний m по n, изложенных в макросах и даже формулах Рабочего листа.
Озадачила проблема возможности разработки кода в VBA Среде, позволяющего произвести выборку из массива по условию неповторяющихся комбинаций X, Включающих комбинации M, из совокупности N. Количество данных комбинаций позволяет определить с помощью функции ГИПЕРГЕОМЕТ, как результат деления на нее : 1/ГИПЕРГЕОМЕТ. В качестве примера идет речь о выборе 5 чисел из 10, из которх в зачет идет 3 (всего 12 вариантов, которые необходимо перечислить). В качестве вывода всех возможных вариантов использовал предложенный MCH код, но адаптировать его под решение и автоматизацию вывода всех вариантов данного примера не смог.

Прошу предложить варианты, поскольку данный код предполагает выборку из массива сочетаний.
Файл примера прикрепляю к данному сообщению.
Найти и изменить макросом ячейку с накопительным итогом
 
Уважаемые специалисты, Доброго времени суток! Прошу помощи. Есть изменяемый диапазон в Лист1 B1:B4, Данные вручную вводятся в ячейки. Задача: обновление накопительным итогом диапазона Лист1 B2:B5 (если введены данные в ячейку Лист1 B1, код находит ячйку в столбце B:B Листа2 по критерию соответствия значению Лист1 A1 и добавляет к имеющемуся значению в ячейке.)
Прилагаемый код, строка изменения  Лист2.Range("B2").Value = Лист2.Range("B2").Value + .Value  :
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      With Target
         If .Address(False, False) = "A1" Then
         If IsNumeric(.Value) Then
               Application.EnableEvents = False
               Лист2.Range("B2").Value = Лист2.Range("B2").Value + .Value     '
               Application.EnableEvents = True
    End If
    End If
End With
End Sub
Макрос для распеределения суммы по ячейкам
 
Доброго дня! Прошу помощи:
К сообщению прикреплен файл Книга1.
Ячейки А3:А14 содержат значения, суммируемые ячейкой А15. Предложите макрос (ввиду невозможности решить задачу формулами Excell), который позволит изменять значение любой ячейки вручную, при условии сохранения постоянства суммы ячеек в А15(1000000) и перераспределять остаток суммы по  ячейкам в диапазоне  А3:А14 за вычетом изменяемой ячейки. Т.е. если ввести значение в А3  250000, то в ячейках А4:А14 автоматически прописывалось 90886,36. Значение в А15 - сумма  А3:А14  (1000000)
Перенос значений аналогичных разрозненных диапазонов из листа защищенной закрытой книги в лист
 
Уважаемые специалисты!
Прошу помощи. Существует определенная форма ввода данных (приведен в примере файл Копия Данные.xlsm). Листы - защищены, за исключением ячеек, доступных для ввода данных.Задача: посредством VBA  кода перенести все значения из незащищенных заполненных ячеек листов книги Копия Данные.xlsm: Анкета ООО, Завление ООО в чистые  аналогичные ячейки листов книги Данные.xlsm: Анкета ООО, Завление ООО. Ощущение, что решение задачи лежит "на поверхности" - уже отсутствует, метод копипасты - не эффективен.
Обратное индексирование с возвратом двух значений
 
Здравствуйте! Приведенные примеры  в темах Обратного индексирования и Реверс Двумерный поиск в таблице (ВПР 2D) не позволили решить подобную задачу в  моем случае. "Допилить" формулу, округляющую значение ячейки Y2 в  меньшую сторону, но осуществляющую поиск максимального значения в  столбце А - уже не получается. Варианты поиска изложены в ячейках Y6:Z7  Прошу помощи. Файл прикреплен к тексту сообщения. В идеале расчет должен  производится в отсутствие таблицы, без "Поиска решения".
Возврат значения по нескольким условиям
 
Здравствуйте! Прошу помощи в решении задачи. Суть: в ячейке B3 вернуть значение из массива B20:B35 по критерию совпадения с ячейкой C2  в массиве C20:C35  и наличием соответствующей позиции в массиве A20:A35 (с содержанием в ячейке "кред" или "Cred"  ;)  . решение задачи через формулу индекса и поиска позиции не получается из-за вариативности содержимого массива A20:A35 . Вариант по принципу сцепления амперсандом по формуле ИНДЕКС(B20:B35;ПОИСКПОЗ(C3&"*Cred*";C20:C35&A20:A35;0)) не дает результата (также не получается использовать функцию ИЛИ в условии отбора) На настоящий момент производится только подсчет количества ячеек, удовлетворяющих условию по формуле СУММ(СЧЁТЕСЛИМН($C$20:$C$35;C3;$A$20:$A$35;"*Cred*"  ;)  ;СЧЁТЕСЛИМН($C$20:$C$35;C3;$A$20:$A$35;"*кред*"  ;)  )
Прикрепляю файл, прошу подсказать экспертный путь решения.
выборка номеров по определенным критериям
 
Уважаемые участники! Прошу Вашей консультации. "Вытянул" базу телефонных номеров. Существует определенный коммерческий интерес на отбор из пула номеров по определенному алгоритму. прописал каждый из алгоритмов через функцию Если( (прикрепил во вложении). Использование расширенного фильтра не дает результат ввиду того, что имеется лишь принцип отбора но не конкретное значение. Задача состоит в том, чтоб проверку по заданным критериям прошло содержимое каждой ячейки пула, при соответствии хотя бы одному условию ячейка копировалась на другой лист. При необходимости готов выгрузить один из листов пула.
Страницы: 1
Наверх