Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » AleChe
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Получить данные с сетевого ресурса методом POST, "расшарить" JSESSIONID
 
#
16.02.2021 15:47:50
Alex T., Спасибо за информацию, постараюсь разобраться с функционалом. Боюсь, бюджетное учреждение не одобрит расходы на сей полезный продукт

sokol92,
Сведения о государственной регистрации юрлиц и ИП и Единый реестр субъектов малого и среднего предпринимательства из этой же категории, но там функционал реализуется без проблем. Цель - расширить функционал проверки к/агентов

doober, строки Вашего кода незначительно переставлены местами, в результате осуществляется первичный вход на страницу, выскакивает всплывающее окно с информированием и уведомлениями. Если его программно закрыть - возможно, доступ осуществлен
 
Перейти    
Получить данные с сетевого ресурса методом POST, "расшарить" JSESSIONID
 
#
15.02.2021 14:26:29
doober, да, к сожалению пришел к тому же результату. если обрезать url до https://kad.arbitr.ru/ - то отвечает {"Result":{"ServiceId":255,"Title":null,"Message":null,"ValidOn":{"From":"\/Date(-62135596800000)\/","To":"\/Date(-62135596800000)\/"},"NotificationId":"00000000-0000-0000-0000-000000000000","IconUrl":null,"IsHiddenLink":false},"Message":"","Success":true,"ServerDate":"2021-02-15T14:24:02"}. Уже не знаю, в какую сторону расковыривать
 
Перейти    
Получить данные с сетевого ресурса методом POST, "расшарить" JSESSIONID
 
#
12.02.2021 13:05:52
Доброго времени суток!
Проблема: получить данные о наличии сведений о клиенте с сетевого ресурса https://kad.arbitr.ru/ методом POST. Запрос заполнением WEB форм дает результат. Запрос из среды VBA возвращает 403 ошибку. Вероятно, проблема в заголовках cookie, SessionId. Рекомендуют запросить главную страницу, получить и сохранить cookie, потом с этими  cookie запросить страницу https://kad.arbitr.ru/. Модуль во вложенном файле, как захватить cookie - не имею представления. Прошу оказать посильную помощь.
 
Перейти    
VBA. Однородные подстроки извлечь и выбрать максимум
 
#
29.01.2021 14:28:12
Андрей VG, Круто! Спасибо! Буду пробовать вставить Вашу функцию в свой модуль
 
Перейти    
VBA. Однородные подстроки извлечь и выбрать максимум
 
#
29.01.2021 14:02:15
Добрый день!
В прилагаемом файле "достать даты r" (во вложении) в текстовой строке находится некоторое количество однородных данных, объединенных общим признаком: даты после символа r.
Строка может содержать одно или более значений подстроки, в зависимости от записанной информации. Задача подразумевает получить наиболее позднюю дату всего массива значений r.
Просьба поделиться
 
Перейти    
Комбинаторика и ГИПЕРГЕОМЕТ: вывод сочетаний с условием ограниченной выборки
 
#
20.11.2019 20:11:25
vikttur, Да, забавно получилось:) Но вопрос адресовал MCH
 
Перейти    
Комбинаторика и ГИПЕРГЕОМЕТ: вывод сочетаний с условием ограниченной выборки
 
#
20.11.2019 19:17:49
MCH,, Физический смысл данной задачи сводится к выводу всех комбинаций (сочетаний), состоящих из 5 цифр от 1 до 10, в которых нет 3 повторяющихся значений, верно понимаю?
Изменено: AleChe - 20.11.2019 20:13:55 (Не правильно указан адресат)
 
Перейти    
Комбинаторика и ГИПЕРГЕОМЕТ: вывод сочетаний с условием ограниченной выборки
 
#
20.11.2019 14:27:35
MCH,  странно, количество комбинаций уменьшилось, по сравнению с гипергеометрическим распределением... правильно ли понимаю, что процедура вывода комбинаций предполагает загрузку массива сочетаний 5 из 10 и последующую фильтрацию по принципу - первое вхождение 3 повторяющихся значений? Ума не приложу, как допиливать предлагаемый Вами код в посте
 
Перейти    
Комбинаторика и ГИПЕРГЕОМЕТ: вывод сочетаний с условием ограниченной выборки
 
#
20.11.2019 01:06:57
Уважаемые эксперты, Доброго времени суток!

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

Прошу предложить варианты, поскольку данный код предполагает выборку из массива сочетаний.
Файл примера прикрепляю к данному сообщению.
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
08.02.2019 20:09:37
Юрий М,  решено через "индийский код", главное - работает. Файл во вложении. Всем спасибо за сотрудничество

