Скрипт, заменяющий поиск через стандартный фильтр - Страница 2

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрипт, заменяющий поиск через стандартный фильтр (Макросы/Sub)

Скрипт, заменяющий поиск через стандартный фильтр

Mark1976

Дата: Понедельник, 07.03.2016, 01:53 | Сообщение № 21

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

Ранг: Ветеран

Сообщений: 738

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

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

Excel 2010, 2013

StoTisteg, пробую.

Ответить

Mark1976

Дата: Понедельник, 07.03.2016, 01:56 | Сообщение № 22

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

Ранг: Ветеран

Сообщений: 738

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

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

Excel 2010, 2013

StoTisteg, я правильно понял? Я могу файлик лекарства, каждый день новый подкладывать?

Ответить

Mark1976

Дата: Понедельник, 07.03.2016, 02:02 | Сообщение № 23

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

Ранг: Ветеран

Сообщений: 738

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

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

Excel 2010, 2013

StoTisteg, отлично. Вот только как поправить сумму? надо чтобы вот так отображалась: 441,00 или 441,20? А так все отлично. Очень благодарен. !!!

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 02:30 | Сообщение № 24

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Секунду.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 02:41 | Сообщение № 25

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

готово

К сообщению приложен файл: 4341736.rar (45.2 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 02:43 | Сообщение № 26

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Цитата Mark1976, 07.03.2016 в 01:56, в сообщении № 22

Я могу файлик лекарства, каждый день новый подкладывать?

Да какой откроете в диалоговом окне, с тем и будет работать. Только вот забыл я там проверку на эксельность прописать. Надеюсь, не промахнётесь :-)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Mark1976

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

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

Ранг: Ветеран

Сообщений: 738

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

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

Excel 2010, 2013

Можно добавить, двумя строками ниже 2 цены по Саратову и Волгограду. И шрифт мелковатый.

К сообщению приложен файл: lp2015-12-23-1_.xls (50.0 Kb)

Сообщение отредактировал Mark1976 - Понедельник, 07.03.2016, 13:28

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 13:35 | Сообщение № 28

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Да без проблем.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 14:37 | Сообщение № 29

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Готово

К сообщению приложен файл: 6927700.rar (62.3 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Mark1976

Дата: Понедельник, 07.03.2016, 14:48 | Сообщение № 30

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

Ранг: Ветеран

Сообщений: 738

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

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

Excel 2010, 2013

StoTisteg, отлично. Спасибо.

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 15:28 | Сообщение № 31

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Только забыл, что разделитель не всегда точка

К сообщению приложен файл: 3122018.rar (62.5 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Mark1976

Дата: Понедельник, 07.03.2016, 17:29 | Сообщение № 32

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

Ранг: Ветеран

Сообщений: 738

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

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

Excel 2010, 2013

Огромное спасибо Всем, кто помогал мне в этой теме оптимизировать рутинную работу.

Ответить

konstantin_987

Дата: Понедельник, 07.03.2016, 20:41 | Сообщение № 33

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

Ранг: Новичок

Сообщений: 27

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

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

Excel 2010

Цитата StoTisteg, 07.03.2016 в 00:43, в сообщении № 13

Mark1976, проверяйте с формой. Макрос висит на кнопке Проверить.

Подскажите пожалуйста, а как сделать поиск не по одному столбцу,
а сразу по нескольким.
Для поиска выбираем столбцы F7-F11

К сообщению приложен файл: 3853082.xlsm (27.6 Kb)

Ответить

StoTisteg

Дата: Понедельник, 07.03.2016, 20:57 | Сообщение № 34

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Во-первых, это уже другой вопрос и для него лучше создать другую тему. во-вторых, непонятно, что он там будет искать. Если одно и то же значение — просто изменить диапазон поиска (вместо
[vba]

Код

Columns(1).Find

[/vba]
будет, скажем
[vba]

Код

Columns("D:I").Find

[/vba]
или там
[vba]

Код

Range(Cells(7,6),Cells(11,6)).Find

[/vba]
конкретно для Вашего примера). А если комбинацию данных в ячейках — это уже совсем другой вопрос.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

konstantin_987

Дата: Понедельник, 07.03.2016, 21:06 | Сообщение № 35

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

Ранг: Новичок

Сообщений: 27

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

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

Excel 2010

StoTisteg, спасибо.
Лучше заведу тему

Ответить

StoTisteg

Дата: Вторник, 08.03.2016, 16:59 | Сообщение № 36

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Короче, Марк. Раз у Вас там цены мигрируют как хочут, сделал так.

Когда колонки очередной раз переезжают, меняете номера столбцов в модуле в
[vba]

Код

Sub Заполнение_формы()

    frm_Штрих.lst_Цены.AddItem Десятичные(Trim(Cells(i, 7).Value))
    frm_Штрих.lst_Цены_САР.AddItem Десятичные(Trim(Cells(i, 10).Value))
    frm_Штрих.lst_Цены_ВЛГ.AddItem Десятичные(Trim(Cells(i, 11).Value))

End Sub

[/vba]
Соответственно в первой строке — колонка с ценами в Вашем НП, во второй — в Саратове, в третьей — в Волгограде.
[offtop]И вообще. Пора делать готовое решение с настраиваемой под таблицы формой...