Отфильтровать столбец по данным из буфера обмена

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отфильтровать столбец по данным из буфера обмена (Макросы/Sub)

Yar4i

Дата: Понедельник, 28.10.2019, 13:07 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день, дамы и господа

Странно, но мало кто задавался вопросом фильтрации... может быть потому, что это полуавтоматизация.

H6 ячейка с флажком фильтра.
Пытаюсь вводить Ctrl+V значения "03-30017235" и прочие, чтобы отсортировалось...

[vba]

Код

Sub ФильтрКод()
ActiveSheet.Range("$A$6:$M$11624").AutoFilter Field:=8, Criteria1:= _
"03-30017235" ' нужен не текст, а Ctrl+V из буфера обмена
End Sub

[/vba]

Самое главное не сказал - значение для поиска (03-30017235- для данного примера примера) находится в буфере обмена, т.е. я со стороннего ресурса скопировал данные, захожу на лист с фильтром и вызываю макрос.

К сообщению приложен файл: 2051695.xlsx (9.6 Kb)

Сообщение отредактировал Yar4i - Понедельник, 28.10.2019, 15:40

Ответить

Апострофф

Дата: Понедельник, 28.10.2019, 15:52 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

Пробуйте -[vba]

Код

Sub Макрос1()
Dim objClpb As New DataObject
objClpb.GetFromClipboard
ActiveSheet.Range("$A$6:$L$11").AutoFilter Field:=8, Criteria1:=objClpb.GetText
End Sub

[/vba]Если не получается - добавьте в проект Юзерформу (можно удалить затем), нужная библа останется.

Ответить

Yar4i

Дата: Понедельник, 28.10.2019, 16:20 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата Апострофф, 28.10.2019 в 15:52, в сообщении № 2 ()

добавьте в проект Юзерформ

Дебаг выскочил, добавляю юзерформу

insert- userform а дальше непонятно

____
Теперь ничего не находит... В ручную норм, а макрос скрывает все фильтром (хотя значение есть)

Сообщение отредактировал Yar4i - Понедельник, 28.10.2019, 16:23

Ответить

Апострофф

Дата: Понедельник, 28.10.2019, 17:07 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

Если

Цитата Yar4i, 28.10.2019 в 16:20, в сообщении № 3 ()

Дебаг выскочил

-> End (сброс проекта). Добавить (потом удалить) форму. Добавится библиотека MSForms.
Потом начинаем пробы сначала.

Ответить

Pelena

Дата: Понедельник, 28.10.2019, 19:27 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Если в буфере именно текст, то можно так попробовать
[vba]

Код

Sub Макрос1()
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        v = .GetText
    End With
    ActiveSheet.Range("$A$6:$L$11").AutoFilter Field:=8, Criteria1:=v
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Yar4i

Дата: Среда, 30.10.2019, 16:27 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата Pelena, 28.10.2019 в 19:27, в сообщении № 5 ()

текст

Пробовал на файле из примера копирую имеющийся код- крутит бесконечно.
Пробовал именно текст "восемь" т.е. отсутствующий в столбце для фильтрации
через приостановку процесса в диспетчере завершаю.

Ой, не то... секунду, исправлюсь

Фильтр срабатывает и все сворачивает, даже если я вставляю в H8 "Номер восемь" и в буфер обмена помещаю "Номер восемь".
И весь столбец в формате ячеек перевожу в текст, и искомый текст в формате текст.

Может быть буфер обмена переполнен..

Сообщение отредактировал Yar4i - Среда, 30.10.2019, 16:49

Ответить

Pelena

Дата: Среда, 30.10.2019, 17:47 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Под словами "именно текст" я подразумеваю, что вы копируете не ячейку целиком, а текст из строки формул.

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Yar4i

Дата: Четверг, 31.10.2019, 08:07 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата Pelena, 30.10.2019 в 17:47, в сообщении № 7 ()

не ячейку целиком

А! Спасибо.
Чудесно все выходит. Я уж фомулу верхнюю начал гуглить - в сети даже нашел вариант недостающей скобкой, ... А оно все проще.

Ответить

RAN

Дата: Четверг, 31.10.2019, 11:55 | Сообщение № 9

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Вроде и снег выпал, а лыжи у меня все равно не едут.
Зачем эти извращения?
[vba]

Код

Sub Макрос1()
ActiveSheet.Range("$A$6:$L$11").AutoFilter Field:=8, _
Criteria1:=InputBox("", "")
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Yar4i

Дата: Среда, 27.11.2019, 10:21 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Доброе утро, дамы и господа

В Питере наледь и в пору коньки...
Сегодня попробовал код для поиска по наименованиям, а они разнятся, окончания меняются... В общем посмотрел что код фильтрует по критерию "равно" и порывшись в сети добавил текст меж звёзд. Тест в первом столбце на 11733 строк
[vba]

Код

''Pelena
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        v = .GetText
    End With
ActiveSheet.Range("$A$6:$L$11733").AutoFilter Field:=1, Criteria1:="*" & v & "*"

[/vba]
Мож кому пригодится.

Хорошего дня.

Ответить

kosru

Дата: Пятница, 07.01.2022, 19:14 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

[

Цитата Yar4i, 27.11.2019 в 10:21, в сообщении № 10 (

)

ActiveSheet.Range("$A$6:$L$11733").AutoFilter Field:=1, Criteria1:="*" & v & "*"

Подскажите, у меня этот фильтр работает, только если скопированно не точное значение, а часть его.
То есть мне нужно найти человека Иванова Ивана, если я копирую Иванов Ива, всё отлично получаеться, НО если я копирую Иванов Иван, тогда выходит НИЧЕГО.

Ответить

Отфильтровать столбец по данным из буфера обмена (Макросы/Sub)

Страница 1 из 1
1