Серый форум — VBS. Ускорение поиска совпадений в ячейках Excel

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-29T12:12:08Z

Обнаружил у себя ошибку - поиск .find(SearchName) ищет подстроку, а не конкретное значение из переменной, т.е. если я ищу значение "Тест", то для него и "Тест", и "Тест1" это совпадение. Добавил проверку на полное соответствие.

Sub DocsInJ_c (exJourObj, JWS)                       ''============================== exJourObj - объект Excel, JWS - страница
    set A1 = exJourObj.range("A1").EntireColumn
    ArRows = A1.rows.count
    for o1 = 1 to ArRows-1
    if jws.Cells.Item(o1 ,4).Value = "" then Exit For          ' количество заполненых строк на листе
    next
    i1 = 0  
    for o=0 to SelectedDocsInVed.count-1            ' перебор по документам из ведомости
    SearchName = SelectedDocsInVed.item(o)    
    set RangeS = JWS.range("D1:D"& o1)
    set SearchObj = RangeS.find(SearchName)
    If Not SearchObj Is Nothing Then
       strFirstAddres = SearchObj.AddresLocal (false, false)
    End If
    Do Until (SearchObj Is Nothing)
       set SearchObj = RangeS.findNext(SearchObj)
       strHolder = SearchObj.AddresLocal(false, false)
       If SearchObj = SearchName then            ' добавил проверку
       i = SearchObj.row
       SDocsInJournal.add i1, SearchName
       i1 = i1 + 1
       Perebor1 SearchName, JWS, i
       End If
       If strHolder = strFirstAddres Then
          Exit Do
       End If
    Loop
    Next
End Sub

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-20T10:28:24Z

Должно быть, какой-нибудь MSScript Control используется в ней?!

Вполне возможно. Это надо узнавать у разработчиков.

Скрипт поправил, работает значительно быстрее.

Sub DocsInJ_c (exJourObj, JWS)                       ''============================== exJourObj - объект Excel, JWS - страница
    set A1 = exJourObj.range("A1").EntireColumn
    ArRows = A1.rows.count
    for o1 = 1 to ArRows-1
    if jws.Cells.Item(o1 ,4).Value = "" then Exit For          ' количество заполненых строк на листе
    next
    i1 = 0  
    for o=0 to SelectedDocsInVed.count-1            ' перебор по документам из ведомости
    SearchName = SelectedDocsInVed.item(o)    
    set RangeS = JWS.range("D1:D"& o1)
    set SearchObj = RangeS.find(SearchName)
    If Not SearchObj Is Nothing Then
       strFirstAddres = SearchObj.AddresLocal (false, false)
    End If
    Do Until (SearchObj Is Nothing)
       set SearchObj = RangeS.findNext(SearchObj)
       strHolder = SearchObj.AddresLocal(false, false)
       i = SearchObj.row
       SDocsInJournal.add i1, SearchName
       i1 = i1 + 1
       Perebor1 SearchName, JWS, i
       If strHolder = strFirstAddres Then
          Exit Do
       End If
    Loop
    Next
End Sub

Спасибо за подсказки.

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-19T15:19:37Z

KlimTV пишет:

Разве скрипт не воспринимает двоеточие как начало новой строки ?

Потому и был задан вопрос:

Xameleon пишет:

И хотелось бы уточнить, Вы пишете в среде WSH или VBA ?

KlimTV пишет:

Не могу сказать точно, не знаю - среда встроена в приложение (электронный архив). Но полагаю не VBA, т.к. синтаксис не совпадает полностью, например оператор like просто не воспринимается системой smile

Должно быть, какой-нибудь MSScript Control используется в ней?!

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-19T10:22:26Z

Товарищу Евген'y

Cells.Find(What:=" & txtValue &", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).Activate

Разве скрипт не воспринимает двоеточие как начало новой строки ? Или есть какие-то хитрости о которых я не в курсе?

Товарищу Xameleon'y

Возможно я не совсем правильно понял Вашу задачу. Метод Find по каким то причинам не подходит ? Он возвращает Range ячеек, содержащик искомое значение, на сколько я помню.

К сожалению в моем справочном пособии (для справки использую пособие от Штайнера Г.) про метод Find ничего не написано, поэтому пытался найти нужную ячейку перебором. Задача такова - необходимо проверить, есть ли в 4-ой колонке искомое значение и в зависимости от да/нет действовать дальше. Если знаете хорошее справочное пособие по скрипту и Excel, не могли бы поделиться названием в ПМ.

И хотелось бы уточнить, Вы пишете в среде WSH или VBA ?

Не могу сказать точно, не знаю - среда встроена в приложение (электронный архив). Но полагаю не VBA, т.к. синтаксис не совпадает полностью, например оператор like просто не воспринимается системой

Товарищу Dmitrii'y

Кроме того, с помощью метода SpecialCells объекта Range можно существенно уменьшить область для поиска.

Попробую сначала Find освоить. Как с ним разберусь попробую и SpecialCells.

Всем спасибо.

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-15T03:07:40Z

Кроме того, с помощью метода SpecialCells объекта Range можно существенно уменьшить область для поиска.

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-14T12:09:56Z

Возможно я не совсем правильно понял Вашу задачу. Метод Find по каким то причинам не подходит ? Он возвращает Range ячеек, содержащик искомое значение, на сколько я помню.


Set Range = Cells.Find("search string")

или


Set Range = ActiveSheet.Cells.Find("search string")

И хотелось бы уточнить, Вы пишете в среде WSH или VBA ?

Re: VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-14T12:08:26Z

Cells.Find(What:=" & txtValue &", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False , SearchFormat:=False).Activate

Не ?

VBS. Ускорение поиска совпадений в ячейках Excel

2012-03-14T09:08:50Z

Здравствуйте.
Есть такая проблема - необходимо проверить, есть ли искомое значение на активном листе Excel. Реализовал следующим способом, ниже код метода

Sub DocsInJ_c (exJourObj, JWS)                       ''============================== exJourObj - объект Excel, JWS - страница
    set A1 = exJourObj.range("A1").EntireColumn
    ArRows = A1.rows.count
    for o1 = 1 to ArRows-1
    if jws.Cells.Item(o1 ,4).Value = "" then Exit For          ' количество заполненых строк на листе
    next
    i1 = 0  
    for o=0 to SelectedDocsInVed.count-1            ' перебор по документам из ведомости
    SearchName = SelectedDocsInVed.item(o)    ' 
    for i=1 to o1                                                '  перебор по документам из журнала
    if SearchName = JWS.Cells.Item(i ,4).Value then
    SDocsInJournal.add i1, SearchName         ' добавить в список дублируемых
    i1 = i1 + 1
    end if
    Next
    Next
End Sub

Работает, но есть одна загвоздка. Если просто открыть лист и с помощью ctrl+f искать требуемое значение, то при переборе журнала с 5-10 тысячами записей продуктивней оказывается ручной труд. Есть ли возможность искать нужное значение не перебором всех ячеек, а методом, аналогичным поиску Excel ?