Напоминание о приобретении СИЗ в виде message box

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Напоминание о приобретении СИЗ в виде message box (Макросы/Sub)

rinat_n

Дата: Среда, 16.01.2019, 17:04 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго дня форумчане. Нужна Ваша помощь. На этом форуме нашел документ по учету и заказу средств индивидуальной защиты. Так вот немножко доработал под себя как хотелось бы видеть. В документе созданы две вкладки. В каждой вкладки будет список персонала примерно по 10 человек.
1. Возможно ли сделать при открытии файла выходило всплывающее окно виде message box о напоминании за 60 дней что n-персоналу требуется приобрести СИЗ?

К сообщению приложен файл: 6976533.xlsx (21.6 Kb)

Сообщение отредактировал rinat_n - Четверг, 17.01.2019, 09:11

Ответить

Pelena

Дата: Четверг, 17.01.2019, 11:02 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19405

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Как вариант, если все таблицы отформатированы как Таблица.
[vba]

Код

Private Sub Workbook_Open()
    Dim sh As Worksheet, FIO$, Dat As Date, lrow&, i&, s$
    Dim oTbl As ListObject
    Dat = Date + 60
    For Each sh In Worksheets
        With sh
            For Each oTbl In .ListObjects
                FIO = .Cells(oTbl.Range.Row - 3, 1).Value
                lrow = oTbl.DataBodyRange.Rows.Count
                For i = 1 To lrow
                    If oTbl.DataBodyRange.Cells(i, 7).Value < Dat Then s = s & Chr(10) & FIO & " " & oTbl.DataBodyRange.Cells(i, 2).Value & " " & oTbl.DataBodyRange.Cells(i, 7).Value
                Next i
            Next oTbl
        End With
    Next sh
    MsgBox s
End Sub

[/vba]

К сообщению приложен файл: 6976533.xlsm (31.1 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

rinat_n

Дата: Четверг, 17.01.2019, 11:44 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Спасибо большое hands

Ответить

rinat_n

Дата: Суббота, 26.01.2019, 09:44 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 33

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день. Подскажите возможно ли реализовать предупреждающее ввиде двух окон как на прикрепленном файле? Только вместо инструкций написать спецодежда.