• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

диапазон больше пустоты

  • Автор темы segail
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

segail

Здравствуйте. Подскажите.
По условию идет поиск диапазона. Диапазон найден количество ячеек 31. Как правильно создать условие после And, если хоть в одной ячейки данного диапазона имеется значение?
То есть диапазон больше пустоты.

Код: 
Private Sub ComboBox2_Change()
Dim i As Integer
For i = 1 To 1000
If Cells(i, 27).Text = ComboBox1.Text Then
If Cells(i, 23).Value <> CDbl(ComboBox2.Text) And Sheets("Отчет").Cells(i, 27).Offset(, -1).Resize(31) > "" Then
If MsgBox("ВНИМАНИЕ", vbYesNo + vbExclamation, " ?????????????? ?????????") = vbYes Then
Module2.Change
End If
Else
Cells(i, 23).Value = CDbl(ComboBox2.Text): Module2.Foo
End If
End If
Next
End Sub
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