Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.08.2007, 18:03   #1
Ser_gl
Новичок
Джуниор
 
Регистрация: 24.08.2007
Сообщений: 2
По умолчанию выборка

Как можно исключить данные одного столбца из другого (все данные числа) и вывести результат в другой столбец? Пояснение: в первом столбце содержатся числа, в другом часть чисел из первого столбца, нужно исключить эти числа (второго столбца) и вывести в третий. Пытался это сделать через специальный фильтр, не получается, может, что-то не правильно делаю? Подскажите, плиз.
Ser_gl вне форума
Старый 24.08.2007, 20:49   #2
Ser_gl
Новичок
Джуниор
 
Регистрация: 24.08.2007
Сообщений: 2
Радость

Не стал заморачиваться, набросал макрос, кому интересно см. ниже:
n = InputBox("Номер строки", " ", 1)
If n <= 0 Then GoTo 1
m = n
n_k = n
m_k = m
t = n
i = 1
Do While i <> 0
i = Cells(n_k, 1)
n_k = n_k + 1
Loop
n_k = n_k - 2
i = 1
Do While i <> 0
i = Cells(m_k, 2)
m_k = m_k + 1
Loop
m_k = m_k - 2
For i = n To n_k
S = Cells(i, 1)
For j = m To m_k
If S = Cells(j, 2) Then GoTo 2
Next
Cells(t, 3) = S
t = t + 1
2:
Next
1: End Sub
Код конечно так себе, но зато работает
Ser_gl вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выборка по среднему Kip Microsoft Office Access 3 11.08.2008 21:56
ADO, выборка из таблицы. Roof БД в Delphi 2 09.07.2008 18:51
Выборка данных из StringGrid quqer БД в Delphi 1 14.03.2008 12:56
Выборка из таблицы ivp88 БД в Delphi 5 12.01.2008 14:36
Выборка John_chek БД в Delphi 10 27.06.2007 08:43