Подсчитать количество произведенных замен

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

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

02.04.2015 11:20:43

Всем, добрый день!
провожу на листе в выбранном диапазоне замену значений, вот кусок кода:

Код
For i = 0 To UBound(a) Selection.SpecialCells(xlCellTypeFormulas).Replace a(i), b(i), xlPart Next

задался вопросом, а как подсчитать количество успешных замен?
Может подскажет кто?
Заранее Спасибо!

Изменено: roka - 02.04.2015 13:51:36

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 02.04.2015 12:03:49 Перед заменой поищите ячейки с помощью Find... Findnext. Другой метод - используйте событие Worksheet_Change(ByVal Target As Range), Target.Count - число измененных ячеек. Изменено: Казанский - 02.04.2015 12:07:47

roka Пользователь Сообщений: 384 Регистрация: 25.12.2012	#3 02.04.2015 12:27:23 Спасибо за наводку, жаль Replace в данном случае не возвращает количество замен

Юрий М

Модератор

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

Контакты см. в профиле

02.04.2015 12:47:48

1. Код следует оформлять соответствующим тегом. Исправьте.
2. Можно попробовать циклом перебирать ячейки в выделенном диапазоне и проверять на наличие формулы и значения. При выполнении условия увеличивать значение счётчика.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#5 02.04.2015 13:04:10 Кстати было обсуждение "что возвращает Replace(метод объекта Range)?" http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=62123&TITLE_SEO=62123-chto-vozvrashchaet-replace_metod-obekta-range_