Сравнение элементов с данными в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д