Доброго дня! Не могу никак решить задачку: 1 если в столбце с:с есть дата >=сегодня, тогда сделать видимой skan_cloce1 2 если значение комбобокса fio_p1 равно фио пользователя из столбца b:b, для которого в столбце c:c срок заявки >=сегодня, тогда сделать видимой skan_cloce2
Доброго дня! Не могу никак решить задачку: 1 если в столбце с:с есть дата >=сегодня, тогда сделать видимой skan_cloce1 2 если значение комбобокса fio_p1 равно фио пользователя из столбца b:b, для которого в столбце c:c срок заявки >=сегодня, тогда сделать видимой skan_cloce2lFJl
Private Sub fio_p1_Change() a = Evaluate("=COUNTIF(C1:C1000,"">"" & TODAY())") b = Evaluate("=COUNTIFS(b1:b1000,""" & Me.fio_p1 & """,C1:C1000,"">"" & TODAY())") Me.skan_cloce1.Visible = (a > 0) Me.skan_cloce2.Visible = (b > 0) Me.Repaint End Sub Private Sub UserForm_Initialize() a = Evaluate("=COUNTIF(C1:C1000,"">"" & TODAY())") b = Evaluate("=COUNTIFS(b1:b1000,""" & Me.fio_p1 & """,C1:C1000,"">"" & TODAY())") Me.skan_cloce1.Visible = (a > 0) Me.skan_cloce2.Visible = (b > 0) Me.Repaint End Sub
[/vba]
Добавляем две процедуры и радуемся :
[vba]
Код
Private Sub fio_p1_Change() a = Evaluate("=COUNTIF(C1:C1000,"">"" & TODAY())") b = Evaluate("=COUNTIFS(b1:b1000,""" & Me.fio_p1 & """,C1:C1000,"">"" & TODAY())") Me.skan_cloce1.Visible = (a > 0) Me.skan_cloce2.Visible = (b > 0) Me.Repaint End Sub Private Sub UserForm_Initialize() a = Evaluate("=COUNTIF(C1:C1000,"">"" & TODAY())") b = Evaluate("=COUNTIFS(b1:b1000,""" & Me.fio_p1 & """,C1:C1000,"">"" & TODAY())") Me.skan_cloce1.Visible = (a > 0) Me.skan_cloce2.Visible = (b > 0) Me.Repaint End Sub
SLAVICK, Спасибо большее! А можете подсказать, как сделать видимой skan_cloce2, если в столбце C1:C1000 будет любая дата напротив ФИО в столбце b1:b1000 в комбобоксе fio_p1 ?
SLAVICK, Спасибо большее! А можете подсказать, как сделать видимой skan_cloce2, если в столбце C1:C1000 будет любая дата напротив ФИО в столбце b1:b1000 в комбобоксе fio_p1 ?lFJl
Прошу прощения, ввел в заблуждение, все работает. Ошибку выводил, если указать слишком большей диапазон, я сейчас указал 10к ячеек, работает стабильно. Спасибо!
Прошу прощения, ввел в заблуждение, все работает. Ошибку выводил, если указать слишком большей диапазон, я сейчас указал 10к ячеек, работает стабильно. Спасибо!lFJl