Как собрать все значения, удовлетворяющие указанным условиям?

Question

[Георгий Кузнецов]

Нужно в текстБокс TB1 с позиции B2 до Y92 собрать количество таких значений, которые бы были больше, чем значение в ячейке Z93, но меньше чем в АА93

Я написал тут что смог, но разумеется это не работает (при отладке кода понял что условие в цикле всегда принимает значение false)

Private Sub CommandButton1_Click()
Dim a As Integer
For i = 2 To 25
For ii = 2 To 92
If (Cells(i, ii) > Cells(26, 93) And Cells(i, ii) < Cells(27, 93)) Then
a = a + 1
TB1.Text = a
End If
Next
Next
End Sub

Answer 1

[Пычев Анатолий]

У Вас i должно меняться от 2 до 92, а ii от 2 до 25, т.к. первый аргумент в Cells это строка, а сторой это столбец.
Остальное норм должно работать.

Можете добавить Debug.print Cells(i,ii) для вывода значений в консоль и посмотреть чем оперирует инструкция сравнения
Что бы увидеть консоль Ctrl+G или меню View->Immediate Window

Comments

[Георгий Кузнецов]

Благодарю за ответ, всё сошлось
Я просто спутал строки и столбцы, а в целом задача решена
Еще раз благодарю