Есть такой макрос, который заполняет поля веб-формы на странице 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/ нет капчи (защитного кода) в конце веб-формы, то остается нажать кнопку "Направить сообщение" и заполненная веб-форма уходит. Но когда на странице есть поле для защитного кода, то после его ввода и нажатия кнопки "Направить сообщение", появляется ошибка "Не указано 'Указатель страницы сайта в сети "Интернет"'" (см. вложенный скрин). То есть, почему-то не воспринимается поле 'Указатель страницы сайта в сети "Интернет"' как заполненное. Повторюсь, это происходит только когда на странице появляется поле "Защитный код"!
Подскажите, пожалуйста, с чем может быть связана эта проблема и как можно исправить.
В ячейке A4 - дефис ("-"), однако результат формулы выдает "Ответ2", вместо слова "Дефис". В ячейке A5 - слово "Текст", однако результат формулы выдает "Ответ2". Разве не должна быть какая-либо ошибка качестве результата? Почему так происходит?
Знатоки Excel, вы не могли бы помочь с проблемой. На листе 1 вложенного файла данные в столбцы от A до H тянутся с текстового файла, расположенного на жестком диске, путем запроса Power Query. Раньше в ячейке I5 использовалась длинная формула
протянул на весь столбец I и закрыл файл. При открытии файла остается короткая формула. Но после обновления Power Query в столбце I происходит замена формул с короткой на длинную (на ту, которая использовалась ранее). Такая же замена происходит, если нажать на ячейку в столбце I и выбрать "Восстановить формулу в вычисляемом столбце".
Вы не подскажите, как сделать, чтобы при обновлении Power Query оставалась короткая формула
Код
=ЕСЛИ(G5>D5;"Д1";"-")
Интересно, где могла "засесть" первоначальная длинная формула?
Всем привет. Есть формула, которая вычисляет среднее первых 5 минимальных значений:
Код
=СРЗНАЧ(НАИМЕНЬШИЙ($A$1:A10;{1;2;3;4;5}))
В вычислении "участвуют" положительные и отрицательные числа. Подскажите, пожалуйста, как сделать, чтобы формула вычислила среднее первых 5 минимальных положительных значений?
Есть макрос, который последовательно загружает файлы, на основании переменной "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". Подскажите, пожалуйста, как нужно объявить вторую переменную в коде?
В гиперссылке переменные располагаются, как указано ниже:
Прошу совета для решения следующей задачи. Или дайте какую-либо наводку:-) Есть макрос ниже. Он загружает файл "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
Есть макрос, который последовательно форматирует 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
Вот здесь есть решение, как запустить макрос при появлении определенного значения в ячейке - https://www.planetaexcel.ru/forum/?FID=8&PAGE_NAME=read&TID=8314. А есть ли способ, чтобы макрос вставлять не в модуль листа, а в личную книгу и чтобы он так же отрабатывал?
Подскажите, пожалуйста, обычную формулу вместо формулы массива. В приложенном файле в столбцах 1, 2, 3 сравниваются числовые значения в 2 диапазонах и на основании результатов выводится итог. Формула массива {=ЕСЛИ(И(A2:A11>B2:B11;C12>=A12);1;2)} долго считает, если данных на листе много. Какую обычную не очень длинную формулу можно вставить? Есть вариант, когда попарно сравниваются значения из столбцов 1 и 2 подряд =ЕСЛИ(И(A2>B2;A3>B3... и так далее. Но, мне кажется, есть более короткая формула.
Прошу помочь с формулой. Дано: список слов "Да", "Нет" (столбец А) в прикрепленном файле. Необходимо посчитать количество серий повторений "Нет Да Нет" (слова следуют друг за другом в столбце А). Как промежуточный шаг - это создание дополнительного столбца В со сцепленными значениями в порядке как они располагаются в столбце А. А возможно ли минуя создание дополнительного столбца В высчитать количество серий повторений "НетДаНет" одной формулой?
Прошу помочь с формулой. Дано: значение ячеек A1=31, A31=1. В системе координат xy проведем линию от значения 31 до 1. Также даны значения ячеек от A2 до A30. Подскажите, пожалуйста, как реализовать в формуле следующее условие: если значения ячеек от А2 до А30 лежат "ниже" "наклонной линии", то "ИСТИНА", иначе "ЛОЖЬ". Для наглядности прикладываю файл.
Добрый день, уважаемые экселисты! Возникла задача, перелистал форумы по формулам Excel, но ответа так и не нашел. Дана таблица (файл во вложении) на листе "Исходные". Необходимо формулой перенести данные по каждой компании (компания, период, дата, приход) в отдельный для каждой компании лист Экселя. Данных в листе "Исходные" будет много и они будут обновляться каждый день вручную. Соответственно, необходимы обновление данных в каждом листе. Подскажите, пожалуйста, какой формулой это сделать. Понимаю, что здесь "замешан" какой-то непростой ВПР или ИНДЕКС.