Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Напоминание о приобретении СИЗ в виде message box - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Напоминание о приобретении СИЗ в виде message box (Макросы/Sub)
Напоминание о приобретении СИЗ в виде message box
rinat_n Дата: Среда, 16.01.2019, 17:04 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - rinat_n
Дата добавления - 16.01.2019 в 17:04
Pelena Дата: Четверг, 17.01.2019, 11:02 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13866
Репутация: 3041 ±
Замечаний: ±

Excel 2010, 2016 & 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)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеКак вариант, если все таблицы отформатированы как Таблица.
[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]

Автор - Pelena
Дата добавления - 17.01.2019 в 11:02
rinat_n Дата: Четверг, 17.01.2019, 11:44 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое hands
 
Ответить
СообщениеСпасибо большое hands

Автор - rinat_n
Дата добавления - 17.01.2019 в 11:44
rinat_n Дата: Суббота, 26.01.2019, 09:44 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Подскажите возможно ли реализовать предупреждающее ввиде двух окон как на прикрепленном файле? Только вместо инструкций написать спецодежда.
К сообщению приложен файл: 6182028.jpg(17.7 Kb) · 6661175.xlsm(31.1 Kb)
 
Ответить
СообщениеДобрый день. Подскажите возможно ли реализовать предупреждающее ввиде двух окон как на прикрепленном файле? Только вместо инструкций написать спецодежда.

Автор - rinat_n
Дата добавления - 26.01.2019 в 09:44
rinat_n Дата: Четверг, 31.01.2019, 06:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
up
 
Ответить
Сообщениеup

Автор - rinat_n
Дата добавления - 31.01.2019 в 06:55
Pelena Дата: Четверг, 31.01.2019, 09:02 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 13866
Репутация: 3041 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Это уже не message box, надо форму рисовать. Значит к данной теме не относится.
Или два MsgBox друг за другом вывести?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЭто уже не message box, надо форму рисовать. Значит к данной теме не относится.
Или два MsgBox друг за другом вывести?

Автор - Pelena
Дата добавления - 31.01.2019 в 09:02
rinat_n Дата: Пятница, 01.02.2019, 19:25 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток. Хотелось бы вместо существующего message box, реализовать новый предлагаемый вариант
 
Ответить
СообщениеДоброго времени суток. Хотелось бы вместо существующего message box, реализовать новый предлагаемый вариант

Автор - rinat_n
Дата добавления - 01.02.2019 в 19:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Напоминание о приобретении СИЗ в виде message box (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!