|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.01.2011, 13:56 | #1 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Отфильтровать макросом
Здравствуйте уважаемые программисты. Записал макрорекордером макрос, который должен отображать ячейки ( с числовым форматом, число десятичных знаков 8) со значением 0,00000000
Код:
Напишите пожалуйста как сделать, чтобы макрос заработал. Последний раз редактировалось agregator; 28.01.2011 в 14:04. |
28.01.2011, 14:23 | #2 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
У меня работает так:
Sub Фильтр() Worksheets(1).AutoFilterMode = False Selection.AutoFilter Field:=1, Criteria1:="0.00000000" End Sub Но у меня системный разделитель - точка.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
28.01.2011, 14:29 | #3 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Попробуйте так:
Sub Фильтр() [a1].AutoFilter Field:=1, Criteria1:="0.00000000" End Sub
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 28.01.2011 в 14:32. |
28.01.2011, 14:32 | #4 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Kuklp, большое спасибо. заменил "," на "." и код заработал.
Sub Фильтр() Selection.AutoFilter Field:=1, Criteria1:="0.00000000" End Sub |
28.01.2011, 14:34 | #5 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Еще замените Selection.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
28.01.2011, 14:36 | #6 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Kuklp,
Sub Фильтр() [a1].AutoFilter Field:=1, Criteria1:="0,00000000" End Sub с разделителем "," не работает заменил на "." и код заработал Sub Фильтр() [a1].AutoFilter Field:=1, Criteria1:="0.00000000" End Sub |
28.01.2011, 14:40 | #7 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Дык, я так и исправил свой пост.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
28.01.2011, 14:48 | #8 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Kuklp, извиняюсь, неувидел. А, что даёт замена Selection?
|
28.01.2011, 14:56 | #9 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Выделите ячейку С5 и нажмите кнопку. Сначала с селектом, а потом с А1.
Я имел ввиду этот вариант: Sub Фильтр() Worksheets(1).AutoFilterMode = False Selection.AutoFilter Field:=1, Criteria1:="0.00000000" End Sub
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 28.01.2011 в 15:01. |
28.01.2011, 15:02 | #10 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Kuklp, у меня разницы нет Excel 2003. Ну и ладно.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автофильтр (AutoFilter), как отфильтровать данные все кроме.? | SAIIIA.P | Microsoft Office Excel | 8 | 30.06.2022 19:33 |
Как отфильтровать таблицу по значениям из выпадающего списка? | Умница++ | Microsoft Office Excel | 14 | 20.07.2011 12:19 |
открытие нескольких книг одним макросом и закрытие книг другим макросом | kursant95 | Microsoft Office Excel | 6 | 27.01.2011 16:54 |
Надо отфильтровать через clientdataset1 | apollon476 | Помощь студентам | 2 | 04.11.2010 13:10 |
отфильтровать диапазон значений | RaMoNeZz | БД в Delphi | 8 | 18.02.2009 20:25 |