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

Страницы: 1
Заполнение веб-формы через VBA, форма принимает заполненную ячейку как незаполненную
 
#
18.03.2023 08:28:58
Здравствуйте,

Есть такой макрос, который заполняет поля веб-формы на странице https://eais.rkn.gov.ru/feedback/. Он же находится во вложенном файле Эксель. При нажатии на кнопку "РКН" в ячейке C3, макрос запускается.

Код
Sub RKN()

urladdress = Workbooks("RKN.xlsm").Sheets("Лист1").Range("B2")
texttosend = Workbooks("RKN.xlsm").Sheets("Лист1").Range("B3")
    With CreateObject("internetexplorer.application")
        'Запускаем IE и загружаем страницу
        .Visible = True
        .Navigate "https://eais.rkn.gov.ru/feedback/"
         While .Busy Or (.ReadyState <> 4)
            DoEvents
        Wend

        'Вносим данные
        With .Document
            .getElementsByName("Type")(0).Value = "pharmacy"
            .getElementsByName("ResourceUrl")(0).Value = "" & urladdress & ""
            .getElementsByName("MediaTypeU[]")(3).Click
            .getElementsByName("CommentU")(0).Value = " " & texttosend & " "
            .getElementsByName("ReporterLastName")(0).Value = "Петров"
            .getElementsByName("ReporterFirstName")(0).Value = "Василий"
            .getElementsByName("ReporterMiddleName")(0).Value = "Романович"
            .getElementsByName("ReporterBirthYear")(0).Value = "1955"
            .getElementsByName("ReporterCountry")(0).Value = "РФ"
            .getElementsByName("ReporterEmail")(0).Value = "pet.vas.019283per@example.ru"
            .getElementsByName("SendNotification")(0).Click
        End With
    
    End With
    
End Sub
Когда на странице https://eais.rkn.gov.ru/feedback/ нет капчи (защитного кода) в конце веб-формы, то остается нажать кнопку "Направить сообщение" и заполненная веб-форма уходит.
Но когда на странице есть поле для защитного кода, то после его ввода и нажатия кнопки "Направить сообщение", появляется ошибка "Не указано 'Указатель страницы сайта в сети "Интернет"'" (см. вложенный скрин). То есть, почему-то не воспринимается поле 'Указатель страницы сайта в сети "Интернет"' как заполненное. Повторюсь, это происходит только когда на странице появляется поле "Защитный код"!

Подскажите, пожалуйста, с чем может быть связана эта проблема и как можно исправить.

Всем хорошего дня.
 
Перейти    
Логика формулы ЕСЛИМН
 
#
25.02.2023 10:09:24
Всем привет. Подскажите, пожалуйста, логику формулы ЕСЛИМН.
Во вложенном файле в ячейке B4 следующая формула:
Код
=ЕСЛИМН(A4<27;"Ответ1";A4>85;"Ответ2";A4="-";"Дефис")
В ячейке A4 - дефис ("-"), однако результат формулы выдает "Ответ2", вместо слова "Дефис".
В ячейке A5 - слово "Текст", однако результат формулы выдает "Ответ2". Разве не должна быть какая-либо ошибка качестве результата?
Почему так происходит?
Изменено: Max5 - 25.02.2023 10:10:25
 
Перейти    
Почему формулы восстанавливаются на первоначальные при обновлении Power Query?
 
#
05.01.2022 10:52:38
Всем добрый день!

Знатоки Excel, вы не могли бы помочь с проблемой.
На листе 1 вложенного файла данные в столбцы от A до H тянутся с текстового файла, расположенного на жестком диске, путем запроса Power Query.
Раньше в ячейке I5 использовалась длинная формула
Код
=ЕСЛИОШИБКА(ЕСЛИМН(И(D5>G5;(D5-G5)>=(D5*1)/100;(D5-G5)<(D5*1.1)/100);"Д1";И(D5>G5;(D5-G5)>=(D5*1.1)/100;(D5-G5)<(D5*1.2)/100);"Д2";И(D5>G5;(D5-G5)>=(D5*1.2)/100;(D5-G5)<(D5*1.3)/100);"Д3";И(D5>G5;(D5-G5)>=(D5*1.3)/100;(D5-G5)<(D5*1.4)/100);"Д4";И(D5>G5;(D5-G5)>=(D5*1.4)/100;(D5-G5)<(D5*1.5)/100);"Д5";И(D5>G5;(D5-G5)>=(D5*1.5)/100;(D5-G5)<(D5*2)/100);"Д6";И(D5>G5;(D5-G5)>=(D5*2)/100);"Д7");"-")
.
Затем я изменил ее на короткую,
Код
=ЕСЛИ(G5>D5;"Д1";"-")
протянул на весь столбец I и закрыл файл. При открытии файла остается короткая формула.
Но после обновления Power Query в столбце I происходит замена формул с короткой на длинную (на ту, которая использовалась ранее).
Такая же замена происходит, если нажать на ячейку в столбце I и выбрать "Восстановить формулу в вычисляемом столбце".

