|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
22.11.2009, 21:23 | #1 |
Пользователь
Регистрация: 22.11.2009
Сообщений: 25
|
Макрос для удаления строки
Здравствуйте!
Никогда не занимался написанием макросов, вот решил попробовать, но сразу столкнулся с проблемой. Нужно написать макрос, который проверяет значение в определенной ячейке таблицы и, если это значение равно нулю, то удаляет текущую строку. Вот то, до чего я пока смог дойти: If Cells(11, b) = 0 Then \Если ячейка 11B=0 Rows("11:11").Delete Shift:=xlUp \То нужно удалить 11 строку Else End If End Sub Программа выдает ошибку "Application-defined or object-defined error". Судя по всему ошибка в первой строке, только не могу понять какая. Помогите, пожалуйста, кто знает. Заранее благодарен. |
22.11.2009, 21:35 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
R=11
If Cells(r, 2) = 0 Then 'Если ячейка 11B=0 ' или так: if range("B" & R) = 0 then Rows(r).Delete Shift:=xlUp 'То нужно удалить 11 строку Else r = r+1 End if осталось только придумать когда это все остановить, потому что когда R выйдет за пределы таблицы, ячейка (R, 2) всегда будет = 0, собственно вся строка будет пустая, а этот код будет их удалять, удалять и удалять...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
22.11.2009, 21:51 | #3 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Код:
Кол-во строк можно подсчитать и поместить в переменную. *** Вот так сделано в рабочем проекте Код:
Для подстраховки проверяется авдрес ячейки и если адрес Х10 (заголовок таблицы) все заканчивается. Скорее всего не самый оптимальный вариант, но работает.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 22.11.2009 в 22:02. |
22.11.2009, 22:27 | #4 |
Пользователь
Регистрация: 22.11.2009
Сообщений: 25
|
Все спасибо! Теперь как надо работае. Буду усложнять алгоритм дальше.
|
23.11.2009, 13:54 | #5 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Предлагаю такую заморочку, на случай если есть большое количество строк.
Собирает данные в "кучу" и стирает одним махом! (подсказали тут на форуме). Код:
Jungo must die!!! (C) Bill Gates.
|
07.12.2010, 21:12 | #6 |
Новичок
Джуниор
Регистрация: 07.12.2010
Сообщений: 2
|
нужен небольшой скрипт
товарищи помогите нужен макрос для excel'я
есть таблица 10 столбцов и дофига строк(2000-3000), ну так вот из нее нужно удалить строки в которых хотя-бы одна из десяти ячеек пустая как обычно нужно еще вчера!!! в макросах практически как свинья в апельсинах..... заранее спасибо |
07.12.2010, 22:41 | #7 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Схематично так - без определения последней строки, чтоб легче понять:
Код:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 07.12.2010 в 22:47. |
07.12.2010, 22:44 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Последний раз редактировалось IgorGO; 08.12.2010 в 00:05. |
07.12.2010, 23:22 | #9 |
Новичок
Джуниор
Регистрация: 07.12.2010
Сообщений: 2
|
Спасибо Огромное! Все Отлично работает!!!! то что надо!!!
|
10.12.2010, 16:04 | #10 | |
Регистрация: 25.11.2010
Сообщений: 7
|
Цитата:
задача такая - надо удалить несколько строк. Циклом - скучно, нудно и главное долго. А вот оптом их удалять никак не получается (т.е. нужен аналог удаления Rows("A:L").Delete где вместо явного указания строк используются переменные) |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Macros для нахождения и удаления слов | конгер | Microsoft Office Word | 1 | 13.10.2009 18:14 |
скрипт для удаления Cookies | mahnograd | Софт | 10 | 18.09.2009 08:53 |
отмена удаления строки: вопрос | Evgenii | БД в Delphi | 1 | 19.06.2009 01:43 |
Программа для удаления AutoRun вирусов | pomoshnic | Помощь студентам | 1 | 01.04.2009 04:57 |
Нужна программа для удаления содержимого папки | DNK1980 | Фриланс | 6 | 11.02.2008 16:52 |