×
Показано с 1 по 6 из 6
  1. almas
    Гость

    Excele - выборка строк по ключевым словам?

    В макросах не силен, но так или иначе нужно отфильтровать список по колонке. В колонке Названия районов. Один и тот же район может быть написан по разному.. "Дзержинский район" или "Дзержинский р-н"
    Как сделать так чтобы макрос фильтровал по ключевому слову "Дзержинский" в ячейках?.. Ну и так для всех районов..
    Поделиться с друзьями

  2. Аноним
    Гость
    При применении автофильтра есть возможность фильтровать по условиям.
    Одно из условий, предлагаемых для фильтрации (в русской версии) звучит как "содержит". Т.Е. вводя некое значение в поле можно отобрать все ячейки, которые содержат нужный (указанный в условии) набор символов.
    Попробуйте записать макрос с автофильтрацией и последующим условием. Посмотрите код.
    Успехов

  3. Аноним
    Гость
    приблизительно вот так:
    Sub Макрос2()
    '

    '
    Selection.AutoFilter 'включаем автофильтр

    Selection.AutoFilter Field:=2, Criteria1:="=*директор*", Operator:=xlAnd

    'здесь Field:=2 обозначает что отбор идет по второй колонке таблицы
    'Criteia1:="=*директор*" означает что критерий для поиска может
    'содержать любые символы (обозначаются *) до и после ключевого слова
    '(в моем примере это слово - директор)
    'и третий оператор - оператор сравнения (в нашем случае - "И")

    End Sub

    И снова успехов.

  4. Аноним
    Гость
    аааатлично! Спасибо!

    ...
    А нету случайно документации или самоучителя для чайников по макросам и VBA ?? Ссылочку или на мыло onlyme@mail.ru..
    Заранее лагодарю))

  5. Аноним
    Гость
    рекомендую не мелочиться и за 300-400 рублей купить книжку А.Гарнаева "Excel 2003 разработка приложений".
    С нуля по ней учился писать на VBA.
    Очень, ОЧЕНЬ советую.
    Успехов всегда! :О)

  6. Аноним
    Гость
    а вот вдогонку....
    Исходя из условий задачи, в которых сказано, что наименование района может быть различным для одного и того же района (Дзержинский р-н, район Дзержинский и т.д.) я бы сначала программно изменил содержание ячеек так, чтобы написание одного района было одинаковым. Т.е. конструкция с условием типа:
    If InStr(Cstr(Cell (i,j).Value),"дзержинский",1)>0, Then
    Cell (i,j).Value="Дзержинский район"
    End If
    И так по каждому району. А уж потом сортировка.

    Успехов возвращаются. :О)

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)