Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вывести в MsgBox строки, у которых срок диагностических карт истекает
 
#1
15.10.2021 12:25:18
Добрый день. Есть табличка с датами окончания диагностических карт авто.
Возможно ли вывести строки у которых срок диагностических карт истекает,
то есть у которых осталось меньше 10 дней в информационное окно MsgBox?
Заранее спасибо!
 
 
 
#2
15.10.2021 12:29:47
Добрый. Такое возможно, но зачем? Ну вот представьте, срабатываем макрос и у вас перед глазами на экране появляется окошко с перечислением строк, где истекает срок диагностической карты. Ни перейти на них, ни скопировать - MsgBox покажет инфу и все, хоть на бумажку переписывай. Может быть удобнее будет настроить условное форматирование (УФ), чтобы в файле отслеживался остаток дней по каждой карте до контрольного срока и как только он стал меньше заданной величины необходимая ячейка по конкретной записи выделялась как-нибудь (цветом заливки, цветом шрифта и т.д.)?

З.Ы. у вас это уже сделано, зачем вам еще строки в MSGBOX выводить?
Изменено: Пытливый - 15.10.2021 12:31:00
Кому решение нужно - тот пример и рисует.
 
 
 
#3
15.10.2021 12:33:15
Код
Sub myMsgBox()
    MsgBox GetTxt(), vbInformation, "заканчивается ДК"
End Sub

Function GetTxt() As String
    Dim arr As Variant
    arr = ActiveSheet.ListObjects("ДК").DataBodyRange
    
    Dim txt As String
    Dim y As Long
    Dim x As Long
    For y = 1 To UBound(arr, 1)
        If arr(y, 5) = "заканчивается ДК" Then
            For x = 1 To UBound(arr, 2)
                txt = txt & arr(y, x) & "    "
            Next
            txt = txt & vbCrLf
        End If
    Next
    GetTxt = txt
End Function
 
 
 
#4
15.10.2021 12:58:34
Супер! Спасибо!
Изменено: vikttur - 15.10.2021 18:55:55
 
 
 
Страницы: 1
Наверх