Вы не подскажите, как сделать, чтобы при обновлении Power Query оставалась короткая формула
Код
=ЕСЛИ(G5>D5;"Д1";"-")

Интересно, где могла "засесть" первоначальная длинная формула?
Изменено: Max5 - 05.01.2022 13:37:47
 
Перейти    
Найти среднее значение 5 минимальных положительных значений в диапазоне
 
#
31.10.2021 05:37:25
Всем привет.
Есть формула, которая вычисляет среднее первых 5 минимальных значений:
Код
=СРЗНАЧ(НАИМЕНЬШИЙ($A$1:A10;{1;2;3;4;5}))

В вычислении "участвуют" положительные и отрицательные числа.
Подскажите, пожалуйста, как сделать, чтобы формула вычислила среднее первых 5 минимальных положительных значений?
 
Перейти    
Как сделать макрос с 2 переменными в гиперссылке на Интернет-страницу
 
#
24.10.2021 14:34:13
Всем добрый день,

Есть макрос, который последовательно загружает файлы, на основании переменной "curr": "EURUSD=X", "GBP=X". Он загружает только дневные данные. Дневные данные обозначаются в гиперссылке как "1d".
Код
Sub Загрузка()
Dim curr
For Each curr In Array("EURUSD=X", "GBP=X")
Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url https://query1.finance.yahoo.com/v7/finance/download/" & curr & "?period1=1609459200&period2=1640908800&interval=1d&events=history&includeAdjustedClose=true")
Next curr
End Sub
Я хотел бы добавить вторую переменную "dt": "1d" и "1wk", - чтобы макрос загружал: дневные данные по валютной паре "EURUSD=X" и недельные данные по валютной паре "GBP=X".
Подскажите, пожалуйста, как нужно объявить вторую переменную в коде?

В гиперссылке переменные располагаются, как указано ниже:

https://query1.finance.yahoo.com/v7/finance/download/" & curr & "?period1=1609459200&period2=1640908800&interval=" & dt & "&events=history&includeAdjustedClose=true

В итоге, макрос должен выгрузить 2 файла по ссылкам:
Код
https://query1.finance.yahoo.com/v7/finance/download/EURUSD=X?period1=1609459200&period2=1640908800&interval=1d&events=history&includeAdjustedClose=true

https://query1.finance.yahoo.com/v7/finance/download/GBP=X?period1=1609459200&period2=1640908800&interval=1wk&events=history&includeAdjustedClose=true
Изменено: Max5 - 24.10.2021 14:55:39
 
Перейти    
Продолжение работы макроса после скачивания файла из Интернета
 
#
10.09.2021 12:37:33
Всем привет!

Прошу совета для решения следующей задачи. Или дайте какую-либо наводку:-)
Есть макрос ниже. Он загружает файл "d125.zip" из интернета. Время загрузки всегда разное, но за 7 минут (3 строка макроса) укладывается, когда компьютер ничем не занят. После того, как файл загружен, следуют другие действия макроса.
Однако, если ещё что-нибудь делать на компьютере, то загрузка не укладывается в 7 минут. В этом случае, макрос не выполняет последующие действия с файлом (строка 4 и 5).
Подскажите, пожалуйста, что прописать в макросе, чтобы действия с загруженным файлом (строки 4 и 5) макросом всегда выполнялись. Я полагаю, что нужно исключить строку 3 из макроса и вставить какую-либо проверку на завершение скачивания.

Код
Sub Скачать()
Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url https://static.qbs.com/d125.zip")
Application.Wait (Now + TimeValue("0:07:00"))
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "C:\Users\Максим\Downloads\d125.zip", "C:\Users\М\Исходные\"
End Sub
Изменено: Max5 - 10.09.2021 12:39:44
 
Перейти    
Работа с несколькими книгами, у которых название представляет собой текст+числа+символы, Форматирование макросом нескольких
 
#
07.07.2021 14:12:55
Всем привет!

