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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2011, 07:42   #1
Grghmelick
Новичок
Джуниор
 
Регистрация: 19.01.2011
Сообщений: 2
Печаль Удаление строк в таблице excel

Приветствую, форумчане! Помогите плз, нужен макрос для удаления строк целиком, если в одной из ячеек присутствует некий текст, в моем случае "Наименование ценности", буду очень признателен.
Grghmelick вне форума Ответить с цитированием
Старый 19.01.2011, 08:27   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию Удаление строк по условию

http://excelvba.ru/code/ConditionalRowsDeleting
EducatedFool вне форума Ответить с цитированием
Старый 19.01.2011, 08:35   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
если в одной из ячеек присутствует некий текст
рискну предположить, что этот текст может быть только в ОПРЕДЕЛЁННОМ столбце?! тогда можно банальным перебором решить задачку...


ДОБАВЛЕНО
когда я отвечал, не видел ответ EducatedFool...


Уп-с. мне кажется, что уважаемый EducatedFool
либо банально опечатался (скорее всего), либо не совсем так понял задание...

для того, чтобы удалить строки целиком
нужно изменить код на такой:
Код:
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Delete

Последний раз редактировалось Serge_Bliznykov; 19.01.2011 в 08:53.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.01.2011, 08:49   #4
Grghmelick
Новичок
Джуниор
 
Регистрация: 19.01.2011
Сообщений: 2
По умолчанию

Игорю из Первоуральска-a.k.a. EducatedFool-респект! Спасибо за помощь, работает!
Grghmelick вне форума Ответить с цитированием
Старый 19.01.2011, 10:39   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Уп-с. мне кажется, что уважаемый EducatedFool
либо банально опечатался (скорее всего), либо не совсем так понял задание...

для того, чтобы удалить строки целиком
нужно изменить код на такой:
Код:
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Delete
Согласен, ошибочка вышла.

Исправил макрос на сайте (в т.ч. и во вложении)
EducatedFool вне форума Ответить с цитированием
Старый 21.01.2011, 13:24   #6
ZanderBlack1
 
Регистрация: 21.08.2010
Сообщений: 8
По умолчанию

Ребят подскажите как сделать наоборот! Удалить все строки в которых этого значения нет!?
ZanderBlack1 вне форума Ответить с цитированием
Старый 21.01.2011, 13:39   #7
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Убрать Not
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 02.02.2011, 23:57   #8
f.sb
Новичок
Джуниор
 
Аватар для f.sb
 
Регистрация: 02.02.2011
Сообщений: 1
По умолчанию Игоряша?

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Согласен, ошибочка вышла.

Исправил макрос на сайте (в т.ч. и во вложении)
- а нолик твой макрос удалит??? )))
f.sb вне форума Ответить с цитированием
Старый 12.07.2011, 23:32   #9
lakmuss
 
Регистрация: 14.06.2011
Сообщений: 6
По умолчанию

Подскажите пожалуйста, можно ли с помощью этого макроса удалить строки если при проверке одна из ячеек содержит сообщение об ошибке? и как это сделать?

Последний раз редактировалось EducatedFool; 13.07.2011 в 00:00.
lakmuss вне форума Ответить с цитированием
Старый 12.07.2011, 23:37   #10
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

lakmuss, обратите внимание на последнюю строку кода в этом макросе:

http://www.programmersforum.ru/showp...87&postcount=2
EducatedFool вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление пустых строк в таблице Semen90 Microsoft Office Word 24 14.07.2022 12:28
Удаление одинаковых строк на листе Excel 2003 vfv Microsoft Office Excel 26 21.11.2014 12:58
Добавление (удаление) строк в таблице inside9 Microsoft Office Excel 29 01.01.2012 22:31
Удаление ненужных строк в Excel djbub14 Microsoft Office Excel 3 16.08.2010 07:03
Удаление строк в таблице maksim_serg Microsoft Office Word 5 30.04.2010 13:18