код: (вставлен в модуль  AddDateToTable_Federal строкой
Код
If Federal.Range("sum") <> "" Then
Set cl = Лист4.Columns(2).Find(Federal.Range("sum").Offset(-2))
        If Not cl Is Nothing Then
                cl.Offset(, 8) = cl.Offset(, 8) + Federal.Range("sum").Value
        End If
        End If
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
08.02.2019 01:38:12
Предлагаю  такой вариант: вставил в тело процедуры AddDateToTable_Federal
Код
On Error Resume Next
    Set cl = Worksheets("Смета").Columns(2).Find(Federal.Range("sum").Offset(-2))
        cl.Offset(, 8) = cl.Offset(, 8) + Federal.Range("sum").Value
(изложен в прилагаемом файле).
Исполняется через F8, но при нажатии кнопки выдает ошибку Argument not optional
Уважаемые специалисты, что я делаю не так?????
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
07.02.2019 19:38:09
Юрий М, или как запихать часть кода
Код
 
With Target
If Target.Address = "$C$3" Then
 If IsNumeric(.Value) Then
ThisWorkbook.Worksheets("Cмета").Columns(2).Find(.Offset(-2))
If Not cl Is Nothing Then
Application.EnableEvents = False
cl.Offset(, 8) = cl.Offset(, 8) + .Value


в AddDateToTable_Federal
Изменено: AleChe - 07.02.2019 19:38:43 (код одной строкой)
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
07.02.2019 19:32:40
Юрий М, по логике, в диапазон C1:C6 данные вводятся вручную, причем C1 подбором из списка. Потом нажимается кнопка "внести статью", которая сначала запускает процедуру переноса суммы расходов из C3 в соответствующую статью. потом данные из диапазона улетают в таблицу процедурой AddDateToTable_Federal. Цикл преодолеть не выходит, события не отслеживается. Возможно ли процедуру Worksheet_Change вывести из Private , чтоб запихать его вызовом процедуры оператором Call в начало AddDateToTable_Federal??? Гугл уже не в помощь, просьба отнестись с пониманием.
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
07.02.2019 12:34:00
vikttur, код изменил. внесенное значение перенеслось, код исполнился. Но при внесении нового значения в C1 опять срабатывает цикл и таблица заполняется до бесконечности. Файл с кодом приложил.
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
07.02.2019 09:13:29
Юрий М, вставил вариант кода (приложил ниже). начался треш: после ввода значения в C3 и Enter процедура начала заполнять строки умной таблицы до бесконечности... Что я делаЮ не так???
Код
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cl As Range
On Error Resume Next
With Target
If Target.Address = "$C$3" Then
 If IsNumeric(.Value) Then
Set cl = ThisWorkbook.Worksheets("Cмета").Columns(2).Find(.Offset(-2))
If Not cl Is Nothing Then
Application.EnableEvents = False
cl.Offset(, 8) = cl.Offset(, 8) + .Value
 MsgBox cl.Offset(, 8).Address
 Application.EnableEvents = True
End If
End If
End If
End With
Call AddDateToTable_Federal
End Sub
Изменено: AleChe - 07.02.2019 09:16:16 (код одной строкой)
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
07.02.2019 07:02:24
vikttur, спасибо, это открытие! попытка 2 процедуры залить на 1 кнопку дадут результат? или Копать в сторону слияния процедур в тело 1 кода?
Или клеить через Call?
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
27.01.2019 20:10:33
Sanja,  :D оценил) Остро!
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
27.01.2019 10:14:14
Anchoret, Странно, но она работала и с ошибкой. я ее правил. Понимаю, что код реагирует на любой изменение ячейки(ввод значения и Enter), это и есть обработчик событий. Тогда да - переписывать....
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
26.01.2019 23:32:00
Юрий М, да) честно говоря, не разобрался - как ее интерпритировать, но - главное в модуле листа работает, не трогаю. Как его к кнопке приклеить: вызовом процедуры или вырезать код - это вторая задача
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
26.01.2019 23:20:31
Sanja,  Заработал такой код:
Код
 
Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cl As Range
On Error Resume Next
With Target
If Target.Address = "$C$3" Then
 If IsNumeric(.Value) Then
Set cl = ThisWorkbook.Worksheets("Cìåòà").Columns(2).Find(.Offset(-2))
If Not cl Is nofing Then
Application.EnableEvents = False
cl.Offset(, 8) = cl.Offset(, 8) + .Value
 MsgBox cl.Offset(, 8).Address
 Application.EnableEvents = True
