Здравствуйте, подскажите пожулуйста , как изменить данный код, чтоб можно было искать записи по 3 столбцам? И если он находит, то сразу закрывается
Здравствуйте, подскажите пожулуйста , как изменить данный код, чтоб можно было искать записи по 3 столбцам? И если он находит, то сразу закрываетсяDKeT
Private Sub CommandButton1_Click() Dim q As String, st On Error GoTo ggg q = TextBox1.Value Columns("A:F").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate Me.Hide Exit Sub ggg: MsgBox "ненайдено", vbCritical Err.Clear End Sub
[/vba]
а поиск у вас в столбцах A:F идет указывайте какие нужно и все.
Private Sub CommandButton1_Click() Dim q As String, st On Error GoTo ggg q = TextBox1.Value Columns("A:F").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate Me.Hide Exit Sub ggg: MsgBox "ненайдено", vbCritical Err.Clear End Sub
[/vba]
а поиск у вас в столбцах A:F идет указывайте какие нужно и все.K-SerJC
K-SerJC, Спасибо, а как сделать так, чтоб можно было нажимать на интер? помимо кнопки, и возможно ли сделать, что после того что ввели при следующем нажатии предыдущая запись сама ощущалась
K-SerJC, Спасибо, а как сделать так, чтоб можно было нажимать на интер? помимо кнопки, и возможно ли сделать, что после того что ввели при следующем нажатии предыдущая запись сама ощущаласьDKeT
Сообщение отредактировал DKeT - Понедельник, 22.04.2019, 12:48
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
