|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.01.2009, 03:43 | #1 |
Пользователь
Регистрация: 10.01.2009
Сообщений: 18
|
Извлечение значений из БД в Excell
Помогите пожалуйста! Какими средствами Excell можно извлечь значения из одной БД и перенести их в другую? Пример прилагаю. Необходимо скопировать значения из листа 1, поля H,m в такое-же поле на листе 2 по соответствию поля #. Спасибо.
Последний раз редактировалось ITM; 07.02.2009 в 17:05. |
10.01.2009, 19:28 | #2 |
Пользователь
Регистрация: 09.01.2009
Сообщений: 44
|
Попробуй следующий макрос:
Dim a As String, b As String Dim i As Integer, j As Integer Sub perenos() For i = 2 To 130 a = Sheets(1).Cells(i, 1) For j = 2 To 7039 b = Sheets(2).Cells(j, 1) If a = b Then Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 2) Next j Next i End Sub Если я тебя правлильно понял, то это тебе поможет! |
10.01.2009, 21:14 | #3 |
Пользователь
Регистрация: 10.01.2009
Сообщений: 18
|
Да, Вы правильно меня поняли. Большое спасибо за макрос! Первый раз в жизни я это использовал. Помогло. Буду дальше копать тему макросов и Visual Basic. Еще раз спасибо.
|
10.01.2009, 23:21 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Всё делается проще.
На листе 1 выделяем диапазон А2:В130 и назначаем ему имя (например, СписокНомеров) На листе 2 в ячейку С2 вбиваем формулу: =ВПР($A2;СписокНомеров;2;0) Растягиваем эту формулу на весь столбец С. |
10.01.2009, 23:40 | #5 |
Пользователь
Регистрация: 10.01.2009
Сообщений: 18
|
Блестяще!!! Большое спасибо!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Безопасное извлечение устройства | Xardas | Компьютерное железо | 7 | 28.02.2011 00:49 |
извлечение битов из байтов... | WinApi | Помощь студентам | 4 | 10.11.2008 15:14 |
Извлечение данных из TCppWebBrowser | НикСерг | Общие вопросы C/C++ | 1 | 13.07.2008 17:16 |
Безопасное извлечение | SunKnight | Win Api | 1 | 12.01.2008 02:06 |
Извлечение ресурса в файл | JivotiK | Общие вопросы Delphi | 1 | 26.04.2007 11:48 |