Есть макрос, который последовательно форматирует 50 файлов, имена файлов от 1.xlsb до 50.xlsb. Для цифровых имен файлов объявляется переменная Dim AA As Byte и дальше For AA = 1 To 50.
Подскажите, пожалуйста, что нужно подправить в макросе, если имена файлов для форматирования представляют собой текст с числами (например, Файл_1.xlsb, Имя_1.xlsb, Лист2_33ю.xlsb). Где в макросе прописать эти названия?

Спасибо!
Код
Sub Макрос()
Dim AA As Byte

    For AA = 1 To 50
          Workbooks.Open Filename:="C:\Users\Максим\Desktop\11111111111\" & AA & ".xlsb" 
          'Здесь работает макрос
   Next AA
End Sub
Изменено: vikttur - 07.07.2021 16:27:49
 
Перейти    
Автоматический запуск макроса из личной книги в зависимости от значения в ячейке
 
#
21.06.2021 13:09:49
Всем добрый день!

Вот здесь есть решение, как запустить макрос при появлении определенного значения в ячейке - https://www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TID=8314.
А есть ли способ, чтобы макрос вставлять не в модуль листа, а в личную книгу и чтобы он так же отрабатывал?

С уважением,
Максим.
Изменено: vikttur - 24.06.2021 14:15:18
 
Перейти    
Обычная формула вместо формулы массива для сравнения чисел в 2 диапазонах
 
#
20.06.2021 11:16:12
Всем добрый день,

Подскажите, пожалуйста, обычную формулу вместо формулы массива.
В приложенном файле в столбцах 1, 2, 3 сравниваются числовые значения в 2 диапазонах и на основании результатов выводится итог. Формула массива {=ЕСЛИ(И(A2:A11>B2:B11;C12>=A12);1;2)} долго считает, если данных на листе много.
Какую обычную не очень длинную формулу можно вставить?
Есть вариант, когда попарно сравниваются значения из столбцов 1 и 2 подряд =ЕСЛИ(И(A2>B2;A3>B3... и так далее. Но, мне кажется, есть более короткая формула.
 
Перейти    
Посчитать количество серий текстовых повторов одной формулой
 
#
02.06.2021 13:23:37
Всем добрый день!

Прошу помочь с формулой.
Дано: список слов "Да", "Нет" (столбец А) в прикрепленном файле.
Необходимо посчитать количество серий повторений "Нет Да Нет" (слова следуют друг за другом в столбце А).
Как промежуточный шаг - это создание дополнительного столбца В со сцепленными значениями в порядке как они располагаются в столбце А.
А возможно ли минуя создание дополнительного столбца В высчитать количество серий повторений "НетДаНет" одной формулой?

С уважением.
Изменено: Max5 - 02.06.2021 13:35:43
 
Перейти    
Реализовать условие в формуле, связанной с системой координат (точки ниже линии графика)
 
#
22.05.2021 12:56:16
Добрый день, уважаемые экселисты.

Прошу помочь с формулой.
Дано: значение ячеек A1=31, A31=1. В системе координат xy проведем линию от значения 31 до 1. Также даны значения ячеек от A2 до A30. Подскажите, пожалуйста, как реализовать в формуле следующее условие: если значения ячеек от А2 до А30 лежат "ниже" "наклонной линии", то "ИСТИНА", иначе "ЛОЖЬ".
Для наглядности прикладываю файл.

Премного благодарен!
 
Перейти    
Добавить кнопки макроса на панель инструментов проводника
 
#
19.05.2021 11:47:07
Добрый день.

Подскажите, пожалуйста, можно ли добавить кнопки макросов на панель инструментов проводника Windows. Если можно, при помощи какого инструмента?

Спасибо за ответы!
 
Перейти    
Перенести формулой значения из одного листа в отдельные листы
 
#
22.11.2019 02:44:59
Добрый день, уважаемые экселисты!
Возникла задача, перелистал форумы по формулам Excel, но ответа так и не нашел.
Дана таблица (файл во вложении) на листе "Исходные". Необходимо формулой перенести данные по каждой компании (компания, период, дата, приход) в отдельный для каждой компании лист Экселя.
Данных в листе "Исходные" будет много и они будут обновляться каждый день вручную. Соответственно, необходимы обновление данных в каждом листе.
Подскажите, пожалуйста, какой формулой это сделать. Понимаю, что здесь "замешан" какой-то непростой ВПР или ИНДЕКС.
Изменено: Max5 - 22.11.2019 06:01:00
 
Перейти    
Страницы: 1
Наверх