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

Страницы: 1 2 След.
Собрать архив в таблицу и проверить совпадение семи цифр в строке
 
#
17.06.2025 21:21:08

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

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

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

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

Примечание.

 С модулировано, как совпали все семь введенных в первую таблицу цифр с тиражом 21027
 
Перейти    
Архив данных, Архив с сайта Столото
 
#
07.06.2025 21:57:32
Здравствуйте!
Нужен архив игр 7 из 49 с сайта Столото с кнопкой обновления данных данных и статистикой проверки совпадений цифр
 
Перейти    
Сбор данных с разных листов в зависимости от условия
 
#
02.04.2023 19:40:21
Здравствуйте, нужна помощь по сбору данных с других листов файла в зависимости от условия.
Необходимо прописать в ячейках В5:В7 автоматический сбор данных с листов файла в зависимости от выбранного в ячейке A2 текущего месяца. Номер листа соответствует номеру месяца
 
Перейти    
Изменение условий автосохранения вложений в outlook 2016
 
#
30.04.2022 11:18:38

Имеется код, который сохраняет вложения по условию в 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 руб.
 
Перейти    
Автосохранение вложений по условию в outlook 2016
 
#
25.04.2022 21:19:10
Нужна помощь в настройке скрипта или поиска иной проблемы в сохранении вложений в папку на компьютере.
Бюджет 500 руб. при условии поиска проблемы.
Код который не хочет работать и не сохраняет вложения с приходящих писем от определенного адресата
   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 = "C:\zzz\"

   'перебираем все вложения в письме
   For Each objAtt In itm.Attachments
   'сохраняем вложение в папку под именем: дата письма + название файла вложения
   objAtt.SaveAsFile saveFolder & "\" & sDateMail & "_" & objAtt.FileName
   'очищаем переменную с вложением
   Set objAtt = Nothing
   Next objAtt

   End Sub
Изменено: Алексей Галимов - 25.04.2022 21:33:17
 
Перейти    
Из закрытой книги суммировать значения с начала месяца до указанного числа месяца
 
#
23.11.2021 21:14:42
Помогите, пожалуйста, прописать правильно ссылку на ячейке В17 файла “Анализ по удельным нормам” так, чтобы она работала при условии, если файл “Расход энергоресурсов за 2020” не открыт.

