Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как зациклить макрос?
 
#1
16.11.2012 01:09:07
Есть макрос поиска значения в таблице:  
Sub Finderer()  
Dim FD, firstAddress, adrs  
FD = InputBox("ВВЕДИТЕ ИНВЕНТАРНЫЙ НОМЕР ОС или отсканируйте его", "ПОИСК ОС")  
If FD = "" Then Exit Sub ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска  
Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск данных  
' если ничего не нашли - выход из макроса  
If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub  
firstAddress = c.Address  
c.Select  
Do  
adrs = adrs & vbLf & c.Address(0, 0)  
Union(Selection, c).Select  
Set c = Range("A:A").FindNext©  
Loop While c.Address <> firstAddress  
Selection.Interior.ColorIndex = 4  
End Sub  
 
Скажите, пожалуйста, как сделать так - чтобы окно после поиска и выделения не закрывалось (просто выделалась найденная ячейка). Тесть чтобы окно с запросом данных выводилось и дальше до момента когда значение не будет найдено, тогда сообщение об ошибке. А если бы ещё сделать так, чтобы когда значение найдено - то в колонке «М» этой же строчки ставилась единичка (для последующей фильтрации).  
Заранее благодарен!!!
 
 
 
#2
16.11.2012 01:23:53
А выводить новое окно при нахождении искомого слова не подойдет?
 
 
 
#3
16.11.2012 01:28:34
Походу подойдет, но как это сделать, я не силен в макросах :(
 
 
 
#4
16.11.2012 01:33:59
а зачем вам вообще макросы?  
имхо, расширенного фильтра хватит.  
сразу задаете в диапазоне критериев перечень номеров - и запускаете фильтр.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#5
16.11.2012 01:37:52
В общем для проведения инвентаризации ОС. Из АБС выгружается список основных средств, на каждом ОС есть наклейка с номером и штрих кодом. С помочью сканера штрих доков нужно каждое ОС "пропикать", потом можно будет по фильтру посмотреть каких ОС нету...
 
 
 
#6
16.11.2012 01:45:31
Дилетантство, знаю. Но все же...  
После строки    
 
Dim FD, firstAddress, adrs  
вставьте строку    
Do Until FD=""  
А перед строкой End Sub добавьте строку Loop.  
Не тестировал, но вроде должно работать.
 
 
 
#7
16.11.2012 01:56:27
Не работает. По нажатию кнопки окно с запросом не появляется вообще.
 
 
 
#8
16.11.2012 02:03:11
Пробуйте  
 
Sub Finderer()  
Dim FD, firstAddress, adrs  
FD = " "  
Do Until FD = ""  
FD = InputBox("ÂÂÅÄÈÒÅ ÈÍÂÅÍÒÀÐÍÛÉ ÍÎÌÅÐ ÎÑ èëè îòñêàíèðóéòå åãî", "ÏÎÈÑÊ ÎÑ")  
If FD = "" Then Exit Sub ' åñëè ïîëüçîâàòåëü íàæàë êíîïêó ÎÒÌÅÍÀ - îòêàç îò ïîèñêà  
Dim c As Range: Set c = Range("A:A").Find(FD) ' ïîèñê äàííûõ  
' åñëè íè÷åãî íå íàøëè - âûõîä èç ìàêðîñà  
If c Is Nothing Then MsgBox "Èñêîìûå äàííûå íå íàéäåíû", vbExclamation: Exit Sub  
firstAddress = c.Address  
c.Select  
Do  
adrs = adrs & vbLf & c.Address(0, 0)  
Union(Selection, c).Select  
Set c = Range("A:A").FindNext©  
Loop While c.Address <> firstAddress  
Selection.Interior.ColorIndex = 4  
Loop  
End Sub
 
 
 
#9
16.11.2012 02:04:13
Забыл, сори  
 
Sub Finderer()  
Dim FD, firstAddress, adrs  
FD = " "  
Do Until FD = ""  
FD = InputBox("ВВЕДИТЕ ИНВЕНТАРНЫЙ НОМЕР ОС или отсканируйте его", "ПОИСК ОС")  
If FD = "" Then Exit Sub ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска  
Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск данных  
' если ничего не нашли - выход из макроса  
If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub  
firstAddress = c.Address  
c.Select  
Do  
adrs = adrs & vbLf & c.Address(0, 0)  
Union(Selection, c).Select  
Set c = Range("A:A").FindNext©  
Loop While c.Address <> firstAddress  
Selection.Interior.ColorIndex = 4  
Loop  
End Sub
 
 
 
#10
16.11.2012 02:26:00
Грузите список своих пропиканных в массив->словарь, затем основные в массив->проверка по словарю, запись найденных/ненайденных в массив или коллекцию, выгрузка.  
Можно и покрасить на листе, но это долго.  
А так - секундное дело, и код проще, чем тут выше понаписанный.
 
 
 
#11
16.11.2012 02:30:35
Baklanoff  
 
Большое спасибо за помощь, но не работает :(  
Прикрепил образец файла...
 
 
 
#12
16.11.2012 02:35:08
Hugo  
 
Хотят, так сказать, в режиме реального времени, пикнули - сразу увидели результат. Если нету сразу - сразу кто то начинает искать, а инвентаризация идет дальше, так как объектов много а времени мало
 
 
 
#13
16.11.2012 09:44:51
Где файл?
 
 
 
#14
16.11.2012 10:13:25
Ну можно наоборот - сперва список основных средств в публичный словарь, который всё время будет в памяти.  
Затем по каждому пику (по событию изменения на листе) сразу по словарю получаем ответ - есть такое или нет.  
Без всяких поисков, мнгновенно.  
Хотя если список средств ~100000, то можно и на каждый пик создавать словарь, это заметно не будет, доля секунды.  
Хотя конечно зависит от машины...
 
 
 
#15
16.11.2012 11:08:24
А так?
 
 
 
#16
27.11.2012 18:34:06
Baklanoff Большое спасибо! Все работает.  
 
Ещё такой нескромный вопрос, а можно сделать так, чтобы кода значение в форме поиска не было найдено на листе, тогда после сообщение об отсутствии оно копировалось на другой лист, скажем "не найдено", и поиск производился дальше (форма не закрывалась)?  
 
Заранее благодарен за ответ!
 
 
 
Страницы: 1
Читают тему
Наверх