Поиск записи по совпадению
DKeT
Дата: Пятница, 26.04.2019, 13:01 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
3
±
Замечаний:
20% ±
Excel 2007
Здравствуйте, скажите пожалуйста, как сделать поиск, чтоб он шел по совпадению? Вот к примеру у меня 5 записей начинающих на 1-3 буквы, как сделать так чтоб он выдавал списком их, но так чтоб мы могли водить эти записи даже с маленькой буквы?
Здравствуйте, скажите пожалуйста, как сделать поиск, чтоб он шел по совпадению? Вот к примеру у меня 5 записей начинающих на 1-3 буквы, как сделать так чтоб он выдавал списком их, но так чтоб мы могли водить эти записи даже с маленькой буквы? DKeT
Ответить
Сообщение Здравствуйте, скажите пожалуйста, как сделать поиск, чтоб он шел по совпадению? Вот к примеру у меня 5 записей начинающих на 1-3 буквы, как сделать так чтоб он выдавал списком их, но так чтоб мы могли водить эти записи даже с маленькой буквы? Автор - DKeT Дата добавления - 26.04.2019 в 13:01
skais
Дата: Пятница, 26.04.2019, 13:49 |
Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация:
29
±
Замечаний:
20% ±
Excel 2010
Тут [vba]Код
Columns("A:E").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Activate
[/vba]
Тут [vba]Код
Columns("A:E").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Activate
[/vba]skais
Сообщение отредактировал skais - Пятница, 26.04.2019, 13:50
Ответить
Сообщение Тут [vba]Код
Columns("A:E").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Activate
[/vba]Автор - skais Дата добавления - 26.04.2019 в 13:49
InExSu
Дата: Пятница, 26.04.2019, 20:57 |
Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Привет!
[vba]
Код
Private Sub CommandButton1_Click() Dim q As String q = TextBox1.Value Dim r As Range Set r = Columns("A:E").Find(What:=q, _ LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) Me.Hide If r Is Nothing Then MsgBox "Такая запись отсутствует", vbCritical With TextBox1 .Value = "" .SetFocus End With Else r.Activate End If End Sub
[/vba]
Привет!
[vba]
Код
Private Sub CommandButton1_Click() Dim q As String q = TextBox1.Value Dim r As Range Set r = Columns("A:E").Find(What:=q, _ LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) Me.Hide If r Is Nothing Then MsgBox "Такая запись отсутствует", vbCritical With TextBox1 .Value = "" .SetFocus End With Else r.Activate End If End Sub
[/vba]
InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Привет!
[vba]
Код
Private Sub CommandButton1_Click() Dim q As String q = TextBox1.Value Dim r As Range Set r = Columns("A:E").Find(What:=q, _ LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) Me.Hide If r Is Nothing Then MsgBox "Такая запись отсутствует", vbCritical With TextBox1 .Value = "" .SetFocus End With Else r.Activate End If End Sub
[/vba]
Автор - InExSu Дата добавления - 26.04.2019 в 20:57
DKeT
Дата: Понедельник, 29.04.2019, 23:04 |
Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
3
±
Замечаний:
20% ±
Excel 2007
InExSu , а можете подсказать что нужно изменить чтоб поиск шел по этим столбцам "A:E"
InExSu , а можете подсказать что нужно изменить чтоб поиск шел по этим столбцам "A:E"DKeT
Ответить
Сообщение InExSu , а можете подсказать что нужно изменить чтоб поиск шел по этим столбцам "A:E"Автор - DKeT Дата добавления - 29.04.2019 в 23:04