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

Страницы: 1 2 След.
Архив данных, Архив с сайта Столото
 
Здравствуйте!
Нужен архив игр 7 из 49 с сайта Столото с кнопкой обновления данных данных и статистикой проверки совпадений цифр
Сбор данных с разных листов в зависимости от условия
 
Здравствуйте, нужна помощь по сбору данных с других листов файла в зависимости от условия.
Необходимо прописать в ячейках В5:В7 автоматический сбор данных с листов файла в зависимости от выбранного в ячейке A2 текущего месяца. Номер листа соответствует номеру месяца
Изменение условий автосохранения вложений в outlook 2016
 

Имеется код, который сохраняет вложения по условию в 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
 
Нужна помощь в настройке скрипта или поиска иной проблемы в сохранении вложений в папку на компьютере.
Бюджет 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
Из закрытой книги суммировать значения с начала месяца до указанного числа месяца
 
Помогите, пожалуйста, прописать правильно ссылку на ячейке В17 файла “Анализ по удельным нормам” так, чтобы она работала при условии, если файл “Расход энергоресурсов за 2020” не открыт.

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

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

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

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

Макрос, который разрешает вставить данные только в одну из ячеек в определенном диапазоне
 
Добрый день! Помогите расширить действие макроса. Есть макрос, который разрешает вставить данные только в одну из ячеек в определенном диапазоне между 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
Сортировка повторяющихся чисел
 

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

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

 Как написать формулу во второй таблице, которая сортировала бы количество повторяющихся чисел в строках
первой таблицы в зависимости от ее наполнения?
Считать в двух таблицах повторы строк с одинаковыми значениями
 
Здравствуйте!
Имеются две таблицы которые наполняются числами от 1 до 50. Как написать формулу которая считала бы количество повторов одинаковых чисел в строках?
Изменение условия отбора в макросе
 
Здравствуйте!
Есть кнопка которая собирает данные с другого листа по дате. Сейчас идет сбор информации со столбца 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
Автоматизировать процесс передачи данных через корпоративную сетку
 
 

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

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

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

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

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

   Подскажите, какой вариант лучше и если есть другие
варианты как реализовать?
Текст с новой строки
 
Подскажите, какой символ добавить, а точнее как правильно прописать строку кода:
Sheets(otchet).Cells(m, 3) = Sheets(baza).Cells(n, 6) & " " & Sheets(baza).Cells(n, 7) & " ИНН " & Sheets(baza).Cells(n, 8)
чтобы текст с ИНН продолжался в этой же ячейке не через пробел, а с новой строки?
Автоматическое добавление месяца в строке
 
Подскажите, какую формулу вставить в ячейку A1, чтобы при добавлении строки прописывался следующий месяц и год?
Удаление данных при определенном условии
 
