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

Вход

Регистрация

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

 

= Мир MS Excel/Сообщение при открытии по 2-м условиям - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сообщение при открытии по 2-м условиям (Макросы/Sub)
Сообщение при открытии по 2-м условиям
AVI Дата: Суббота, 18.08.2018, 02:38 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 17 ±
Замечаний: 0% ±

Excel 2016
Добрый день!
В файлике пример. Вылезает сообщение если в столбце L есть "В пути". А как заставить его вылазить учитывая два условия: Если и "В пути", и дата меньше текущей?

[vba]
Код
Option Explicit

Private Sub Workbook_Open()
Dim fcell
    Sheets("Лист1").Select
Set fcell = Columns("L:L").Find("В пути")
If Not fcell Is Nothing Then
    MsgBox "Доставка просрочена!"
End If
End Sub
[/vba]
К сообщению приложен файл: 2519174.xlsm (13.3 Kb)


Сообщение отредактировал AVI - Суббота, 18.08.2018, 02:38
 
Ответить
СообщениеДобрый день!
В файлике пример. Вылезает сообщение если в столбце L есть "В пути". А как заставить его вылазить учитывая два условия: Если и "В пути", и дата меньше текущей?

[vba]
Код
Option Explicit

Private Sub Workbook_Open()
Dim fcell
    Sheets("Лист1").Select
Set fcell = Columns("L:L").Find("В пути")
If Not fcell Is Nothing Then
    MsgBox "Доставка просрочена!"
End If
End Sub
[/vba]
Автор - AVI
Дата добавления - 18.08.2018 в 02:38
_Boroda_ Дата: Суббота, 18.08.2018, 13:47 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub Workbook_Open()
    With Sheets("Лист1")
        .Select
        r1_ = .Cells(.Rows.Count, 12).End(3).Row
        ar = .Cells(1, 12).Resize(r1_, 2)
        For i = 1 To r1_
            If ar(i, 1) = "Получено" Then
                If CDate(ar(i, 2)) < Date Then
                    .Cells(i, 12).Select
                    MsgBox "Доставка просрочена!"
                    Exit Sub
                End If
            End If
        Next i
    End With
End Sub
[/vba]
К сообщению приложен файл: 2519174_1.xlsm (14.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub Workbook_Open()
    With Sheets("Лист1")
        .Select
        r1_ = .Cells(.Rows.Count, 12).End(3).Row
        ar = .Cells(1, 12).Resize(r1_, 2)
        For i = 1 To r1_
            If ar(i, 1) = "Получено" Then
                If CDate(ar(i, 2)) < Date Then
                    .Cells(i, 12).Select
                    MsgBox "Доставка просрочена!"
                    Exit Sub
                End If
            End If
        Next i
    End With
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 18.08.2018 в 13:47
AVI Дата: Понедельник, 20.08.2018, 04:21 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 17 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Как всегда! Спасибо!
 
Ответить
Сообщение_Boroda_, Как всегда! Спасибо!
Автор - AVI
Дата добавления - 20.08.2018 в 04:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сообщение при открытии по 2-м условиям (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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