Сравнение элементов с данными в TextBox и вывод строки(строк) - VBA

Узнай цену своей работы

Формулировка задачи:

Товарищи, объявилась следующая проблема, не знаю как провернуть такую задачку: пользователь вводит в 2 поля textbox свои значения. Далее необходимо сравнить эти значения с соответсвующим значениям в двух столбцах, и если оба значения совпадают вывести строку Listbox1 если нет выдать сообщение об ошибке ошибку.

Решение задачи: «Сравнение элементов с данными в TextBox и вывод строки(строк)»

textual
Листинг программы
Private Sub CommandButton1_Click()
Dim a, b, i, count As Integer, baza(), bz1()
a = Val(TextBox1)
b = Val(TextBox3)
count = 0
With Sheets("Технические хар-ки АГНКС")
baza = .Range("A4:O" & .Cells(Rows.count, 1).End(xlUp).Row).Value
ReDim bz(1 To UBound(baza, 1), 1 To UBound(baza, 2))
For i = 1 To UBound(baza)
  If a = baza(i, 4) And b = baza(i, 7) Then
  k = k + 1
    For ii = 1 To UBound(baza, 2)
       bz(k, ii) = baza(i, ii)
    Next
  End If
Next
End With
Me.ListBox1.List = bz
End Sub

Оцени полезность:

11   голосов , оценка 4.091 из 5