VBNet - Форум - Подскажите, пожалуйста, как сделать...

Вопрос: Подскажите, пожалуйста, как сделать... Добавлено: 18.09.10 10:37

Автор вопроса: Scod13 | Web-сайт: 1 | ICQ: 1

... так, чтобы в excel'e проделывалось вот такая операция (по всей видимости на языке VB):

есть совокупность ячеек; есть одна главная ячейка, в которую нужно будет написать слово (или два-три слова, в общем, тескт), после чего запустить поиск этого слова по совокупности ячеек на другом листе, и в случае совпадения введенного имени и найденного присвоить заданным другим ячейкам те значения, которые соответствуют найденному имени на другом листе.

Т.е. есть A1 - главная, куда вводится текст.
Есть B1, C1, D1 - куда должны будут вводиться данные.
Есть Другой лист с базой данных (A1:An - фио, B1:Bn - возраст, C1:Cn - образование и т.д.), где каждому новому А1 соответствуют свои уже заданные B1, C1, D1.

Нужно сделать так, чтобы при написании в базовую A1 осуществлялся поиск этого текста по базе данных среди A1:An, и в случае совпадения для некоторого Ai в ячейки исходного листа B1, C1, D1 подставлялись соответствующие данные второго листа Bi, Ci, Di.

Данные все преимущественно текстовые либо "текст+числа" - то есть снова текстовые, наверное.

Прошу помочь. Ибо мои познания здесь ограничиваются простой функцией ЕСЛИ в самом excel'e, но получается слишком громоздко, нужно писать для каждой заполняемой ячейки, которые могут быть разнесены по первому листу на разные расстояния.

:((
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Eugy Вопросов: 0 Ответов: 73	Профиль \| \| #1	Добавлено: 18.09.10 12:19
	если бесплатно, то вот так Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then ' если что-то меняется в первом столбце Dim xRow As Long ' текущая строка Dim fRow As Long ' ПОИСКПОЗ Dim findstr As String ' искомый текст Dim fndRes As Variant ' результат ПОИСКПОЗ Dim ws2 As Worksheet xRow = Target.row Set ws2 = Worksheets("Лист2") 'лист с данными findstr = Target.Text fndRes = Application.Match(findstr, ws2.Range("A1:A32000"), 0) ' ПОИСКПОЗ If IsNumeric(fndRes) Then fRow = fndRes 'если найдено - копировать значения Bn:Dn с листа Range("B" & xRow & ":D" & xRow).Value = ws2.Range("B" & fRow & ":D" & fRow).Value Else Range("B" & xRow & ":D" & xRow).Value = Split(String(3, "?")) 'нет данных End If End If End Sub Ответить

Номер ответа: 2 Автор ответа: Scod13 ICQ: 1 Вопросов: 1 Ответов: 1	Web-сайт: 1 Профиль \| \| #2	Добавлено: 18.09.10 14:12
	Благодарю! Уже что-то Ответить

Номер ответа: 3 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #3	Добавлено: 19.09.10 15:46
	Можно еще попробовать функцию Excel - VLOOKUP (ВПР по-русски ). Может и не нужно будет ничего писать. Ответить

Номер ответа: 4 Автор ответа: Eugy Вопросов: 0 Ответов: 73	Профиль \| \| #4	Добавлено: 21.09.10 01:22
	Так точно, но графоманы не ищут легких путей Ответить

Страница: 1 |