Условия такие.

1. Собрать первой кнопкой весь архив тиражей игры 7 из 49 с сайта Столото по адресу https://www.stoloto.ru/7x49/archive во вторую таблицу.

2. Дальше, чтобы долго не грузить, второй кнопкой собрать последние 30 тиражей данной игры.

3. Потом вводим в первую таблицу семь любых чисел и третьей кнопкой проверяем вероятность их совпадений. В случае совпадения всех семи цифр, ячейка I4 отражает номер тиража, в котором они совпали.

Примечание.

Имеется код, который сохраняет вложения по условию в Outlook 2016.

Хотелось бы внести в него два условия, но больших знаний в этом нет, поэтому прошу помощи.

Первое условие.

Сделать автоматическое сохранение вложений. Сейчас, для того, чтобы осуществить сохранение нужно сделать определенные манипуляции, зайти в правило и применить его к определенной папке и только после этого идет сохранение в папку: “F:\Главный энергетик\Планерка\2022\Сохранение”.

Второе условие.

Правило создано так, чтобы сохранить ежедневные отчеты с темой письма "Энергобаланс" с двумя файлами в формате xls:

1. Расход энергоресурсов за 2022г.

2. Анализ выработки пара в 22

Нужно чтобы эти два файла сохранялись под другими именами:

1. Э 2022

2. Пар 2022

и обновляли уже имеющиеся в папке “F:\Главный энергетик\Планерка\2022\Сохранение” файлы.

Код.

Public Sub saveAtt (itm As Outlook.MailItem)

   Dim objAtt As Outlook.Attachment 'переменная для работы с вложениями

   Dim saveFolder As String 'переменная для пути к папке сохранения

   Dim sDateMail as string 'переманная для даты письма

   'сохраняем в правильном формате время создания сообщения

   sDateMail = Format(itm.CreationTime, "hh-mm-ss_dd.mm.yyyy")

   'задаем путь к папке сохранения

   saveFolder = "F:\Главный энергетик\Планерка\2022\Сохранение"

   'перебираем все вложения в письме

   For each objAtt in itm.Attachments

   'сохраняем вложение в папку под именем: дата письма + название файла вложения

   objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName

   'очищаем переменную с вложением

   Set objAtt = Nothing

   Next objAtt

   End Sub

Бюджет 500 руб.

Так же при вводе параметра температуры ниже 115 и(или) давления ниже 0,07 у вас появляется, какая то категория? Должно быть “не применяется” (см. предыдущую формулу) так как параметры среды выходят за пределы таблицы.

Так же при вводе 560 и 10 у вас появляется ошибка #Н/Д, а должна быть Категория Iэ, группа 2.

Подскажите, как исправить ошибку?

На втором листе кнопка добавляет строку в таблицу первого листа, вместо второго?