Помогите с поиском в Exel

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Доктор
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 26.03.2004 (Пт) 1:07

Помогите с поиском в Exel

Сообщение Доктор » 26.03.2004 (Пт) 1:13

Можно ли,сделать ячейку или форму,чтобы при наборе символов в ней происходил поиск по алфавиту без выборки,т.е. проосто переход к полям
этого ряда,без выборки вроде автофильтра. Как например в каком-нибудь электронном словаре.

Вот пример в присоединенном файле:
В единственном ряду названия городов.
Вверху TextBox
Хотелось бы так ,чтобы когда я пишу в TextBoxe'е
(он закреплен и не сдвигается скроллом),
в окне было видно именно этот город,причем название города в текстбоксе может быть введено не до конца.
Помогите с кодом на VB,очень надо...
Вложения
Книга1.zip
(12.72 Кб) Скачиваний: 29

Pipa
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 20.07.2003 (Вс) 12:41

Re: Помогите с поиском в Exel

Сообщение Pipa » 26.03.2004 (Пт) 2:02

Private Sub TextBox1_Change()
'Привет
' Диапазон цикла поменяй на номер строки с которой начинаеться столбец в котором поиск и на номер в которой он заканчиваица
' если нужен учёт регистра убери функцию приведения к младшему регистру (LCase) (обе)
For i = 5 To 100
If InStr(1, LCase(Cells(i, 1)), LCase(TextBox1.Text)) <> 0 Then
Cells(3, 1) = Cells(i, 1) '<----------------+
'^-- в эту ячейку пишу то что нашел --+
End If
Next i
End Sub

ну собсно это конкретный сырец (но рабочий) пробуй :-))

Доктор
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 26.03.2004 (Пт) 1:07

не совсем то...

Сообщение Доктор » 26.03.2004 (Пт) 9:59

А реально ли сделать так,чтобы ячейка не копировалась,а просто перемещалась?
дело в том ,что в таблице есть группы и другие ряды тоже и их тоже необходимо видеть. Копировать бесполезно т.к. размер группы м.б. разной длины. пример в файле.
Вложения
Книга1.zip
(32.49 Кб) Скачиваний: 26


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 4

    TopList