Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Вопрос по коду VBA / 2 сообщений из 2, страница 1 из 1
06.02.2007, 04:09
    #34307926
MKMK
MKMK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по коду VBA
With Sheets(1).Cells
Set c = .Find("2", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Rows(c.Row).Delete shift:=xlUp
Set c = .FindNext(c) '?????????????
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With


Удаляю строку с найденным значением, выдает ошибку - невозможно получить свойство FindNext класса Range. Мне нужно удалить все строки с искомым значением, как быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2007, 14:00
    #34309335
Va1entin
Va1entin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по коду VBA
Она же уже удалена!

Или в цикле Find и Delete (без FindNext)
или с FindNext записать номера строк в массив
и в следующем цикле удалять строки
отсортировав массив по убыванию,
от последней до первой


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Вопрос по коду VBA / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 403ms
Закрыть
start [/forum/topic.php?fid=16&mobile=1&tid=1346269]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 232ms
total:  403ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]