Почему разные результаты при записи макроса макрорек. и его выполнении

Пользователь

Сообщений: 425 Регистрация: 31.12.2012

13.09.2009 22:46:48

Всем, здравствуйте!
Может мой вопрос из азов программирования в VBA, но всё-таки...
При записи макроса макрорекордером очищаются только строки с нулевым результатом, а уже при запуске макроса - все. В чём фокус?

Посмотрите, пожалуйста, файлик...

Прикрепленные файлы

post_61893.rar (14.66 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

13.09.2009 23:06:50

Попробуйте такой вариант:

Sub Макрос()
[a1].AutoFilter Field:=4, Criteria1:="0.00"
Dim ДиапазонДляОчистки As Range
Set ДиапазонДляОчистки = Intersect([d:d], [5:65000], [a1].SpecialCells(xlCellTypeVisible))
Debug.Print ДиапазонДляОчистки.ClearContents
[a1].AutoFilter Field:=4
End Sub

Или лучше так:

Sub Макрос()
On Error Resume Next: Application.ScreenUpdating = False
[a1].AutoFilter Field:=4, Criteria1:="0.00"
Intersect([d:d], [5:65000], [a1].SpecialCells(xlCellTypeVisible)).ClearContents
[a1].AutoFilter Field:=4: Application.ScreenUpdating = True
End Sub

Файл с примером: http://excelvba.ru/XL_Files/Sample__14-09-2009__1-06-11.zip

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Vovan RU Пользователь Сообщений: 425 Регистрация: 31.12.2012	#3 13.09.2009 23:21:18 Да, надо мне браться за учебники. :) Всё прекрасно работает, оба варианта. Прекрасная работа, большое спасибо!!!!!!

New Пользователь Сообщений: 4934 Регистрация: 06.01.2013	#4 13.09.2009 23:24:21 Вот мой пример Прикрепленные файлы post_61905.xls (83 КБ)

Vovan RU Пользователь Сообщений: 425 Регистрация: 31.12.2012	#5 13.09.2009 23:37:54 {quote}{login=Pavel55}{date=13.09.2009 11:24}{thema=}{post}Вот мой пример{/post}{/quote} Отлично!!! Ща буду эксперименты ставить! :))))) Спасибо и притом огромное!!!!!!!!!!!!

Читают тему