End If
End If
End If
End With
End Sub

осталось вставить его в модуль
Изменено: AleChe - 26.01.2019 23:30:02 (опять однострочник)
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
26.01.2019 15:25:31
_Igor_61, я стараюсь, но среди полученных ответов не могу найти решения: сказывается недостаток моих компетенций, самостоятельно решить проблему не выходит
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
25.01.2019 22:10:36
_Igor_61,
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
25.01.2019 21:12:58
Последний вариант кода Private (не сработал):
Код
1 )Private Sub Worksheet_Change(ByVal Target As Excel.Range)
2) Dim cl As Range 
3) On Error Resume Next 
4) With Target 
5) If Not Intersect(Target, Range("sum")) Is Nothing And .Count = 1 Then 
6) If IsNumeric(.Value) Then
7) Set cl = Worksheets("Смета").Columns(2).Find(.Offset(-2)) 
8) If Not cl Is Nothing Then
9) Application.EnableEvents = False
10) cl.Offset(, 8) = cl.Offset(, 8) + .Value  ' 
11) cl.Offset(, 15) = IIf(cl.Offset(, 15) <> Empty, cl.Offset(, 15) & "+" & .Value, .Value)
12)             End If
13)    End If
14) End If
15) End With
16) End Sub
Изменено: AleChe - 25.01.2019 21:16:25 (Однострочие)
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
25.01.2019 20:58:20
Sanja,вот и вопрос - как повесить Private Sub или часть кода в эту кнопку. Добавление строки Application.EnableEvents = True не дает резульлтата.  Private Sub исполняется только в случае размещения в модуле листа ФЕДЕРАЛЬНЫЙ БЮДЖЕТ. Присвоение статуса Sub режим пошаговой отладки не включил. Совсем тупик.
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
25.01.2019 20:53:48
Sanja,во вложении файл, на листе ФЕДЕРАЛЬНЫЙ БЮДЖЕТ ячейка C1 (подбор из списка на Листе4 СМЕТА). Ячейка C3 вводится вручную. По факту заполнения диапазона Entries (C1:C7) кнопкой Внести статью исполняется макрос AddDateToTable_Federal() , занося данные в "умную таблицу" Диапазон A11:E:E. Ожидаемая задача сводилась к следующему: при нажатии конпки Внести статью :
1) данные из ячейки sum (C3) копировались накопительным итогом в столбец sum_event (Лист Смета, диапазон J4:J74) При совпадением с параметром из ячейки dirrection (Лист ФЕДЕРАЛЬНЫЙ БЮДЖЕТ, C1) ячейке диапазона B4:B74 Листа Смета;
2) исполнялся макрос AddDateToTable_Federal()
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
25.01.2019 17:14:49
Sanja, вообщем, код срабатывает, но при попытке интегрировать его в свою рабочую книгу  с имеющимися макросами :
1) если устанавливается только он в модуль листа срабатывает только 1 раз. последующие попытки не дают результата, отладчик из-за Private Sub Worksheet_Change включить не могу.
2) попытки вписать его в действующий код модуля листа и привязать на кнопку не удаются: либо перепроверяет каждое вводимое значение, коих 5 (нужно только Range("sum"), но на листе, в котором необходимо суммирование - ничего не происходит, "троит" ошибкой .

Проблемы с интерпритацией строки:
If Not Intersect(Target, Range("sum")) Is Nothing And .Count = 1 Then
If Not Intersect(Target, Range("sum")) Is Nothing - тут понимаю, что если пересекается целевая(содержащая критерий отбора) и изменяемая(которую будем вносить).
.Count = 1 - с этим сложно: изменения 1 раз? или отсчет вводимого значения?

Подскажите, какую сторону копать? и почему Private Sub не "клеится" на кнопку?
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
23.01.2019 14:49:17
Sanja,Спасибо!
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
22.01.2019 23:04:20
А если параметр поиска находится не слева от переносимого значения ( в   данном случае не в столбце A) а выше? тут уже Intersect не пойдет? Как  можно данный модуль либо итегрировать в имеющийся код либо привязать к  кнопке?Прикрепил пример во вложении
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
22.01.2019 16:50:16
Sanja,Спасибо, Работает! Еще бы в коде разобраться) попробую камменты написать, посмотрите?
 
Перейти    
Найти и изменить макросом ячейку с накопительным итогом
 
#
22.01.2019 07:53:56
Уважаемые специалисты, Доброго времени суток! Прошу помощи. Есть изменяемый диапазон в Лист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 2 След.
Наверх