| Вопрос: Помогите пожалуйста с VBA | Добавлено: 08.12.08 15:22 |
Автор вопроса:  Buffon | ICQ: 423654897 |
|
Добрый день. Помогите пожалуйста решить следующую задачку. На первом листе в екселе имеется своеобразная таблица в которой есть такие столбцы, как номер товара, наименование товара, цена и количество.
Подскажите как организовать в этой табличке поиск по номеру товара и сделать так, чтобы результат поиска записывался на второй лист. Я понимаю, что вопрос может быть из ряда смешных, но я только начал изучать VBA и именно такие вопросы ставят в тупик. Зарание спасибо! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  AngryBadger Вопросов: 33 Ответов: 245 |
Профиль | | #1 | Добавлено: 08.12.08 16:14 |
|
Тебе нужно создать UserForm, на нем TextBox и ComandButton.
Private Sub CommandButton1_Click()
sSearchText = UserForm1.TextBox1.Text Set Obj = Sheets(1).Columns(1).Find(sSearchText) 'поиск в первом столбце If Obj Is Nothing Then MsgBox "Товар не найден" Else: MsgBox "Товар найден" Sheets(2).Cells(Sheets(2).Columns(1).Rows(65536).End(xlUp).Row + 1, 1).Value = "Найден товар " & sSearchText UserForm1.Hide Sheets(1).Activate End If End Sub |
||
|
Номер ответа: 2 Автор ответа:  Buffon ICQ: 423654897 Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 08.12.08 16:28 |
Михаил, спасибо большое за ответ, сейчас попробую реализовать 
|
||
Страница: 1 |