Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Исключение строк по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исключение строк по условию (Макросы Sub)
Исключение строк по условию
maluska Дата: Вторник, 24.12.2013, 09:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Добрый день! На основании данных, представленных в табличной форме формируется реестр. Помогите, пожалуйста, дописать макрос, чтобы строки, содержащие определенное условие (например, данные по городу Анжеро-Судженск) исключались из реестра, но не удалялись из таблицы данных. Буду признательна за помощь, самостоятельно справиться не смогла.
К сообщению приложен файл: 1867414.xlsm (52.9 Kb)
 
Ответить
СообщениеДобрый день! На основании данных, представленных в табличной форме формируется реестр. Помогите, пожалуйста, дописать макрос, чтобы строки, содержащие определенное условие (например, данные по городу Анжеро-Судженск) исключались из реестра, но не удалялись из таблицы данных. Буду признательна за помощь, самостоятельно справиться не смогла.
Автор - maluska
Дата добавления - 24.12.2013 в 09:29
KuklP Дата: Вторник, 24.12.2013, 09:49 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
    For Each r In oSourData.Rows
         If Format(r.Cells(1, 7), "dd.mm.yyyy") = Format(oDataCell.Value, "dd.mm.yyyy") Then
         If r.Cells(1, 3) <> "Анжеро-судженск" Then
             nCount = nCount + 1
...
           End If
         End If
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
    For Each r In oSourData.Rows
         If Format(r.Cells(1, 7), "dd.mm.yyyy") = Format(oDataCell.Value, "dd.mm.yyyy") Then
         If r.Cells(1, 3) <> "Анжеро-судженск" Then
             nCount = nCount + 1
...
           End If
         End If
[/vba]
Автор - KuklP
Дата добавления - 24.12.2013 в 09:49
maluska Дата: Среда, 25.12.2013, 11:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Не получается, строка перед Анжеркой удаляется, последняя, содержащая Анжерку - остается. Не могу понять, не доходит до меня... %)
 
Ответить
СообщениеНе получается, строка перед Анжеркой удаляется, последняя, содержащая Анжерку - остается. Не могу понять, не доходит до меня... %)
Автор - maluska
Дата добавления - 25.12.2013 в 11:23
KuklP Дата: Среда, 25.12.2013, 14:13 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Выложите файл, где не получается. У меня все работает в Вашем примере.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВыложите файл, где не получается. У меня все работает в Вашем примере.
Автор - KuklP
Дата добавления - 25.12.2013 в 14:13
maluska Дата: Четверг, 26.12.2013, 06:45 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Доброе утро!
KuklP, спасибо Вам за помощь! Выкладываю файл, где не работает.
К сообщению приложен файл: 9484215.xlsm (53.1 Kb)
 
Ответить
СообщениеДоброе утро!
KuklP, спасибо Вам за помощь! Выкладываю файл, где не работает.
Автор - maluska
Дата добавления - 26.12.2013 в 06:45
KuklP Дата: Четверг, 26.12.2013, 09:03 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Вы не туда End If сунули.
К сообщению приложен файл: 6467629.xlsm (51.4 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВы не туда End If сунули.
Автор - KuklP
Дата добавления - 26.12.2013 в 09:03
Serge_007 Дата: Четверг, 26.12.2013, 20:17 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[offtop]
Цитата maluska, 24.12.2013 в 09:29, в сообщении № 1
данные по городу Анжеро-Судженск
Обалдеть! Я в Анжерке все свои школьные летние каникулы проводил, с первого класса и до института...
maluska, Вы оттуда?[/offtop]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[offtop]
Цитата maluska, 24.12.2013 в 09:29, в сообщении № 1
данные по городу Анжеро-Судженск
Обалдеть! Я в Анжерке все свои школьные летние каникулы проводил, с первого класса и до института...
maluska, Вы оттуда?[/offtop]
Автор - Serge_007
Дата добавления - 26.12.2013 в 20:17
maluska Дата: Пятница, 27.12.2013, 07:55 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Нет, я из Кемерово :)
 
Ответить
СообщениеНет, я из Кемерово :)
Автор - maluska
Дата добавления - 27.12.2013 в 07:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Исключение строк по условию (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!