Добрый день, дорогие форумчане!
Помогите разобраться или есть уже подобные темы, то можете прислать.
Задача состоит в поиске в большой таблице содержимого (по столбцам разбито "фио","дата рождения","примечание","номер телефона","адрес"). Пользователю необходимо через форму найти человека по фамилии или имени (забыл, как полностью зовут человека) или дате рождения. Необходимо строку с данными этого человека выводить в форму в виде как бы карточки клиента, чтобы пользователь мог внести изменения, например, номер телефона, если таковой неактуален. В самой таблице неудобно, так как строки длинные и затрачивается время на прокручивание.
Не знаю, как сделать вывод всей строки нужного человека в форму и сохранение изменений в ячейках через нее же.
На mac (не мой) есть своя специфика, с отсутствием кириллицы можно смириться, я начала, но начал выдавать ошибку 424, скорее всего ошибки будут дальше, тестировать и писать сложно, нужна ваша помощь, чтобы быстрее написать код.
Надеюсь, объяснила не замудрено.
то сырое, что начала
Помогите разобраться или есть уже подобные темы, то можете прислать.
Задача состоит в поиске в большой таблице содержимого (по столбцам разбито "фио","дата рождения","примечание","номер телефона","адрес"). Пользователю необходимо через форму найти человека по фамилии или имени (забыл, как полностью зовут человека) или дате рождения. Необходимо строку с данными этого человека выводить в форму в виде как бы карточки клиента, чтобы пользователь мог внести изменения, например, номер телефона, если таковой неактуален. В самой таблице неудобно, так как строки длинные и затрачивается время на прокручивание.
Не знаю, как сделать вывод всей строки нужного человека в форму и сохранение изменений в ячейках через нее же.
На mac (не мой) есть своя специфика, с отсутствием кириллицы можно смириться, я начала, но начал выдавать ошибку 424, скорее всего ошибки будут дальше, тестировать и писать сложно, нужна ваша помощь, чтобы быстрее написать код.
Надеюсь, объяснила не замудрено.
то сырое, что начала
| Код |
|---|
Private Sub TextBox1_Change()
Dim rng As Range, p As String, i As Long,
ListBox.Clear
With Range("A2:O249")
Set rng = .Find(What:=TextBox1.Value, LookIn:=xlValues, Lookat:=xlPart)
If Not rng Is Nothing Then
p = rng.Address
Do
listbox1.AddItem rng
Set rng = .FindNext(rng)
Loop While p <> rng.Address
End If
End With
End sub |
Изменено: - 04.02.2019 23:46:26
(неправильное оформление кода)
