сравнить две таблицы

Программирование на Visual Basic for Applications
Starik
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 05.11.2002 (Вт) 16:55
Откуда: Russia

сравнить две таблицы

Сообщение Starik » 18.09.2006 (Пн) 14:42

Добрый день!

Как сравнить две таблицы на отсутствие одинаковых значений.
В табл1 (в одном столбце) осуществить проверку на отсутствие одинаковых значений и далее сравнить все значения этого столбца с табл2 (6 столбцов) на отсутствие одинаковых значений.
Это необходимо, чтобы пользователь в таблицу1 не заносил два раза
одинаковые значения из таблице2.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.09.2006 (Пн) 14:50

Excel, Access или что?
Lasciate ogni speranza, voi ch'entrate.

Starik
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 05.11.2002 (Вт) 16:55
Откуда: Russia

Сообщение Starik » 18.09.2006 (Пн) 15:23

Извиняюсь, Excel

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.09.2006 (Пн) 15:38

Две таблицы -- это два листа или две книги?
Впрочем, в любом случае нужно использовать функцию ПОИСКПОЗ() или подобную (ВПР, ГПР).
Lasciate ogni speranza, voi ch'entrate.

Starik
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 05.11.2002 (Вт) 16:55
Откуда: Russia

Сообщение Starik » 18.09.2006 (Пн) 15:45

Таблицы на одном листе в одной книге

Starik
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 05.11.2002 (Вт) 16:55
Откуда: Russia

Сообщение Starik » 18.09.2006 (Пн) 15:47

Желательно макросом

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 18.09.2006 (Пн) 16:05

Вообще-то удобнее будет формулами.
Но можно и макросом. Есть метод .Find, который возвратит ячейку, содержащую то значение, которое искали, либо Nothing, если такое значение не нашлось. Проверяй If Not (.Find(...) Is Nothing) Then ...
Lasciate ogni speranza, voi ch'entrate.

Starik
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 05.11.2002 (Вт) 16:55
Откуда: Russia

Сообщение Starik » 18.09.2006 (Пн) 16:12

Спасибо.

Starik
Обычный пользователь
Обычный пользователь
 
Сообщения: 73
Зарегистрирован: 05.11.2002 (Вт) 16:55
Откуда: Russia

Сообщение Starik » 18.09.2006 (Пн) 16:27

Я решил обойтись без проверки, просто автоматически переносить данные из одной таблицы в другую по щелчку мышки и данную ячейку очищать, т.е. пользователь два раза уже не запишет выбранное значение.


Вернуться в VBA

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 58

    TopList