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

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

Есть такой макрос, который заполняет поля веб-формы на странице 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/ нет капчи (защитного кода) в конце веб-формы, то остается нажать кнопку "Направить сообщение" и заполненная веб-форма уходит.
Но когда на странице есть поле для защитного кода, то после его ввода и нажатия кнопки "Направить сообщение", появляется ошибка "Не указано 'Указатель страницы сайта в сети "Интернет"'" (см. вложенный скрин). То есть, почему-то не воспринимается поле 'Указатель страницы сайта в сети "Интернет"' как заполненное. Повторюсь, это происходит только когда на странице появляется поле "Защитный код"!

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

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

Знатоки 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 минимальных положительных значений в диапазоне
 
Всем привет.
Есть формула, которая вычисляет среднее первых 5 минимальных значений:
Код
=СРЗНАЧ(НАИМЕНЬШИЙ($A$1:A10;{1;2;3;4;5}))

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

Есть макрос, который последовательно загружает файлы, на основании переменной "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
Продолжение работы макроса после скачивания файла из Интернета
 
Всем привет!

Прошу совета для решения следующей задачи. Или дайте какую-либо наводку:-)
Есть макрос ниже. Он загружает файл "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
Работа с несколькими книгами, у которых название представляет собой текст+числа+символы, Форматирование макросом нескольких
 
Всем привет!

Есть макрос, который последовательно форматирует 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
Автоматический запуск макроса из личной книги в зависимости от значения в ячейке
 
Всем добрый день!

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

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

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

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

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

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

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

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

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