|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.09.2015, 15:57 | #1 |
Регистрация: 15.09.2015
Сообщений: 4
|
Автофильтры по значению в активной ячейки
Добрый день, всем форумчанам.
Подскажите пожалуйста как на Visual Basic'e написать следующее решение. Задача есть большой список фраз (порядка 140 000), которые находятся в одной колонке: Код:
Код:
Так чтобы на экране было два списка, в экселе можно было расположить на экране сразу два файла, и пробегаясь по одному из них, в другом бы сразу отображались бы фразы содержащие выделенное слово на другом форуме я нашел код на VB (источник: http://www.cyberforum.ru/ms-excel/thread1091195.html) Код:
Но он работает только по значению в ячейки "A3:D3", а как его переделать чтобы он брал значение из выделенной ячейки? Подскажите |
15.09.2015, 16:25 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Вместо A3:D3 поставьте диапазон, в котором находится искомое слово: A:A
Так как код будет находиться в модуле другого листа, надо поменять ActiveSheet на Sheets("имя_листа_с_фразами").
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
15.09.2015, 16:37 | #3 | |
Регистрация: 15.09.2015
Сообщений: 4
|
спасибо за ответ.
Цитата:
тут понял и все исправил |
|
15.09.2015, 23:03 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
zerbite, тут и событие другое нужно, пробуйте
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
16.09.2015, 00:09 | #5 |
Регистрация: 15.09.2015
Сообщений: 4
|
ОГРОМНОЕ СПАСИБО за ответ и за РЕШЕНИЕ!!! КЛАСС!!! все работает!!!
Еще два вопроса: 1) можно ли в условии фильтра прописать три условия через логическое сложение (или) ? (в интерфейсе я нашел только два условия и одно лог.операция) Или фраза начинается с слова+пробел, или содержит пробел+слово+пробел, или заканчивает на пробел+слово ? (правда возможен еще один вариант, когда слово одно во фразе и нет пробелов, оно же начало и оно же конец, но хотя бы это запрограммировать ) 2)Иногда, несколько раз так было когда кликаешь по словам, они как будто залипаеют, как будто я кликаю по ним с зажатым ctrl , не знаете что это может быть, переоткрыл книгу сначала, вроде без глюков? |
16.09.2015, 10:02 | #6 |
Пользователь
Регистрация: 13.08.2011
Сообщений: 90
|
Всем здравствуйте!
Уважаемый Казанский, а как Вы так сделали, что при открытии Вашего файла появляются два окна с листами из этого файла? Пытался сам понять, но мозгов не хватило. Но очень интересно и полезно! Будьте добры, найдите время и ответьте, пожалуйста. |
16.09.2015, 13:03 | #7 | |
Регистрация: 15.09.2015
Сообщений: 4
|
Цитата:
|
|
16.09.2015, 13:10 | #8 |
Пользователь
Регистрация: 13.08.2011
Сообщений: 90
|
Спасибо)
Буду знать теперь. |
16.09.2015, 16:05 | #9 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
zerbite, я не совсем понял насчет слова+пробел.
Если использовать расширенный фильтр, можно прописать сколько угодно условий. В этом варианте Вы выделяете несколько ячеек с условиями с помощью Ctrl или Shift, условие фильтра формируется в ст. D, фильтр применяется к Лист1. Почему-то после работы макроса в обоих окнах отображается Лист2, но это можно побороть, если вариант подойдет. Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
16.09.2015, 19:32 | #10 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Переписал формирование диапазона критериев без "грязных приемчиков" - теперь переключения листа в первом окне нет.
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Значение ячейки на пересечении столбца и активной ячейки | Lamo | Microsoft Office Excel | 2 | 27.07.2013 20:55 |
Возврат значения активной ячейки | Пингвини | Microsoft Office Excel | 2 | 17.04.2012 15:48 |
Окрашивание активной ячейки | ru3000 | Microsoft Office Excel | 33 | 14.03.2012 16:17 |
Определение позиции активной ячейки | Nynexerasebe | Microsoft Office Excel | 2 | 30.06.2010 13:43 |
Данные в ячейке из активной ячейки. | ru3000 | Microsoft Office Excel | 1 | 28.07.2009 05:29 |