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

Тема в разделе "Visual Basic", создана пользователем segail, 14 мар 2010.

Статус темы:
Закрыта.
  1. segail

    segail Гость

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

    Код (Text):
    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей