Добрый день, имеется умная таблица И имеются входящие аргументы Фамилия, Имя, Отчество и дата рождения, подскажите каким образом можно перебрать все строки таблицы и в случае совпадения вернуть строку в которой обнаружено совпадение?
Добрый день, имеется умная таблица И имеются входящие аргументы Фамилия, Имя, Отчество и дата рождения, подскажите каким образом можно перебрать все строки таблицы и в случае совпадения вернуть строку в которой обнаружено совпадение?Sashagor1982
Сообщение отредактировал Sashagor1982 - Воскресенье, 10.10.2021, 22:34
Private Sub TextBox_name_Change() Dim ws1 As Worksheet, tbl1 As ListObject, FoundCell As Range, answer As VbMsgBoxResult
Set ws1 = Sheets("2021") Set tbl1 = ws1.ListObjects("OrderList") On Error Resume Next Set FoundCell = tbl1.DataBodyRange.Columns(2).Find(Me.TextBox_name.Value, LookIn:=xlValues, LookAt:=xlWhole) On Error GoTo 0
If Not FoundCell Is Nothing Then Rows(FoundCell.Row).Select End If
End Sub
[/vba] MikeVol, подскажите, как можно доработать код, что бы строка выделялась при совпадении четырех значений ФИО и даты рождения?
[vba]
Код
Private Sub TextBox_name_Change() Dim ws1 As Worksheet, tbl1 As ListObject, FoundCell As Range, answer As VbMsgBoxResult
Set ws1 = Sheets("2021") Set tbl1 = ws1.ListObjects("OrderList") On Error Resume Next Set FoundCell = tbl1.DataBodyRange.Columns(2).Find(Me.TextBox_name.Value, LookIn:=xlValues, LookAt:=xlWhole) On Error GoTo 0
If Not FoundCell Is Nothing Then Rows(FoundCell.Row).Select End If
End Sub
[/vba] MikeVol, подскажите, как можно доработать код, что бы строка выделялась при совпадении четырех значений ФИО и даты рождения?Sashagor1982
Sub Кнопка1_Щелчок() Dim НомерСтроки As Integer On Error Resume Next НомерСтроки = Application.Evaluate("MATCH(""" & Range("F2").Value & Range("G2").Value _ & Range("H2").Value & CLng(Range("I2").Value) _ & """, Таблица1[Фамилия]&Таблица1[Имя]&Таблица1[Отчество]&Таблица1[Дата рождения],0) ") On Error GoTo 0 If НомерСтроки <> 0 Then Rows(НомерСтроки + 1).Select End If End Sub
[/vba]
Вариант поиска строки по 4 критериям
[vba]
Код
Sub Кнопка1_Щелчок() Dim НомерСтроки As Integer On Error Resume Next НомерСтроки = Application.Evaluate("MATCH(""" & Range("F2").Value & Range("G2").Value _ & Range("H2").Value & CLng(Range("I2").Value) _ & """, Таблица1[Фамилия]&Таблица1[Имя]&Таблица1[Отчество]&Таблица1[Дата рождения],0) ") On Error GoTo 0 If НомерСтроки <> 0 Then Rows(НомерСтроки + 1).Select End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
