Страницы: 1
RSS
Является ли значение частью выбранного диапазона
 
Подскажите, пожалуйста

как сделать проверку значения — является ли выбранное значение частью диапазона?
 
=ЕСЛИ(--A3>=--$G$3;ЕСЛИ(--A3<=--$G$4;"yes";"no");"no")
 
Спасибо за ответ.
А если проверяемое значение представляет собой текст? ('07.2017; '08.2017; и т.п.)
 
Цитата
ExcelStudent написал: Подскажите, пожалуйста
Шпора/подсказка, как вариант, однако -
Код
=И(A3>=$G$3;A3<=$G$4)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
=(A3-$G$3)*(A3-$G$4)<0
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
ExcelStudent написал: если проверяемое значение представляет собой текст?
Преобразовать в даты. Подправил формулу выше
 
Сработало.

Спасибо
 
Макрос в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G3:G4")) Is Nothing Then
        Application.EnableEvents = False
Dim i As Long
Dim iLastRow As Long
Dim BeginMonth As Integer
Dim EndMonth As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  Range("B3:B" & iLastRow).ClearContents
   BeginMonth = Split(Range("G3"), ".")(0)
     EndMonth = Split(Range("G4"), ".")(0)
   If BeginMonth > EndMonth Then
     Application.EnableEvents = True
     MsgBox "Начальный месяц не может быть больше конечного"
     Exit Sub
   End If
  For i = 3 To iLastRow
    If Split(Cells(i, "A"), ".")(0) >= BeginMonth And Split(Cells(i, "A"), ".")(0) <= EndMonth Then
      Cells(i, "B") = "yes"
      Cells(i, "B").Font.ColorIndex = 4
      Cells(i, "B").Font.Bold = True
    Else
      Cells(i, "B") = "no"
      Cells(i, "B").Font.ColorIndex = 3
      Cells(i, "B").Font.Bold = False
    End If
  Next
    End If
    Application.EnableEvents = True
End Sub
Страницы: 1
Наверх