ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / запомнить значение фильтра в Экселе
11 сообщений из 11, страница 1 из 1
запомнить значение фильтра в Экселе
    #36358671
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
День добрый.
На одном листе по фильтру ищу "бла-бла", если значение не найдено, то нужно это же значение найти на другом листе Экселя. Т.е. вручную ищется "бла-бла", а потом макросом "бла-бла" ищу на втором листе...
Если кто сталкивался с задачей запомнить значение фильтра - поделитесь, плз.


Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
10.12.2009, 12:00
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358711
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Stepler
> Если кто сталкивался с задачей запомнить значение фильтра - поделитесь, плз.

У листа есть свойство AutoFilter, которое содержит коллекцию Filters, Item которой содержит Filter. А в Filter есть
свойства Criteria1 и Criteria2 которые содержат интересующую информацию.


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
10.12.2009, 12:16
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358757
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Что-то не понятно, как это найти значение, которое не найдено? Понятно, если найдено, а так...
И зачем искать автофильтром? Может, сразу макросом через Find -
Код: plaintext
1.
2.
3.
4.
If Not x Is Nothing Then 'если нашли
--делаем что-то
Else
--ищем на листе  2 
End If
...
Рейтинг: 0 / 0
10.12.2009, 12:30
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358796
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Игорь Горбонос,

Игорь, в том-то и дело, как запомнить не знаю
Надо типа f=AutoFilter.Criteria1, но этот код не правильный, нада что-то подобное. С Item тоже не понятно как.

Спасибо
...
Рейтинг: 0 / 0
10.12.2009, 12:38
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358818
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Hugo121,

во первых, фильтром выдаются не одно значение, а несколько.
и мне главное определить "х" в макрос, чтобы не писать значение "х" в ячейке...
...
Рейтинг: 0 / 0
10.12.2009, 12:45
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358844
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Понятно, что несколько. Непонятно, какое значение передавать, если нет значения...
Т.е. оператор не нашёл, что выбрать фильтром - ищет например "123", а в списке нет...
Я так это себе представил. Может ошибаюсь.
Поэтому я и предлагаю сразу искать макросом, а количество совпадений можно подсчитать, их адреса запомнить и т.д. в зависимости от задачи. Цель всего действа какая?
...
Рейтинг: 0 / 0
10.12.2009, 12:54
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358880
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Hugo121,

работа с инвентаризационной ведомостью...
Надо найти наименование в ведомости: к примеру "кабель ПС 6" , он может называться как:
- кабель ПС-6
- кабель ПС 6 4000В
- ПС 6
- и т.д.
А может ещё быть и такое - кабель физически есть, а в ведомости его нет (т.к. остаток его =0). Поэтому мне и надо на втором листе (где представлена вся номенклатура) найти правильное наименование этого кабеля и занести его в ведомость новой строкой)
...
Рейтинг: 0 / 0
10.12.2009, 13:04
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358932
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Можно поискать по "ПС 6". Если такое разнописание, то и вручную оператору непросто найти будет (- кабель ПС 6 4000В и - ПС 6 совсем не рядом).
Ну а какой механизм, если нет "ПС 6" в списке, как коду указать, что искать надо (автофильтр не выбран). И когда запускать код, на какое действие оператора?
...
Рейтинг: 0 / 0
10.12.2009, 13:23
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36358974
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Hugo121,

В том-то и дело , что как перенянуть заданное значение фильтра....
Задачу уже решил другим способом (к сожалению, с ячейкой ввода):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' ФильтрЛистов с поиском вНомеклатуре
f = ActiveCell
    Selection.AutoFilter Field:= 3 , Criteria1:="=*" & f & "*", Operator:=xlAnd
    Sheets("Номенклатура").Select
    Selection.AutoFilter Field:= 3 , Criteria1:="=*" & f & "*", Operator:=xlAnd
    Sheets("К проверке").Select
End Sub
Но тем не менее, задача, первоначально поставленная мною мне интересна...
...
Рейтинг: 0 / 0
10.12.2009, 13:32
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36359004
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Stepler Надо типа f=AutoFilter.Criteria1, но этот код не правильный, нада что-то подобное. С Item тоже не понятно как.

взять значение фильтра первого столбца первого листа

Код: plaintext
1.
2.
    If ThisWorkbook.Worksheets( 1 ).AutoFilter.Filters( 1 ).On Then
        filter_string = ThisWorkbook.Worksheets( 1 ).AutoFilter.Filters( 1 ).Criteria1
    End If


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
10.12.2009, 13:41
| Ответить | Цитировать | Написать  
запомнить значение фильтра в Экселе
    #36359023
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
HandKot,

ВО!!! , зацепка есть - теперь попробую отладить,как мне надо...
Спасибо
...
Рейтинг: 0 / 0
10.12.2009, 13:44
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / запомнить значение фильтра в Экселе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]