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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.06.2014, 00:35   #1
Kefirrr
Пользователь
 
Регистрация: 05.06.2010
Сообщений: 53
По умолчанию Метод Find

Уважаемые форумчане, вновь обращаюсь к Вам за помощью.
Смысл такой: есть файл , где нужно подсчитать кол-во пинов у прибора.
Вначале идет описание прибора, затем его Пины, потом второй прибор и т.д.
Мне нужно в графе NUM_OF_PINS написать общее число пинов.
Я методом Find нахожу первую и последующую ячейку с PIN и задаю диапазон для подсчета. Все бы ничего, но появляются ошибки при подсчете последнего прибора.
Нужно сделать проверку на окончание поиска. Вот тут-то и пошли проблемы. Облазила весь инет.
добавила строку в код If Not result Is Nothing Then, но теперь он ругается на сам поиск. Я Find и в цикл и вне цикла, но макрос ругается и ругается. Если не сложно помогите и объясните, в чем ошибка
Вложения
Тип файла: zip metodFind.zip (20.0 Кб, 10 просмотров)
Kefirrr вне форума Ответить с цитированием
Старый 01.06.2014, 00:51   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Если бы вы попроще объяснили (без кода), что есть, и какой результат в каких ячейках надо получить, - я бы помог
А так, - не понимаю, что надо сделать

Цитата:
нужно подсчитать кол-во пинов у прибора
вы бы без кода сказали бы, как это считать...

Может, надо подсчитать количество ячеек в первом столбце, которые соответствуют маске PIN *
Так это просто делается, с использованием функции FindAll:

Код:
КоличествоПинов = FindAll (columns(1), "PIN *").cells.count
EducatedFool вне форума Ответить с цитированием
Старый 01.06.2014, 01:08   #3
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

во вложенном файле макросы заменены формулой
Код:
=СЧЁТЕСЛИ(R[1]C[-3]:ИНДЕКС(C[-3];ЕСЛИ(СЧЁТЕСЛИ(R[1]C[-3]:R[999]C[-3];"NEW")>0;СТРОКА()+ПОИСКПОЗ("NEW";R[1]C[-3]:R[999]C[-3];);999));"PIN")
Вложения
Тип файла: rar пробный.rar (15.7 Кб, 7 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 01.06.2014, 11:50   #4
Kefirrr
Пользователь
 
Регистрация: 05.06.2010
Сообщений: 53
По умолчанию

IgorGO, Все работает. Огромное спасибо
Kefirrr вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Метод Find Trimbl Microsoft Office Excel 4 10.01.2023 17:40
Не работает метод Find в Recordset'е Emmelman Microsoft Office Access 8 24.01.2013 10:04
Find next & Find previous NeedLess Общие вопросы C/C++ 0 08.07.2012 13:42
Сравнение 2 столбцов (метод find) Костян Пират Microsoft Office Excel 7 17.11.2011 20:46
метод find kate158 Общие вопросы Delphi 4 15.12.2009 16:09