Задача такая. В ячейке F17 ставится дата месяца, которая в ячейке D17 должна собирать данный с файла “Расход энергоресурсов за 2020” - количество сваренной целлюлозы с начала месяца. Например, если стоит дата 21, то должно соответственно собраться 5898 (=СУММ(C9:C29).
 
Перейти    
Кнопка сбора данных, Собрать данные на лист - Реестр договоров
 
#
02.08.2021 22:14:45
Здравствуйте!

Нужна помощь в создании кнопки сбора данных с  первого листа в таблицу на втором листе (номера столбцов, которые нужна  собирать я прописал над таблицей).
 
Перейти    
Выбрать категорию, группу по температуре, давлению
 
#
02.01.2021 20:00:18
Помогите доработать формулу в ячейке С4 так, чтобы она дополнительно определяла категорию трубопровода соответствующей максимальному значению параметра среды. Например, при температуре -240 0С и давлении -7 МПа, категория трубопровода должна быть, согласно таблицы IIэ, в группе 2, так как максимальным значением параметров среды, в данном случае, является давление (давление находится в категории выше, чем температура).
 
Перейти    
Как сделать так, чтобы кнопка на втором листе добавляла строку в таблицу второго листа?
 
#
06.08.2019 09:02:04

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

На втором листе кнопка добавляет строку в таблицу первого листа, вместо второго?
 
Перейти    
Макрос, который разрешает вставить данные только в одну из ячеек в определенном диапазоне
 
#
04.04.2018 10:23:13
Добрый день! Помогите расширить действие макроса. Есть макрос, который разрешает вставить данные только в одну из ячеек в определенном диапазоне между 68 и 73 столбцом.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 13 And Target.Column > 67 And Target.Column < 74 Then
    n = 0
    For i = 68 To 73
    If Cells(Target.Row, i) <> "" Then n = n + 1
    Next i
    If n > 1 Then
        Cells(Target.Row, Target.Column) = ""
        MsgBox ("Внимание, Вы ввели в ячейки несколько видов проверки. Вид проверки нужно отметить только в одной из шести ячеек, пожалуйста исправьте!")
        Exit Sub
    End If
End IfEnd Sub

Помогите расширить действие макроса, что бы можно было вставлять данные в одну из ячеек в диапазоне между 57-58 столбцом.
Изменено: Алексей Галимов - 04.04.2018 19:11:51
 
Перейти    
Сортировка повторяющихся чисел
 
#
18.10.2017 17:41:42

Здравствуйте!

Имеются три таблицы, в первой идет наполнение числами от 1 до 10. Во второй сортируются чаще всего повторяющиеся числа в строках первой таблицы в зависимости от ее наполнения. В третьей прописана формула чаще всего повторяющихся чисел от 1 до 10 в зависимости от наполнения первой таблицы.

 Как написать формулу во второй таблице, которая сортировала бы количество повторяющихся чисел в строках
первой таблицы в зависимости от ее наполнения?
 
Перейти    
Считать в двух таблицах повторы строк с одинаковыми значениями
 
#
17.10.2017 15:13:04
Здравствуйте!
Имеются две таблицы которые наполняются числами от 1 до 50. Как написать формулу которая считала бы количество повторов одинаковых чисел в строках?
 
Перейти    
Изменение условия отбора в макросе
 
#
25.04.2017 16:50:46
Здравствуйте!
Есть кнопка которая собирает данные с другого листа по дате. Сейчас идет сбор информации со столбца 2 (строка выделена ====), подскажите, как поправить макрос так, чтобы собирались данные сразу с двух столбцов листа со 2-го и с 4-го?
Код
Sub Отчет() 
mes# = InputBox("Введите номер месяца для формирования отчёта (от 1 до 12)") 
n = 13 
m = 13 
baza = Sheets(1).Name 
otchet = ActiveSheet.Name 
otstup = Cells(6, 2) 
m = m + otstup

Sheets(otchet).Activate 
Rows(m & ":10000").Delete Shift:=xlUp 
Range("A13").Select


While Sheets(baza).Cells(n, 1) <> "" 
' ====================================
   If Month(Sheets(baza).Cells(n, 2)) = mes Then 
' ==================================== 
       For x = 1 To 200 
           If Sheets(otchet).Cells(9, x) <> "" Or Sheets(otchet).Cells(8, x) <> "" Then 
               num = Sheets(otchet).Cells(9, x) 
               Sheets(otchet).Cells(m, x) = Sheets(baza).Cells(n, num) 
           End If 
       Next x 
   m = m + 1 
   End If

n = n + 1

Wend
 
Перейти    
Автоматизировать процесс передачи данных через корпоративную сетку
 
#
02.04.2017 14:47:04
 

Есть макрос, который собирает данные с других книг. Книги наполняют сотрудники отдела ежедневно информацией о проделанной работе на своих компьютерах и периодически сбрасывают в общую папку корпоративной сетки. При данном варианте не всегда, получается, получить своевременную информацию о проделанной работе каждого сотрудника, так как кто-то забывает ее обновлять, находится в срочной командировке, появилась иная срочная работа и т.д..

Вопрос. Как автоматизировать процесс передачи данных наполняемых сотрудниками отдела в общую папку корпоративной сетки.

Если я правильно понимаю, есть два варианта:

1.В общей папке корпоративной сетки выложить ярлыки наполняемых сотрудниками отдела книг и модернизировать макрос, который мог собирать данные с ярлыков (если это возможно).

2.Разработать макрос, который дублировал бы информацию каждой наполняемой книги в общую папку корпоративной сетки.

   Подскажите, какой вариант лучше и если есть другие
варианты как реализовать?
 
Перейти    
Текст с новой строки
 
#
03.12.2016 16:15:46
Подскажите, какой символ добавить, а точнее как правильно прописать строку кода:
Sheets(otchet).Cells(m, 3) = Sheets(baza).Cells(n, 6) & " " & Sheets(baza).Cells(n, 7) & " ИНН " & Sheets(baza).Cells(n, 8)
чтобы текст с ИНН продолжался в этой же ячейке не через пробел, а с новой строки?
 
Перейти    
Автоматическое добавление месяца в строке
 
#
21.11.2016 21:54:19
Подскажите, какую формулу вставить в ячейку A1, чтобы при добавлении строки прописывался следующий месяц и год?
 
Перейти    
Удаление данных при определенном условии
 
#
13.11.2016 00:56:49
Есть макрос, который собирает, соединяет в ячейки (Cells) данные с ячеек (Cells) другого листа. Помоготи добавить условие для сбора данных при определенном условии. Например, если в ячейке - Cells (m, 3) появляется слово “Допуск”, то в Cells (m, 9) не должны добавлятся данные из Cells(n, 35) и Cells(n, 36), то есть слова “Протокол” и “Постановление”.  Помогите, пожалуйста, для меня это сложно!
Код
While Sheets(baza).Cells(n, 1) <> ""
    If Month(Sheets(baza).Cells(n, 2)) = mes Then
        For X = 1 To 200
            If Sheets(otchet).Cells(9, X) <> "" Or Sheets(otchet).Cells(8, X) <> "" Then
                num = Sheets(otchet).Cells(9, X)
                Sheets(otchet).Cells(m, X) = Sheets(baza).Cells(n, num)
                Sheets(otchet).Cells(m, 3) = Sheets(baza).Cells(n, 6) & " " & Sheets(baza).Cells(n, 7)
                Sheets(otchet).Cells(m, 7) = "c " & Sheets(baza).Cells(n, 4) & " по " & Sheets(baza).Cells(n, 2)
                Sheets(otchet).Cells(m, 8) = "Акт проверки " & Sheets(baza).Cells(n, 34) & "; Предписание " & Sheets(baza).Cells(n, 33) & " (ПБ-" & Sheets(baza).Cells(n, 67) & ", БЭ-" & Sheets(baza).Cells(n, 68) & ", ЭЭ-" & Sheets(baza).Cells(n, 69) & ", ГТС-" & Sheets(baza).Cells(n, 70) & ")"
                Sheets(otchet).Cells(m, 9) = "Протокол " & Sheets(baza).Cells(n, 35) & " (ст." & Sheets(baza).Cells(n, 46) & ", " & Sheets(baza).Cells(n, 45) & ")" & "; Постановление " & Sheets(baza).Cells(n, 36) & " (сумма " & Sheets(baza).Cells(n, 47) & "); " & "Акт осмотра " & Sheets(baza).Cells(n, 38) & ", Разрешение " & Sheets(baza).Cells(n, 39)
                
            End If
        Next
    m = m + 1
    End If
 
Перейти    
При смене квартала пропадают ссылки
 
#
12.09.2016 11:57:26
Ребята, помогите правильно прописать формулы в ячейках AL-AN на листе “Отчет за квартал”. При нажатии на кнопку “Сформировать отчет” (при смене квартала) пропадают ссылки   :cry:
 
Перейти    
Объединение содержимого нескольких ячеек, Горит квартальная отчетность
 
#
04.07.2015 14:38:58
Ребята,
подскажите, кто знает, как сделать, чтобы в ячейке С листа “Отчет за квартал”
объединялся весь учетный номер, который состоит из четырех частей с листа
“Журнал учета оборудования” диапазон от M до Р ? Сейчас там собирается только
первая цифра из четырех 24-.
 
Перейти    
Журнал учета оборудования, Отчет за квартал
 
#
04.07.2015 13:58:49
Нужна помощь! На листе “Отчет за квартал” данные собираются с листа “Журнал учета
оборудования” только с третьей строки!? Как поправить, чтобы данные собирались
с первой строки? Более подробно во вложении.
 
Перейти    
Макрос сбора данных за определенный квартал, Квартальная отчетность
 
#
04.07.2015 11:49:13
Ребята, помогите, прописать макрос так, чтобы на листе “Отчет за квартал” собирались
данные с листа “Журнал учета оборудования” за определенный квартал, и чтобы при
“сборе” данных объединялись ячейки от M до P в один
учетный номер. Сейчас макрос прописан так, что данные собираются за
определенный месяц.
 
Перейти    
Форматирование: оранжевый цвет ячейки при определенном условии
 
#
20.05.2015 20:53:25
Ребята помогите доработать третью формулу форматирования в ячейке В1.
Не получается сделать так, чтобы ячейка загоралась оранжевым цветом только за четыре дня до указанного в ячейке F1 срока. Типа предупреждения.

Сейчас работают отлично две формулы с цветом зеленым –
исполнение документа и красным – предупреждение об окончании срока исполнения.
 
Перейти    
Учет оборудования в зависимости от группы и рабочего давления
 
#
29.03.2015 14:04:23
Помогите доработать формулу в ячейке F5 Более подробные условия во вложении.
 
Перейти    
Отображение статуса оборудования по условиям
 
#
31.10.2014 17:01:18
Ребята помогите доработать формулу в ячейке G7. У меня уже мозг закипел!!! .
Суть такая, если в ячейке D7 число меньше 0,02 - "оборудование не подлежит декларированию или сертификации" (это условие работает), если в ячейке D7 число от 0,02 до 0,1 при условии, что в ячейке E7 не стоит галочка “V” - "оборудование подлежит сертификации" (это условие работает), если в ячейке D7 число от 0,02 до 0,1 при условии, что в ячейке E7 стоит галочка “V” - "оборудование подлежит декларированию" (это условие не работает), если в ячейке D7 число больше 0,1 - "оборудование не подлежит декларированию или сертификации " (это условие работает, но почему-то реагирует на галочку “V” в ячейке E7, хотя должно реагировать при вышеописанном условии). Помогите, пожалуйста, поправить формулу. См. вложение.
 
Перейти    
Как сделать чтобы в таблице категория выбиралась в зависимости от группы в виде выпадающего списка?
 
#
28.10.2014 01:19:36
Ребята, подскажите, пожалуйста, как сделать выпадающее меню в зависимости от значений в соседней ячейки? Более подробно во вложении.
 
Перейти    
Количество повторений в строках
 
#
25.10.2014 17:54:01
Ребята, помогите, пожалуйста, поправить формулу так, чтобы она считала количество повторений вместо повторяющейся строки. Суть такая, имеются числа от 1 до 50. В строки таблицы, в ручную, добавляются по три разных числа. Если три числа (независимо от расположения в правой, левой или средней ячейки) повторяются, то нужно чтобы ячейка I15 сообщила о том, сколько повторений в таблице.Более подробно во вложении.
 
Перейти    
Как вычислить повторяющиеся числа в таблице
 
#
19.08.2014 12:19:29
Помогите вычислить повторяющиеся числа в таблице. Имеются числа от 1 до 50. В строки таблицы, в ручную, добавляются по три числа так, чтобы они между собой в таблице не повторялись. Если три числа (независимо от расположения в правой, левой или средней ячейки) повторяются в таблице, то нужно чтобы ячейка I15 сообщила о том, что такие числа уже имеются в таблице. Более подробное условие во вложении. Заранее спасибо!
 
Перейти    
Процент начисления премии
 
#
08.10.2012 20:25:41
Ребята, помогите прописать процент начисления премии в зависимости от показателя работы. У меня сейчас прописаны формулы, но с ограничением до показателя 8. Прописать формулы без ограничения показателя не получается :-( Более подробное условие во вложении.
 
Перейти    
Счет количества проверок при определенных условиях
 
#
18.09.2012 21:30:39
Ребята, помогите прописать счет количества проверок при определенных условиях. Более подробное условие во вложении. Заранее спасибо!
 
Перейти    
Подсчет сумм при определенных условиях
 
#
15.09.2012 18:46:06
Ребята, помогите, пожалуйста,  с формулой подсчета сумм при определенных условиях. Заранее спасибо!
 
Перейти    
Страницы: 1 2 След.
Наверх