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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 03.02.2022, 21:22   #1
andreysuperman42
Пользователь
 
Регистрация: 31.03.2013
Сообщений: 43
По умолчанию Автофильтр не правильно фильтрует данные

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

Код:
Private Sub CommandButton1_Click()
    
    strЦена$ = ActiveCell.EntireRow.End(xlToLeft).Offset(0, 1).Value
    If strЦена <> "" Then
        Selection.AutoFilter Field:=2, Criteria1:=strЦена
    End If
End Sub
Вложения
Тип файла: xls Автофильтр.xls (39.0 Кб, 7 просмотров)
andreysuperman42 вне форума Ответить с цитированием
Старый 04.02.2022, 10:42   #2
o5a
Пользователь
 
Регистрация: 27.01.2022
Сообщений: 11
По умолчанию

Потому что strЦена строкового типа. Убрал доллар и заработало.
o5a вне форума Ответить с цитированием
Старый 04.02.2022, 11:04   #3
andreysuperman42
Пользователь
 
Регистрация: 31.03.2013
Сообщений: 43
По умолчанию

Если бы это было так просто, этого вопроса не было.
Сам автофильтр работает. Не работает нормально тогда, когда нажимаешь на кнопку ФИЛЬТР ПО ЦЕНЕ. Фильтруемые строки не открываются для просмотра.

https://www.youtube.com/watch?v=VpNVpVEGjGA

Последний раз редактировалось andreysuperman42; 04.02.2022 в 14:33. Причина: добавил ссылку на видео
andreysuperman42 вне форума Ответить с цитированием
Старый 04.02.2022, 13:51   #4
o5a
Пользователь
 
Регистрация: 27.01.2022
Сообщений: 11
По умолчанию

Да, я ещё формат ячеек менял на общий...
o5a вне форума Ответить с цитированием
Старый 04.02.2022, 14:38   #5
andreysuperman42
Пользователь
 
Регистрация: 31.03.2013
Сообщений: 43
По умолчанию

Формат на листе должен быть числовым с двумя знаками после запятой
andreysuperman42 вне форума Ответить с цитированием
Старый 04.02.2022, 15:27   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от andreysuperman42 Посмотреть сообщение
Формат на листе должен быть числовым с двумя знаками после запятой
ну так и напишите
Код:
strЦена$ = Format(ActiveCell.EntireRow.End(xlToLeft).Offset(0, 1).Value2, "0.00")
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 04.02.2022, 16:24   #7
andreysuperman42
Пользователь
 
Регистрация: 31.03.2013
Сообщений: 43
По умолчанию

Все равно не работает так, как надо.
andreysuperman42 вне форума Ответить с цитированием
Старый 04.02.2022, 17:39   #8
Elixi
Форумчанин
 
Регистрация: 10.05.2019
Сообщений: 163
По умолчанию

Цитата:
Сообщение от andreysuperman42 Посмотреть сообщение
Все равно не работает так, как надо.
попробуйте так:
Код:
Private Sub CommandButton1_Click()
    Dim strЦена
    strЦена = ActiveCell.EntireRow.End(xlToLeft).Offset(0, 1).Text
        'Debug.Print strЦена
    strЦена = Replace(strЦена, ",", ".")
        'Debug.Print strЦена
    If strЦена <> "" Then
        ActiveSheet.UsedRange.AutoFilter Field:=2, Criteria1:=strЦена
    End If
End Sub
Elixi вне форума Ответить с цитированием
Старый 04.02.2022, 19:46   #9
andreysuperman42
Пользователь
 
Регистрация: 31.03.2013
Сообщений: 43
По умолчанию

Спасибо Elixi, так работает.
andreysuperman42 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автофильтр (AutoFilter), как отфильтровать данные все кроме.? SAIIIA.P Microsoft Office Excel 8 30.06.2022 19:33
Не правильно фильтрует adaptaciya БД в Delphi 6 18.05.2012 22:50
Автофильтр (фильтрует не все данные) GieNa Microsoft Office Excel 9 18.07.2011 17:02
Не фильтрует таблицу xJohnx БД в Delphi 3 18.04.2011 08:09
Не правильно выбирает данные sasha_prof Microsoft Office Access 13 19.11.2010 17:25