Есть макрос, который собирает, соединяет в ячейки (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
При смене квартала пропадают ссылки
 
Ребята, помогите правильно прописать формулы в ячейках AL-AN на листе “Отчет за квартал”. При нажатии на кнопку “Сформировать отчет” (при смене квартала) пропадают ссылки   :cry:
Объединение содержимого нескольких ячеек, Горит квартальная отчетность
 
Ребята,
подскажите, кто знает, как сделать, чтобы в ячейке С листа “Отчет за квартал”
объединялся весь учетный номер, который состоит из четырех частей с листа
“Журнал учета оборудования” диапазон от M до Р ? Сейчас там собирается только
первая цифра из четырех 24-.
Журнал учета оборудования, Отчет за квартал
 
Нужна помощь! На листе “Отчет за квартал” данные собираются с листа “Журнал учета
оборудования” только с третьей строки!? Как поправить, чтобы данные собирались
с первой строки? Более подробно во вложении.
Макрос сбора данных за определенный квартал, Квартальная отчетность
 
Ребята, помогите, прописать макрос так, чтобы на листе “Отчет за квартал” собирались
данные с листа “Журнал учета оборудования” за определенный квартал, и чтобы при
“сборе” данных объединялись ячейки от M до P в один
учетный номер. Сейчас макрос прописан так, что данные собираются за
определенный месяц.
Форматирование: оранжевый цвет ячейки при определенном условии
 
Ребята помогите доработать третью формулу форматирования в ячейке В1.
Не получается сделать так, чтобы ячейка загоралась оранжевым цветом только за четыре дня до указанного в ячейке F1 срока. Типа предупреждения.

Сейчас работают отлично две формулы с цветом зеленым –
исполнение документа и красным – предупреждение об окончании срока исполнения.
Учет оборудования в зависимости от группы и рабочего давления
 
Помогите доработать формулу в ячейке F5 Более подробные условия во вложении.
Отображение статуса оборудования по условиям
 
Ребята помогите доработать формулу в ячейке G7. У меня уже мозг закипел!!! .
Суть такая, если в ячейке D7 число меньше 0,02 - "оборудование не подлежит декларированию или сертификации" (это условие работает), если в ячейке D7 число от 0,02 до 0,1 при условии, что в ячейке E7 не стоит галочка “V” - "оборудование подлежит сертификации" (это условие работает), если в ячейке D7 число от 0,02 до 0,1 при условии, что в ячейке E7 стоит галочка “V” - "оборудование подлежит декларированию" (это условие не работает), если в ячейке D7 число больше 0,1 - "оборудование не подлежит декларированию или сертификации " (это условие работает, но почему-то реагирует на галочку “V” в ячейке E7, хотя должно реагировать при вышеописанном условии). Помогите, пожалуйста, поправить формулу. См. вложение.
Как сделать чтобы в таблице категория выбиралась в зависимости от группы в виде выпадающего списка?
 
Ребята, подскажите, пожалуйста, как сделать выпадающее меню в зависимости от значений в соседней ячейки? Более подробно во вложении.
Количество повторений в строках
 
Ребята, помогите, пожалуйста, поправить формулу так, чтобы она считала количество повторений вместо повторяющейся строки. Суть такая, имеются числа от 1 до 50. В строки таблицы, в ручную, добавляются по три разных числа. Если три числа (независимо от расположения в правой, левой или средней ячейки) повторяются, то нужно чтобы ячейка I15 сообщила о том, сколько повторений в таблице.Более подробно во вложении.
Как вычислить повторяющиеся числа в таблице
 
Помогите вычислить повторяющиеся числа в таблице. Имеются числа от 1 до 50. В строки таблицы, в ручную, добавляются по три числа так, чтобы они между собой в таблице не повторялись. Если три числа (независимо от расположения в правой, левой или средней ячейки) повторяются в таблице, то нужно чтобы ячейка I15 сообщила о том, что такие числа уже имеются в таблице. Более подробное условие во вложении. Заранее спасибо!
Процент начисления премии
 
Ребята, помогите прописать процент начисления премии в зависимости от показателя работы. У меня сейчас прописаны формулы, но с ограничением до показателя 8. Прописать формулы без ограничения показателя не получается :-( Более подробное условие во вложении.
Счет количества проверок при определенных условиях
 
Ребята, помогите прописать счет количества проверок при определенных условиях. Более подробное условие во вложении. Заранее спасибо!
Подсчет сумм при определенных условиях
 
Ребята, помогите, пожалуйста,  с формулой подсчета сумм при определенных условиях. Заранее спасибо!
Как разделить счет определенных данных по кварталам
 
Ребята, можете помочь прописать в таблице на листе “Сравнительный анализ по годам” в ячейках без цвета (диапазон J – S, строки: 7, 10, 16 и 19) данные о применении 4 статей (9.1, 9.2., 9.11 и 9.16.) в отношении лиц: ГЛ ДЛ ЮЛ по кварталам? Сейчас у меня в этих ячейках прописаны формулы, для примера, которые считают просто общее количество без разделения по кварталам. Разделить счет по кварталам никак не получается :-(  
 
С уважением, Алексей
Страницы: 1 2 След.
Наверх