Vba excel найти значение в массиве

This tutorial will demonstrate how to Search for (Find) a Value in an Array in VBA

There are a number of ways you can search for a string in an array – depending on whether the array is a one dimensional or multi-dimensional.

Searching in a One-Dimensional Array

To search for a value in a one-dimensional array, you can use the Filter Function.

Dim z As Variant
'filter the original array
  z = Filter(Array, String, True, vbCompareBinary)

The Syntax of the Filter option is a follows

Filter(Source Array, Match as String, [Include as Boolean], [Compare as vbCompareMethod])

The Source Array and the Match as String are required while the Include as Boolean and the Compare as vbCompareMethod are optional.  If these are not included they are set to True and vbCompareBinary respectively.

Find values that match the Filter

Sub FindBob()
   'Create Array
   Dim strName() As Variant
   strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams")
   
   'declare a variant to store the filter data in
   Dim strSubNames  As Variant

  'filter the original array
   strSubNames = Filter(strName, "Bob")

   'if you UBound value is greater than -1, then the value has been found
   If UBound(strSubNames ) > -1 Then MsgBox ("I found Bob")
End Sub

The second array will hold the values found by the filter.  If your UBound values are not -1, then the array has managed to find the  value that you were searching for.

You can also see how many times the text appears in the original array.

Sub CountNames()
   'Create array
   Dim strName() As Variant
   strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams")

  'declare an array to store the filter data in
   Dim strSubNames As Variant

   'filter the original array
   strSubNames = Filter(strName, "Bob")

   'if you add 1 to the UBound value, we will get the number of times the text appears
   Msgbox  UBound(strSubNames) + 1 & " names found." 
End Sub

Find values that DO NOT match the Filter

The [Include as Boolean] option allows you to find how many values in your array which DO NOT match your filter

Sub CountExtraNames() 
  'create array
  Dim strName() As Variant 
  strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams") 

  'declare an array to store the filter data in 
  Dim strSubNames As Variant 

  'filter the original array 
  strSubNames = Filter(strName, "Bob", False) 

  'if you add 1 to the UBound value, we will get the number of times the text appears 
  Msgbox  UBound(strSubNames) + 1 & " names found." 
End Sub

we have therefore amended this line:

strSubNames = Filter(strName, "Bob")

with this line:

strSubNames = Filter(strName, "Bob", False)

Using this line in the code, would return all the names that do NOT match “Bob”.

Case Sensitive Filters

You will find that the filter is case sensitive by default.  This is true for all VBA functions.  If you want to search for text that is not case sensitive, you need to amend your code slightly.

z = Filter(strName, "bob",, vbTextCompare)

Adding vbTextCompare to your filter line will enable your code to find “bob” or “Bob”.  If this is omitted, VBA by default uses vbBinaryCompare which will only look for data that is an EXACT match.  Notice in the example above, we have left out the [Include as Boolean] argument so True is assumed.

Option Compare Text

Alternatively, you can add the text Option Compare Text to the top of your module – this will make all the functions that you write in that particular module case insensitive.

Using a Loop to Search through an array

Using a loop is a little bit more complicated than using the Filter function.  We can create a function that will loop through all the values in the array.

Sub LoopThroughArray()
  'create array
  Dim strName() As Variant 
  strName() = Array("Bob Smith", "John Davies", "Fred Jones", "Steve Jenkins", "Bob Williams") 

Dim strFind as string 
strFind = "Bob"

Dim i As Long
'loop through the array
   For i = LBound(strName, 1) To UBound(strName, 1)
       If InStr(strName(i), strFind) > 0 Then
          MsgBox "Bob has been found!"
          Exit For
       End If
    Next i
End Sub

In order to find a part of the text string ie “Bob” instead of “Bob Smith” or “Bob Williams”, we needed to use the Instr Function in the If Statement.  This looked in the string returned by the loop from the Array to see if “Bob” was in the string, and as it was in the string, it would return a message box and then Exit the Loop.

Searching in a Multi-Dimensional Array

We also use the loop to search through a multi-dimensional array.  Once again, we need to create a function than enables us to loop through all the values in the array, but this time, we also need to loop through each dimension of the array.

Function LoopThroughArray()
   Dim varArray() As Variant
   Dim strFind As String
   strFind = "Doctor"
'declare the size of the array
   ReDim varArray(1, 2)
'initialise the array
   varArray(0, 0) = "Mel Smith"
   varArray(0, 1) = "Fred Buckle"
   varArray(0, 2) = "Jane Eyre"
   varArray(1, 0) = "Accountant"
   varArray(1, 1) = "Secretary"
   varArray(1, 2) = "Doctor"
'declare variables for the loop
   Dim i As Long, j As Long
'loop for the first dimension
   For i = LBound(varArray, 1) To UBound(varArray, 1)
'loop for the second dimension
      For j = LBound(varArray, 2) To UBound(varArray, 2)
'if we find the value, then msgbox to say that we have the value and exit the function
         If varArray(i, j) = strFind Then
            MsgBox "Doctor has been found!"
            Exit Function
         End If
      Next j
   Next i
End Function

Completing remark to Jimmy Pena’s accepted answer

As SeanC points out, this must be a 1-D array.

The following example call demonstrates that the IsInArray() function cannot be called only for 1-dim arrays,
but also for «flat» 2-dim arrays:

Sub TestIsInArray()
    Const SearchItem As String = "ghi"
    Debug.Print "SearchItem = '" & SearchItem & "'"
    '----
    'a) Test 1-dim array
    Dim Arr As Variant
    Arr = Split("abc,def,ghi,jkl", ",")
    Debug.Print "a) 1-dim array " & vbNewLine & "   " & Join(Arr, "|") & " ~~> " & IsInArray(SearchItem, Arr)
    '----
    
        '//quick tool to create a 2-dim 1-based array
        Dim v As Variant, vals As Variant                                       
        v = Array(Array("abc", "def", "dummy", "jkl", 5), _
                  Array("mno", "pqr", "stu", "ghi", "vwx"))
        v = Application.Index(v, 0, 0)  ' create 2-dim array (2 rows, 5 cols)
    
    'b) Test "flat" 2-dim arrays
    Debug.Print "b) ""flat"" 2-dim arrays "
    Dim i As Long
    For i = LBound(v) To UBound(v)
        'slice "flat" 2-dim arrays of one row each
        vals = Application.Index(v, i, 0)
        'check for findings
        Debug.Print Format(i, "   0"), Join(vals, "|") & " ~~> " & IsInArray(SearchItem, vals)
    Next i
End Sub

Function IsInArray(stringToBeFound As String, Arr As Variant) As Boolean
'Site: https://stackoverflow.com/questions/10951687/how-to-search-for-string-in-an-array/10952705
'Note: needs a "flat" array, not necessarily a 1-dimensioned array
  IsInArray = (UBound(Filter(Arr, stringToBeFound)) > -1)
End Function

Results in VB Editor’s immediate window

SearchItem = 'ghi'
a) 1-dim array 
   abc|def|ghi|jkl ~~> True
b) "flat" 2-dim arrays 
   1          abc|def|dummy|jkl|5         False
   2          mno|pqr|stu|ghi|vwx         True

В данной статье показаны 2 способа быстрого поиска значений в двумерных массивах.

Поскольку искомое значение может встретиться в нескольких строках обрабатываемого двумерного массива,

оба способа получают на выходе отфильтрованный двумерный массив.

Способы формирования отфильтрованных массивов — разные:

первый способ использует функцию ArrAutofilterEx

второй способ — функцию ArraySearchResults

Основные отличия и особенности этих 2 способов поиска:

• ArrAutofilterEx позволяет задавать несколько критериев поиска (фильтрации)
• ArrAutofilterEx ищет вхождение искомого текста в значения заданных столбцов (неточное совпадение)
• ArrAutofilterEx при каждом вызове заново в цикле перебирает все элементы массива,
  соответственно, при поиске 10 значений время работы кода увеличивается в 10 раз
• ArraySearchResults позволяет использовать фильтрацию массива только по одному столбцу
• ArraySearchResults ищет совпадение искомого текста со значением столбца (точное совпадение)
• ArraySearchResults производит поиск в заранее сформированной текстовой строке
  Таким образом, перебираются все ячейки массива в цикле только один раз, и поиск 100 значений в массиве займёт ненамного больше времени, чем поиск 1 значения.

Примеры поиска в огромных массивах:

Поиск с использованием ArrAutofilterEx

Sub ПримерМедленногоПоискаВМассиве()
    t = Timer
    ИскомоеЗначение$ = 560
    СтолбецДляПоиска& = 3
 
    ' загружаем массив с листа
    arr = [a1:d30000].Value
 
    ' укорачиваем массив Arr, оставляя лишь те строки,
    ' где в заданном столбце есть искомое значение
    On Error Resume Next: Err.Clear
    resArr = ArrAutofilterEx(arr, СтолбецДляПоиска& & "=" & ИскомоеЗначение$)
 
    ' проверяем возвращеное функцией значение на наличие результатов поиска
    If Err Then Debug.Print "Такие строки в массиве не найдены": Exit Sub
 
    ' выводим из отфильтрованных строк значения первого столбца
    For i = LBound(resArr) To UBound(resArr)
        Debug.Print "Результат - строка " & i & " из " & UBound(resArr) & ": ", resArr(i, 1)
    Next i
    Debug.Print "Время: " & Timer - t & " сек."
End Sub

Поиск с использованием ArraySearchResults

Sub ПримерБыстрогоПоискаВМассиве()
    t = Timer
    ИскомоеЗначение$ = 560
    СтолбецДляПоиска& = 3
 
    ' загружаем массив с листа
    arr = [a1:d30000].Value
 
    ' формируем строку поиска
    ss$ = SearchString(arr, СтолбецДляПоиска&)
 
    ' укорачиваем массив Arr, оставляя лишь те строки,
    ' где в заданном столбце есть искомое значение
    resArr = ArraySearchResults(arr, ss$, ИскомоеЗначение$)
 
    ' проверяем возвращеное функцией значение на наличие результатов поиска
    If Not IsArray(resArr) Then Debug.Print "Такие строки в массиве не найдены": Exit Sub
 
    ' выводим из отфильтрованных строк значения первого столбца
    For i = LBound(resArr) To UBound(resArr)
        Debug.Print "Результат - строка " & i & " из " & UBound(resArr) & ": ", resArr(i, 1)
    Next i
    Debug.Print "Время: " & Timer - t & " сек."
End Sub

Код функции ArraySearchResults:

Function ArraySearchResults(ByRef arr, ByRef searchStr As String, ByVal txt As String, _
                            Optional ByVal Sep As String = "%$%") As Variant
    ' функция получает в качестве параметров массив Arr,
    ' и заранее сформированную строку SearchString из значений ячеек нужного столбца массива
    ' По этой строке SearchString функция ищет строки массива, в которые встречается значение txt,
    ' и возвращает усечённый массив, содержащий только подходящие строки
    ' Поиск ведётся по ТОЧНОМУ совпадению значений

    ro& = 0: spl = Split(searchStr, Sep & txt & Sep)
    If UBound(spl) = 0 Then Exit Function    ' нет в массиве нужных строк
    ' перебираем результаты поиска, вычисляя номера строк в исходном массиве
    For i = LBound(spl) To UBound(spl) - 1
        txt = spl(i): ro& = ro& + 1 + (Len(spl(i)) - Len(Replace(spl(i), Sep, ""))) / Len(Sep)  2
        spl(i) = ro&
    Next i
    ' подготавливаем массив для результатов:
    ' по ширине - как исходный, по высоте - содержащий столько строк, сколько найдено совпадений
    ReDim resArr(1 To UBound(spl), LBound(arr, 2) To UBound(arr, 2))
    ' заполняем новый массив
    For i = LBound(spl) To UBound(spl) - 1
        For j = LBound(arr, 2) To UBound(arr, 2)
            resArr(i + 1, j) = arr(spl(i), j)
        Next j
    Next i
    ArraySearchResults = resArr
End Function
 
Function SearchString(ByRef arr, ByVal ArrayColumn As Long, _
                      Optional ByVal Sep As String = "%$%") As String
    ' Объединяет все значения из столбца ArrayColumn массива Arr в одну текстовую строку,
    ' в качестве разделителя элементов используя строку Sep
    ' Для ускорения конкатенации длинных строк используются
    ' промежуточные переменные buffer$ и buffer2$
    buffer$ = "": buffer2$ = "": Sep2$ = Sep$ & Sep$: Const BufferLen& = 6000
    On Error Resume Next: Err.Clear: SearchString = Sep2$
    If ArrayColumn > UBound(arr, 2) Or ArrayColumn < LBound(arr, 2) Then Exit Function
    For i = LBound(arr) To UBound(arr)
        buffer$ = buffer$ & Trim$(arr(i, ArrayColumn)) & Sep2$
        If Len(buffer$) > BufferLen& Then
            buffer2$ = buffer2$ & buffer$: buffer$ = ""
            If Len(buffer2$) > BufferLen& * 20 Then _
               SearchString = SearchString & buffer2$: buffer2$ = ""
        End If
    Next i
    SearchString = SearchString & buffer2$ & buffer$
End Function

При поиске только одного значения время работы обоих макросов поиска не сильно отличается — но обычно функция ArraySearchResults оказывается немного быстрее.

Самый быстрый метод поиска в массиве

​Смотрите также​​Guest​strPass = arr2(UBound(arr2))​ Columns(1).Find(«Отсканирован пропуск «,​ Проблема в том,​ его выделением на​ использовании словаря все​ будут мнгновенные.​
​ массиве нет, если​ zna = zna​ If End SubНо​ Then​Есть массив данных​ для каждой строчки)​ уже не туда​
​ как совершать поиск​
​ АВЛ), но для​polestar​: Match(arr1) тоже должно​strPass = Replace(strPass,​ , xlValues, xlPart)​ что в каждом​ списке, никак нельзя?​ проще.​Hugo121​ <> -1, то​ & «|» &​ потом поняла, что​l.Cells(i, 1).Interior.Color =​ на одном листе​ — SQL медленнее​ пошли… .find это​ в массиве и​ любителя это очень​: Пишу в Excel​​ сработать​​ Chr(34), «»)​
​If Not FoundPropusk​ взвешивании количество строк​The trick​
​polestar​: Поиск в массиве​ по значению psk​ x Next zna​ это не вариант,​ RGB(190, 245, 116)​ (3 столбца -​ примерно в три​ я уже прошел​ батюшка гугл за​
​ сложная задача.​ макрос. По условию​alec​ElseIf str1 Like​ Is Nothing Then​ разное.​: Словарь — хеш​

​: Пишу в Excel​​ нужен постоянно, так​ в теле основной​ = Mid$(zna, 2)​ так как в​Else​

​ RAWDATA) и массив​​ раза.​ и пользуюсь… стоял​ 2 часа поиска​- остроумно!​ имею массив около​: Можно с помощью​ arrStr(1) Then​FAdr = FoundPropusk.Address​Сейчас я делаю​ таблица. Ищи на​ макрос. По условию​ как макрос читает​ программы вызывается вся​ Else zna =​

​ моем справочнике набежало​​If l.Cells(i, 1).Interior.Color​ данных на другом​marker_mc​ вопрос именно в​ мне ничем не​polestar​ 1 000 000​ словарей (подключите библиотеку​curIndex = curIndex​Do​ всё это вручную…​ форуме я полностью​ имею массив около​ тексты и заносит​ строка.​

​ arrZna End If​​ порядка 100 слов​ = xlNone Then​ листе (1 столбец​: Раз уж тема​
​ массиве VBA array​ помог. Находил что​: словарь — динамическая​
​ записей, каждая запись​ в tools-references-галку на​ + 1​
​Cells(FoundPropusk.Row, 6) =​ примерно 3 месяца​
​ исследовал ее работу.​ 1 000 000​ в базу слова,​
​Код работает крайне​ Set re =​ для поиска))))​
​l(i, 1).Cells.Interior.Color =​ — LIST).​ крутится дальше…​ который с листом​
​ то типа Array.FindIndex​ структура данных. Попробуйте,​ представляет из себя​

​ «Microsoft Scripting Runtime»)​

​arr2 = Split(str1,​ Split(FoundPropusk, «Отсканирован пропуск​ нужно, чтобы обработать​Сортировка словаря методом​ записей, каждая запись​

​ новые слова или​​ медленно, есть ли​ CreateObject(«vbscript.regexp») re.Pattern =​Есть идея создать​ RGB(227, 38, 54)​Берем значение в​мне как вариант​ никак не связан,​ — но vba​ не пожалеете.​ строку:​Sub myExample()​ » «)​ «)(1)​ все логи.​ реконструкции​ представляет из себя​ изменяет определённые параметры​ возможность ускорить… поиск​ zna re.ignorecase =​ некий массив из​
​End If​ первой ячейке на​ еще понравилось предложение​
​ а вот КБ​ ругается и не​
​Благодарю​формата — [|АНАЛИТИЧЕСКОЕ|89938|/;5951;1;/|],​Set arr1 =​arr1(curIndex) = Val(arr2(UBound(arr2)))​Set FoundPropusk =​Udik​

​polestar​​ строку:​ в словах, которые​ методов определения индекса​ True diapaz1.Interior.Pattern =​ справочника. Затем столкнуть​
​End If​ листе LIST и​ambasad,​ формируется именно с​ опознает что это​, буду изучать. А​ это пример. В​ New Dictionary​ElseIf str1 =​ Columns(1).Find(«Отсканирован пропуск «,​: Не совсем понятен​
​: Пришлось поменять ListBox​

​формата — [|АНАЛИТИЧЕСКОЕ|89938|/;5951;1;/|],​​ уже есть в​ заданного (не чётко)​ xlNone ‘ УБИРАЕТСЯ​
​ этот массив с​​Next i​ ищем его на​внести данные в​

​ листа через созданное​​ вообще такое, справка​ как на форуме​

​ первых двух вертикальных​​Set arr2 =​ «» Then​ After:=FoundPropusk)​ алгоритм. Как я​ на ComboBox, так​ это пример. В​ массиве…. поэтому этот​ элемента массива ничего​ ЗАЛИВКА For Each​ диапазоном, заданным пользователем​Next j​ листе RAWDATA, если​ массив с листа.​ имя в диспетчере​
​ про FindIndex тоже​ цитату вставлять?​
​ линиях ||,в строках​ New Dictionary​

​If flagMass Then​​Loop While FoundPropusk.Address​ понял, нужно находить​ же передаю ему​ первых двух вертикальных​

​ этап в программе​​ не дал.​ diapaz2 In Intersect(diapaz1,​ и в случае​End Sub​ находим — то​как записать в​ имен.​ молчит.​Апострофф​ массива записаны разные​
​arr1.Add 0, 1​For i =​ <> FAdr​ очередную строку, содержащую​ массив Mslov​
​ линиях ||,в строках​
​ самый главный и​Hugo121​
​ ActiveSheet.UsedRange).Areas ‘юзер может​ совпадения, ячейки будут​Diana987​ красим зеленым, нет​ array именованный диапазон?​Но вопрос уже​есть 2 массива​

​: Выделяешь нужное, жмешь​​ слова. Поиск осуществляется​arr1.Add 12, 2​

​ 2 To curIndex​​End If​Текущий вес:​

​ComboBox.List=Mslov​​ массива записаны разные​ мне нужно его​: Что за allBaza?​
​ выбрать несмежный диапазон​ закрашиваться.​: KuklP, СПАСИБО ОГРОМНОЕ!​
​ — красным и​вместо этого​
​ был решен… я​b = Array(bol,​

​ цитировать.​​ среди этих слов​arr1.Add 24, 3​If Abs(arr1(i) -​End Sub​и, если она​В ComboBox можно​ слова. Поиск осуществляется​ оптимизировать, желательно идеально​Если это массив​ If diapaz2.Count >​Но застряла на​ Пока ищет только​ т.д.​b = Array(bol,​ применил по наводке​ glush, ivash, kov,​polestar​Написал код​arr2.Add 1, 1​ arr1(i — 1))​K-SerJC​ соответствует условиям, выводить​ дописывать строку -​ среди этих слов​ в рамках VBA.​ строк из текстового​ 1 Then arrTemp​ моменте того, как​ по первому столбцу​Написала код, но​ glush, ivash, kov,​ LVL именно перебор.​

​ kul, nest, shap,​​: Т.е. если я​Public Function poisk(slovo$)​arr2.Add 13, 2​ > 9 Then​: в принципе не​
​ на отдельный лист​ элемент в начало​Написал код​Catstail​ файла, то их​ = diapaz2.Value For​ организовать поиск. Будет​

​ листа RAWDATA, попробую​​ он отрабатывает только​ kul, nest, shap,​ListIndex от Hugo​ shitl)​ правильно понял, Dictionary​ As Currency p​arr2.Add 25, 3​Worksheets(«out»).Cells(rowCur, 1).Value =​ учел только это​ какие-то данные (​ списка, но определение​
​Public Function poisk(slovo$)​: — ну значит​ 65 мегов его​ i = 1​ выдаваться ячейки только​
​ сделать, чтобы искал​ по первой ячейке,​ shitl)​ тоже интересно, но​m = Array(«a1»,​ нужен для того​ = -1 For​Enter = InputBox(«введите​ strPass​тогда уточнение:​ строка со словами​ индекса по заданному​ As Currency p​

​ прочитать текст в​​ можно получить секунд​ To UBound(arrTemp) For​

​ с точным совпадением​ по другим тоже.​ помогите, пожалуйста, разобраться.​

CyberForum.ru

Поиск значения в массиве VBA

​что то типа​​ при условии что​
​ «a2», «a3», «a4″,​ чтобы скопированные слова​ k = 0​ число») ‘ вводим​rowCur = rowCur​имеем в начале​ «отсканирован пропуск» и​ элементу, осуществляется в​ = -1 For​ итоге в словарь,​ за 10 так:​ j = 1​ данных из массива.​Hugo​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Dim r As Range​ такого можно?​ данные КБ идентичны​ «a5», «a6», «a7»,​ из массива в​
​ To hms -​
​ число которое будет​ + 1​ лист со строками​ пустые промежуточные строки​
​ ComboBox.ListIndex при его​ k = 0​ там его изменять-дополнять,​AllБаза = Split(CreateObject(«Scripting.FileSystemObject»).Getfile(Путькфайлу$).OpenasTextStream(1).ReadAll,​
​ To UBound(arrTemp, 2)​ Если в ячейке​: Смотрю пример.​Dim l As​
​b = Array([именованный​ расположению данных в​ «a8″​ нём находить и​ 1 sl =​
​ искаться в массивах​Exit For​
​ нескольких взвешиваний, которые​ не обнаружены). Сразу​ активации в списке,​ To hms -​ в конце выгрузить​ vbNewLine)Далее цикл по​
​ If re.test(arrTemp(i, j))​

​ «Купили барабан за​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub tt()​ Range​ диапазон])​

​ array.​​выбираю значение в​ по индексу записи​ Mslov(k) f =​If arr1.Exists(Val(Enter)) Then​
​End If​ разделены пробелами, т.е.​ встаёт вопрос зачем​ может кто знает​ 1 sl =​ всё в новый​ массиву, берём ключ​

​ Then diapaz2(i, j).Interior.Color​​ 200″ а в​​Dim a(), el,​​Set r =​LVL​И эти два​ combobox на userform,​
​ переходить назад в​
​ InStr(3, sl, «|»)​ MsgBox «1st Massiv»​Next i​ несколько диапазонов​ данные из каждого​ как в ComboBox​ Mslov(k) f =​

​ текст.​​ и кладём всё​ = vbYellow Next​ массиве слово «барабан»,​
​ i&​ ThisWorkbook.Sheets(«RawData»).UsedRange​

​: b=range(«XXX»).value​​ способа полностью подходят.​​ значения аналогичны значениям​​ массив с определённым​ sl = Mid(sl,​If arr2.Exists(Val(Enter)) Then​End If​
​в каждом отделенном​ файла копировать на​ определить индекс заданного​ InStr(3, sl, «|»)​polestar​ в словарь, массив​
​ Next Else If​ то ячейка не​With CreateObject(«Scripting.Dictionary»): .comparemode​Set l =​b — динамический​ Если уже крутить​ в массиве!​ индексом. Новое слово​ 2, f -​ MsgBox «2nd Massiv»​Erase arr1​ диапазоне участвует только​ очередной лист. Поиск​
​ элемента из списка​ sl = Mid(sl,​:​ убиваем.​
​ re.test(diapaz2.Value) Then diapaz2.Interior.Color​ закрасится как я​ = 1​ ThisWorkbook.Sheets(«LIST»).UsedRange​ массив типа Variant​ немного тему дальше…​Подскажите пожалуйста, каким​ заносить в Dictionary​ 1) If sl​

​End Sub​​flagMass = False​ один пропуск, много​ и выделение нужных​ без его активации,​ 2, f -​polestar​polestar​
​ = vbYellow End​ понимаю.​a = ThisWorkbook.Sheets(«RawData»).UsedRange.Value​
​For j =​XXX — название​

​ LVL предложил еще​​ образом совершать поиск​
​ и в массив​ = slovo$ Then​Alex4801​curIndex = 0​ строк текущий вес​ данных можно в​ т.е. программно.​ 1) If sl​, Фу… Пробую последний​
​: Можно попросить ответить​ If Next End​Sub Finder() Dim​For Each el​ 1 To r.Rows.Count​ именованого диапазона​ вариант через словарь…​ текста который вернул​ под одним и​ p = k​: Задан двумерный массив​strPass = «»​ и может быть​
​ памяти проделать. Наверное​polestar​ = slovo$ Then​ раз.​ на конкретный вопрос,​ Sub​ diapaz1 As Range​
​ In a: .Item(el)​

​For i =​​marker_mc​ было бы интересно​ комбобокс в массиве​ тем же индексом.​

​ Exit For End​​ и некоторое число.Найдите​If EOF(1) Then​

​ несколько зарегистрированных или​​ лучше будет, если​: Помогите разобраться с​ p = k​Ты используешь массив​ о ином способе​Попробовал с 202​ Dim diapaz2 As​ = 0&: Next​ 1 To l.Rows.Count​:​ как с ним​ b?​Выделяешь нужное, жмешь​ If Next psk​ его координаты (номер​
​ flgout = True​ только один вес​ выложите кусок файла-лога,​ функцией Find. Пытаюсь​
​ Exit For End​ (обозначим его A).​ поиска в массиве​ словами — сработало​ Range Dim zna​a = ThisWorkbook.Sheets(«LIST»).UsedRange.Columns(1).Value​
​If l.Cells(i, 1).Value​LVL,​ работать, потому что​на словах звучит​ цитировать.​ = p Return​ строки и столбец)​End If​ зарегистрирован?​ и объясните что​ заменит ею выше​ If Next psk​ Значит, в твоей​ элементов, которые представляют​

​Di585​​ As String Dim​For i =​
​ = r.Cells(j, 1).Value​
​это будет тогда​ до него еще​ так:​Вот её то​ End Functionslovo$ -​ в массиве.​Loop​
​выбираем из диапазона​ именно нужно вытянуть​ приведённый код, но​ = p Return​ программе должно быть:​ из себя тип​: Спасибо большое!, Буду​ arrZna(1 To 3)​ 1 To UBound(a)​
​ Then​ не массив, а​ не добирался и​Combobox1.Text найти какой​ и не вижу!​ искомое слово заключённое​Alex4801​Close #1​
​ строку отсканирован пропуск,​ на лист.​ не хочет работать.​ End Functionslovo$ -​Redim A(1 to​ данных String. Нужно​

​ пробовать разобраться с​​ As Integer Dim​If .exists(a(i, 1))​

​l.Cells(i, 1).Interior.Color =​​ просто диапазон судя​
​ пока что не​ по счету в​

​Catstail​​ в |​: Макрос берёт данные​

​End Sub​​ выбираем от туда​
​Kuzmich​Set psk =​ искомое слово заключённое​ …) As ….​
​ определить индекс массива,​ кодом, надеюсь он​ i As Long​ Then​ RGB(190, 245, 116)​

​ по записи​​ знаю с чем​
​ массиве b и​
​: — да массив​поисковое слово​ из активного Excel-листа​stasprv​ числовое значение пропуска​: Из строки с​ Mslov.Find(slovo$, lookat:=xlWhole)​ в |​ A(i)=… …=A(i)А теперь​ элемент которого содержит​ ускорится) Если по​ Set diapaz1 =​ThisWorkbook.Sheets(«LIST»).Cells(i, 1).Interior.Color =​
​Else: l(i, 1).Cells.Interior.Color​
​Hugo​ его едят.​ вернуть значение с​

​ ВООБЩЕ НЕ НУЖЕН!​​|​ в VBA-массив.​: Может быть несколько​выводим строки​ пропуском (их почему-то​
​dzug​поисковое слово​ будет​ заданную подстроку. По​ времени все получиться,​ Application.InputBox(«Введите диапазон», «Запрос»,​ RGB(190, 245, 116)​ = RGB(227, 38,​: a = [именованный_диапазон].Value​Hugo​
​ найденным индексом с​ Все храни в​hms — количество​Макрос написан для​ строк в одном​Пропуск​

​ несколько в каждом​​: Использовать Find -​|​Set Dict=CreateObject(«Scripting.Dictionary») Dict.Add​ поводу организации процесса​ буду дорабатывать макрос,​

​ Type:=8).Cells ‘ ДИАПАЗОН​​Else​ 54)​Но получите двумерный​: Да словарей тут​ массива m​ словаре.​ всех элементов в​ диапазона ячеек на​ взвешивании «Зарегистрирован вес»,​

​две строки между​​ взвешивании), например​ самый медленый способ…​
​hms — количество​
​ «|****|»,»|****|***…|» ‘::: Проверка​ вне этого вопроса,​ чтобы если слова​ ВЫБИРАЕТ ПОЛЬЗОВАТЕЛЬ diapaz1.Interior.Pattern​ThisWorkbook.Sheets(«LIST»).Cells(i, 1).Interior.Color =​End If​ массив.​ вагон был…​Заранее спасибо!​polestar​ массиве Mslov​ Excel-листе «A1:E10».​

​ но они будут​​ которыми разница >9​01,08,2016 08:24:32 Отсканирован​
​Я когда то​ всех элементов в​ наличия If Dict.Exists(Ключ)​ мне ваше мнение​ найдены, через нное​ = xlNone ‘​ RGB(227, 38, 54)​

​Next i​​marker_mc​Ищите по scripting.dictionary​
​LVL​: У меня этот​​p — результат​​Искомое число нужно​ идентичны, т.е. зарегистрирован​
​строку где зарегистрирован​ пропуск «D26,1 959395″​
​ писал поиск миллиона​
​ массиве Mslov​ Then B=Dict.Item(Ключ) ‘:::​ интересно, но потом​ количество столцовв найденной​
​ УБИРАЕТСЯ ЗАЛИВКА If​End If​
​Next j​: но а записать​

​Смысл такой -​​: Перебор всех значений​
​ массив потом проходит​ поиск, если -1,​
​ указать прямо в​ один и тот​

​ вес >45​​в каком виде​​ значений на миллион,​​p — результат​ Удаление Dict.Remove(Ключ) ‘:::​ и в другой​ строке выводилось слово​

​ diapaz1 Is Nothing​​Next​
​KuklP​ в переменную как​

​ запоминаем в словаре​​ в цикле или​ метод Join и​
​ то записи с​
​ самом коде в​ же вес​и так по​

​ выделить его значение?​​ выполнялось это более​

​ поиск, если -1,​​ и т.д.​ теме.​ найдено. Надеюсь все​

​ Then MsgBox «Сначала​​End With​: Diana, зарегистрируйтесь и​Dim a() ???​ слово и к​ словарь​

planetaexcel.ru

Поиск в массиве (VBA) без цикла.

​ их и перенести​​polestar​ программы вызывается вся​ данный момент времени,​

planetaexcel.ru

Макрос поиска значения в массиве (Макросы Sub)

​ в этом языке​​ Что пишет? Вы​
​ i = LBound(arrZna)​ это всё решаемо,​ на листе RAWDATA,​: в какую переменную?​ словарю и по​ циклом, каким образом​Есть метод Find,​
​Код работает крайне​ строк и 5​: Спасибо за Ваш​Columns(«A:A»).Select​ в другое место,​:​ строка.​ нужно их знать,​ функцию Split​
​ выбираете диапазон на​ To UBound(arrZna) с​ если нужно решать.​ а в макросе​
​ Массив и есть​
​ слову берём номер​ это делать? как​
​ пробовал вставить в​ медленно, есть ли​
​ столбцов. '"1 To"​ труд, но, к​
​Selection.Replace What:=".", replacement:=",",​ где уже вычислять​
​Благодарю​Код работает крайне​
​ чтобы внести соответствующие​Alex77755​ другом листе или​
​ этого момента начинается​ Может не нужно?​
​ у Вас на​ переменная​ (ну или что​
​ пользоваться for ...​
​ программу, но у​
​ возможность ускорить... поиск​

​ используется, чтобы порядковый​​ сожалению, когда открываю​ LookAt:=xlPart, _​ разницу?​, но всё же​ медленно, есть ли​
​ корректировки, которые хранятся​: Попробуй так​ в пустой части​ ошибка Set diapaz2​KuklP​ листе LIST.​

​marker_mc​​ там запомнили…) И​ next я знаю,​
​ меня он не​ методов определения индекса​ номер первой строки​ файл и нажимаю​SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,​K-SerJC​ как её запустить.​ возможность ускорить… поиск​ в подблоках /…/.​Mslov=Split(CreateObject(«Scripting.FileSystemObject»).Getfile(Name).OpenasTextStream(1).ReadAll, «»)​
​ листа? Попробуйте так​ = diapaz1.Find(i, ,​: Чего ж сразу​

​Diana​​: Ок, попробую ради​ то, что запомнили​
​ но как по​ хочет работать. Пишу:​ заданного (не чётко)​ ‘и столбца был​ на кнопку ничего​ _​: так подойдет?​ Пишу в встроенном​ методов определения индекса​ Исходя из того​
​Hugo121​ Sub Finder1() Dim​ xlValues) If Not​
​ не сказали, что​

​: Надо на листе​​ интереса еще так​ — можно в​ array шерстить?​p=Mslov.Find(slovo)​​ элемента массива ничего​​ один, а не​ не происходит. Через​ReplaceFormat:=False​

​stasprv​​ редакторе VB в​ заданного (не чётко)​ что содержится в​: http://www.cyberforum.ru/pure-basic/​
​ diapaz1 As Range​
​ diapaz2 Is Nothing​ надо по всем​

​ LIST:​​ переделать. Спасибо. Хотя​ любой момент изменить.​marker_mc​в любом варианте​ не дал.​ ноль (ноль по​

​ разработчик запустил макрос,​​End Sub​: Добрый день, K-SerJC.​ Excel, функция Filter​
​ элемента массива ничего​ этих подблоках, к​polestar​ Dim diapaz2 As​ Then zna =​ столбцам? Тогда гораздо​
​1) Берем первую​ через цикл уже​Хотя конечно на​: вопрос снят!​ пишет Empty​Catstail​ умолчанию), чтобы ‘было​ после выбора файла​точки в числовых​
​ Спасибо, отличный алгоритм​ работает, а это​ не дал.​
​ ним добавляется новые​: —какова же длина​ Range Dim zna​ diapaz2.Address End If​ лучше использовать метод​ ячейку на листе​ давно работает))))​ 8 значений нет​
​LVL,​Пробовал через Filter,​: Попробуй загрузить этот​ удобно писать код,​ выдается ошибка «Run-time​ выражениях в экселе​ получился. Только, как​
​ капризная… исключительно.​polestar​ или корректируются уже​

​ этой строки(файла)​​ As String, re​

​ Do While Not​​ find. За один​ LIST и ищем​Dophin​
​ смысла словарь привлекать​
​спасибо за наводку.​ находит нужную строку,​
​ массив в словарь​ т.к. привычнее считать​
​ error: 32809. Application​ зло!​
​ я понял в​dzug​
​: Благодаря вашему совету​ существующие.​
​--что с ней​ As Object, arrTemp()​
​ diapaz2 Is Nothing​ проход цикла все​ есть ли такое​
​: задался вопросом можно​ (тем более что​
​ Сделал перебор значений​
​ но так как​ (Dictionary), а поисковое​
​ предметы с единицы,​ defined or object​
​исправленный файл вложил.​
​ моем примере нет​
​: В справочнике всё​
​ я уже частично​
​/;900;1;/​

​ надо делать​​ Dim arrZna, x​ diapaz2.Interior.Color = RGB(255,​ раскрасит. Пробуйте, если​ значение на листе​ ли как то​ искать нужно только​

​ в массиве через​​ мне нужен индекс​
​ слово используй как​
​ 'а не с​ defined error". Вероятно,​
​Udik​ машин более 45​
​ хорошо описано и​
​ абстрагируюсь от этого​Этот подблок говорит​--не можете выложить​
​ Dim i As​
​ 255, 0) Set​ не получится пишите​
​ RAWDATA, если нет,​ искать в массиве​
​ 1 значение при​ For Next​
​ массива, всю строку​
​ ключ.​ нуля. 'Long -​
​ я что-то делаю​
​: Вот код, который​
​ ny? поэтому он​
​ с примерами.​
​ термина в рамках​ о том, что​ реальный —выложите реалистический​ Long, j As​ diapaz2 = diapaz1.FindNext(diapaz2)​ в тему.​ то красим первую​ без перебора каждого​

​ каждом запуске кода)​​Выглядит так:​ предаю в Find,​polestar​ означает, что в​ не так?​ непосредственно файл обрабатывает.​ выдает разницу в​Sub mmm() With​ этой программы, но​ слово связано со​

​ пример​​ Long On Error​ If diapaz2.Address =​

​Diana987​​ ячейку в красный,​ элемента?​ — оставляйте перебор.​For i =​
​ не работает.​: Дело в том,​ массиве могут быть​stasprv​ Общий алгоритм такой:​
​ тех, которые весят​ Worksheets(1).Range(«A4:T12») s =​ всё же мне​ словом имеющее индекс​и для чего​ Resume Next Set​ zna Then Exit​: Все получилось! Всем​
​ если находим, то​Sub pp()​Словарь нужен когда​ 0 To 7​
​snipe​ что этот массив​ только числа ‘(ещё​: Спасибо, всё работает,​ идет построчное считывание,​
​ меньше. Скопировал данные​ InputBox(«Что ищем ??»,​ результат этой программы​ 900 и встречалось​
​ нужен поиск​

excelworld.ru

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

​ diapaz1 = Application.InputBox(«Введите​​ Do End If​ спасибо​ в зеленый.​
​Dim arr(1 To​ нужно найти например​ If ComboBox1.Text= m(i)​: может все таки​ динамический и постоянно​ может быть, например,​ только отбираются машины​ из строк, содержащих​ из лога, где​ , «s22″) Set​ нужно использовать в​ 1 раз. Индекс​нет желания угадывать​ диапазон», «Запрос», Type:=8).Cells​ Loop Next End​Катерина​
​2) Берем вторую​ 3, 1 To​ 10000 пар в​ Then iBook =​
​ файлик выложите​ меняется, количество записей​ текст). Причём числа​ с зарегистрированным весом​
​Текущий вес​ есть такие машины​
​ c = .Find(s,​ других модулях и​ слова хранится сразу​ ваши потребности​ ‘ ДИАПАЗОН ВЫБИРАЕТ​ If End Sub​: Помогите пожалуйста!!!!!!!!!!!!! мне​ ячейку на листе​ 2)​ двух несортированных списках,​ b(i) Exit For​polestar​ увеличивается, и сами​ могут быть ‘только​ менее 45 тн.​формируется массив весов.​ на лист, запустил​ LookIn:=xlValues) If Not​ они работают уже​ же после самого​Апострофф​ ПОЛЬЗОВАТЕЛЬ If diapaz1​Заранее спасибо за​ нужен программный код​ LIST……….и т.д.​Dim s​ ну или подсчитать​ End If Next​: Он весит 65​ записи изменяются. Поиск,​ целые (есть ещё​Udik​ Если​ пакрос… type mismatch.​ c Is Nothing​ не в Excel,​ слова, например: [|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|]​: …..[|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|][|ИСПОЛЬЗУЕШЬ|92240|/;900;1;/|][|МАКСИМУМУ|92241|/;173;1;/|][|ПРОДЕМОНСТРИРОВАН|92242|/;2;1;/|][|ЗАМЕЛЬКАЛИ|92243|/;92244;1;/|]….​ Is Nothing Then​ любую информацию и​ для для макросов​Diana987​arr(1, 1) =​ количество повторов уникальных.​ i​ мегов​ о котором я​ дробные числа). Dim​: Загадка, сейчас проверил​зарегистрированный вес​
​ Подскажите, пожалуйста, что​ Then firstAddress =​ т.е. нужен результат​ — индекс этого​И что вас​ MsgBox «Сначала выделите​ советы.​ excel.​
​: KuklP, надо на​ «первый»​Юрий М​Hugo​snipe​ говорю, как раз​ myArray(1 To 10,​ файл с сайта​меньше или равен​ я делаю не​ c.Address Debug.Print c.Address​ в том виде​ слова ПРОДВИНУТОСТЬЮ 92239,​
​ заставляет?​ диапазон!» Exit Sub​Alex77755​Дана таблица поставок​ листе LIST:​arr(2, 1) =​: Куда-то мой пост​: Комбобокс? Используйте индекс​: да он то​ и определяет тот​ 1 To 5)​ — нормально отработал.​ 45, переходим к​ так? Лог прикрепляю​ ss = c.Address​ о котором я​ встречалось со словом​Добавлено через 1 минуту​ End If Set​: а что ты​ материалов. вписано уже​1) Берем первую​ «второй»​ подевался)))​ (т.е. номер выбранной​ весь и не​ элемент, который нужно​ As Long ‘2.​ А на какой​ следующему взвешиванию. Если​stasprv​ Do Set c​ писал выше, сформировать​ с индексом 2,​Я там был​ diapaz1 = Intersect(diapaz1,​ ищешь? значения или​ 6 материалов и​ ячейку на листе​arr(3, 1) =​Hugo​
​ записи).​ нужен​ видоизменить или если​

​ Создаём в оперативной​​ строке ошибка вылетает?​ больше, проверяем массив​: Добрый день, Udik.​
​ = .FindNext(c) Debug.Print​
​ всё назад в​

​ 1 раз.​​ … не нашёл​ diapaz1.Worksheet.UsedRange) If diapaz1​ индексы?​ их значения и​ LIST и ищем​ «третий»​: Сапожник без сапог​Был бы пример​нужен лист с​ его нет, через​ памяти компьютера поименованные​

​K-SerJC​​ на пару с​ Наверное, я просто​
​ c.Address If c.Address​ строку и записать​
​Благодарю вас за​
​Добавлено через 1 минуту​ Is Nothing Then​
​For i​
​ даты поставки.​ есть ли такое​

​arr(1, 2) =​​Что стережём, то​ в файле…​ которого вы массив​ ReDim сделать новую​​ области — ‘переменные,​: проверил, отбирает зарегистрированные​ разницей 9. Нашли​ не на столько​
​ <> firstAddress Then​ её txt файл.​ настойчивость, как и​Выше я написал​
​ MsgBox «Диапазон пуст»​Find(i,​
​Мне нужен код​ значение на листе​ «яблоко»​ и имеем​marker_mc​ берете​ запись.​ которые понадобятся для​ >45​ такую — вносим​ хорошо знаю excel,​ ss = ss​
​Hugo121​
​ говорил, я ваше​
​ 1 000 000​

​ Exit Sub End​​Di585​ для кнопки «Добавить​ RAWDATA, если нет,​arr(2, 2) =​nerv​:​штук 10 заполненных​Апострофф​ написания кода. Dim​и текущие с​ номер пропуска на​ как Вы, поэтому​ & » «​: Вместо позиции в​ предложение использую если​ таких блоков. Длина​ If With Worksheets(«Лист3″)​: Ищу слова из​ материал» т.е. чтобы​ то красим первую​ «вишня»​: с ADO (sql)​Hugo,​ строчек​: Много слов и​ myNumber As Long​ разницей >9​ лист.​ описываю задачу исходя​ & c.Address End​ массиве в словаре​ лучшего не предложится.​ строки тоже написал​ arrZna = .Range(«A1″,​ списка. В этом​ я на нее​ ячейку в красный,​arr(3, 2) =​ проще​я правильно понял,​ну и соответственно​ ошибок в коде​ Dim myRow As​добавил номер пропуска​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​ из своих знаний.​ If Loop While​ можно писать номера​ Дело в том,​ около 60 мегов.​ .Cells(.Rows.Count, 1).End(xlUp)).Value End​ то и проблема.​ нажала ввела в​ если находим, то​ «черешня»​Hugo​ что можно вернуть​ названия столбцов​ (если речь об​ Long, myColumn As​ вычисляет​OOption Explicit​ Изначально у меня​ Not c Is​ в значениях.​ что запись в​Добавлено через 2 минуты​ With If Err​ Функция Find здесь​ открывающее окно данные​
​ в зеленый.​s ‘= [поиск​

​: Но дольше​​ номер значения по​polestar​ VBA) — psk​ Long Dim i​stasprv​Public Sub processF()​ есть текстовые файлы​ Nothing And c.Address​Или думаю тут​ массив, после того​Сообщение от​ Then MsgBox «Ошибка​
​ неуместна. Нужно что​ и они отобразились​2) Берем вторую​

​ в массиве arr,​​С ADO проще,​ счету из комбобокс?​: Я его не​ <> poisk Public​ As Long, j​: Наверное, я не​Dim str1 As​ с логами, каждый​ <> firstAddress End​ будет удобно так​ как слово уже​Alex77755​ чтения списка справочника»​ то другое, но​ в таблице.​ ячейку на листе​ по второму столбцу​ когда есть класс​Если правильно понимаю,​ беру с листа,​ Function poisk(slovo$) As​ As Long ‘3.​ совсем понятно написал.​ String, strPass As​ весит более 1​ If End With​ — из строки​ записывалось первый раз,​Попробуй так В​ Exit Sub End​ чтобы искало слово​Если не можете​ LIST……….и т.д.​ слова «вишня]​ от nerv или​ то вы предлагаете​ я его беру​ Long For k​ Помещаем в переменную​ Необходимо, чтобы одновременно​ String​ Гб, я их​ MsgBox ss, vbInformation,​ |ПРОДВИНУТОСТЬЮ|92239|/;2;1;/| создать 3​ переносится в начало​ PureBasic функции Split​ If If IsArray(arrZna)​ в тексте из​ так помочь,то подскажите,есть​(извиняюсь за повтор)​MsgBox s ‘должно​ Function ADO_R_Dmitry()​ вернуть этот номер​ с файла txt.​ = 0 To​ «myNumber» целое число,​ выполнялись оба условия​Dim arr1(1 To​ копирую в xls​ «Искали » &​ словаря:​ массива при повторном​ нет.​ Then For Each​ ячейки, а не​ ли в просторах​KuklP​ вывести «2»​Но ведь есть​ и найти значение​ В файле одна​ UBound(Mslov) If InStr(Mslov(k),​ которое ‘надо будет​ в одном взвешивании.​

​ 200) As Double​​ на несколько листов,​ s End Sub​1 — ключ​ появлении в тексте,​

CyberForum.ru

Самый быстрый метод поиска в массиве

​Добавлено через 24 минуты​​ x In arrZna​ точное совпадение двух​ интернета файл,​: По-вашему это файл-пример?​End Sub​ строгие требования к​ по номеру в​
​ строка, в которой​ «|» & slovo​ искать в массиве​ Машина с весом​Dim curIndex As​ т.к. на один​Hugo121​
​ «ПРОДВИНУТОСТЬЮ», значение «номер​
​ таким образом, я​Сообщение от​ zna = zna​ ячеек.​где перечислены все​ И я не​есть ли такой​ данным. А с​ array​ есть блоки [….][….][….]…​ & «|») Then​ «myArray». ‘Я помещу​ более 45 тн.​ Byte​ лист помещается не​: Find работает только​ статуса»​ в начале массива​polestar​​ & «|» &​​Alex77755​
​ команды и их​ спрашивал, где берем.​ способ? что то​
​ словарём простор для​Вариант неплохой и​ и так далее,​ poisk = k:​ число «1», вы​ и текущее с​Dim fileToOpen, arr2​ более 65 000​ с диапазоном. По​2 — ключ​
​ кучкую часто встречаемые​….​ x Next zna​: как выставишь параметры​ значение для программирования​ Красим ячейку​ типа Find​

​ манёвра.​​ судя по всему​
​ из строки делаю​ Exit Function Next​ можете поместить другое​ разницей 9 тн.​Dim flagMass As​ строк примерно. Лог​
​ массиву можно использовать​ «ПРОДВИНУТОСТЬЮ», значение 92239​ слова, а редкие​[|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|]​ = Mid$(zna, 2)​ поиска​

​ в эксель,мне их​​в каком листе​Заранее спасибо.​nerv​ исключает перебор, но​ массив Split(…,»») и​ poisk = -1​ целое число. myNumber​ Было бы отлично,​ Boolean, flgout As​ прикрепляю​ Index(), но простой​3 — ключ​ смещаются на периферию.​[|ИСПОЛЬЗУЕШЬ|92240|/;900;1;/|]​ Else zna =​LookAt:=xlWhole — ячейка​
​ не найти((​? Одним словом можете​Dophin​: не понял​ это только в​ дальше уже работаю​ End Function​ = 1 ‘4.​

​ если бы номер​​ Boolean​
​stasprv​

​ перебор массива быстрее,​​ «ПРОДВИНУТОСТЬЮ», значение /;2;1;/​

​ Поэтому массив постоянно​​[|МАКСИМУМУ|92241|/;173;1;/|]​ arrZna End If​
​ целиком​Читайте Правила форума,​
​ ответить? И жду​: и вдогонку. Как​ЦитатаHugo пишет:​
​ том случае если​ с массивом. В​
​snipe​ Помещаем в массив​

​ пропуска выводился шестизначный​​Dim arrStr(1 To​
​: Добрый день, Kuzmich.​ и заметно быстрее.​
​ну или второй​
​ меняется.​[|ПРОДЕМОНСТРИРОВАН|92242|/;2;1;/|]​
​ Set re =​
​LookAt:=xlPart — вхождение​ создавайте свою тему,​ файл.​ без цикла вставить​С ADO проще,​
​ сортировка комбобокса совпадает​
​ листе я пробовал​​: видите ли гонять​ ​ «myArray» данные из​ (сейчас 5 знаков)​ 3) As String​
​ Данные пропуска можно​
​polestar​​ключ «ПРОДВИНУТОСТЬЮ», значение​ ​polestar​
​[|ЗАМЕЛЬКАЛИ|92243|/;92244;1;/|]​
​ CreateObject(«vbscript.regexp») re.Pattern =​
​отнюдь! в твоей​
​ прикладывайте файл в​
​Diana987​
​ на лист этот​ когда есть класс​ с размещением данных​ организовать эту работу,​ цикл для поиска​ программы «Excel» ‘из​
​stasprv​Dim rowCur As​ выделить в любом​:​
​ 92239/;2;1;/​
​: — ничего этого​​…. Так я​ ​ zna re.ignorecase =​ процедуре ищется индекс​​ Excel​​: KuklP, извините, не​ массив? что то​ от nerv или​ в array, но​

​ через функцию ПОИСКПОЗ(),​​ не совсем рациональное​ активного листа. For​: а как это​ Long, i&​ виде. Вы мне​Благодарю​Теперь при анализе​ НЕ НУЖНО БУДЕТ​ представил элементы массива​ True On Error​

​Добавлено через 2 минуты​​Эта тема закрыта​ увидела сообщения до​ видел про Join,​ Function ADO_R_Dmitry() ну,​ если этот порядок​ всё работает и​ решение​ i = 1​ определить? Всплывает просто​arrStr(1) = «*Текущий​ и так значительно​, всех за ликбез.​ по ключу легко​ ДЕЛАТЬ. Словарь ищет​ Mslov. Ищется индекс​ GoTo 0 diapaz1.Interior.Pattern​Find(arrZna(i), LookAt:=xlPart) так​Di585​ цитаты. Красим на​ но не разглядел,​ так зачем много​ будет разным, то​ быстро, но когда​тем более что​ To UBound(myArray, 1)​

​ окно с ошибкой​​ вес*»​ облегчите задачу. Конечно,​ Придётся в самом​ без лишних операций​ данные очень быстро.​ элемента массива в​ = xlNone ‘​
​ вхождение искать​: Добрый день! Уважаемые​ листе LIST.​ а сейчас разобраться​ раз одно и​ соответственно получим не​ количество записей перевалило​ у вас очень​
​ Step 1 For​ и всё​arrStr(2) = «*Зарегистрированный​

​ в идеале в​​ деле, похоже, перейти​ меняем любое зависимое​Catstail​ котором содержится заданная​ УБИРАЕТСЯ ЗАЛИВКА For​Di585​ форумчане! Столкнулась со​http://www.fayloobmennik.net/3198703​ не могу.​ тоже набирать, если​ тот результат что​ за миллион и​ много записей (строк)​ j = 1​Xflash​

​ вес*»​​ виде 959395 (6-7​ в словарь.​ значение.​: Мне это нужно​ подстрока, например: |ЗАМЕЛЬКАЛИ|​ Each diapaz2 In​: Проблема в том,​

​ следующей задачей.​​Файл вроде прикрепила,​​Спасибо. Извините что​​ можно один раз​ ожидаем.​
​ количество столбцов стало​есть одна хитрая​ To UBound(myArray, 2)​: Подскажите пожалуйста, как​
​arrStr(3) = «*Отсканирован​ последних цифр), но​Быстрее в VB​А в финале​
​ делать, так как​Как можно организовать​ diapaz1.Areas ‘юзер может​ что большинство примеров​Имеется некий диапазон​ но не вижу.​

​ в одном топике,​​ сделать и потом​Но все таки​ не хватать, я​ технология которую Excel-исты​ Step 1 myArray(i,​ произвести поиск по​ пропуск*»​ это совсем супер.​ окромя перебора нет!​ можно выгрузить первый​ в тексте встречаются​ на VBA самый​ выбрать несмежный диапазон​ такие. А мне​ данных (ячейки, выделенные​KuklP​
​ но вопросы вроде​
​ использовать? Обычная практика.​ интересно на будущее,​ от этого отказался,​ мало применяют​ j) = Cells(i,​ массивам (для наглядности​rowCur = 1​stasprv​Hugo121​ словарь в массивы​ слова написанные с​ быстрый код решения​ If diapaz2.Count >​ нужно именно чтобы​
​ пользователем). И имеется​: Ок. С этим​ не сложные.​ Всю лишнюю/скучную/глупую рутинную​ каким образом получить​ а как писал​а именно библиотека​ j).Value Next j​ массивы в примере​With Application.FileDialog(msoFileDialogFilePicker)​: K-SerJC, посмотрел алгоритм​: Я там выше​ или двумерный массив,​ ошибками, буквенные абракадабры,​ этого вопроса?​ 1 Then arrTemp​искало слово в тексте​ некий справочник (слова,​ разобрались. Файл будет?​Dophin​

​ работу переложить на​​ этот индекс?​ макрос в Excel,​ ADODB​ Next i ‘5.​

​ созданы с небольшим​​.AllowMultiSelect = False​ более внимательно. Всё-таки​ перепутал — не​ отсортировать по собранным​ и пр. это​Добавлено через 18 минут​ = diapaz2.Value For​ из ячейки, а​ которые надо найти​ Или подождем, пока​: спасибо. Только мне​ класс/функцию.​Насчет файла… признаю​ так и пишу​

​которая позволяет применить​​ Цитата из задания:​ колличеством данных).​

​.Title = «Выбрать​​ он работает немного​ INDEX(), а MATCH()!​ статусам/частоте/иличтотамбудет, или выгрузить​ я потом удаляю.​Сообщение от​ i = 1​ не точное совпадение​ в заданном диапазоне).​ модеры закроют тему​ надо было индекс​ЦитатаHugo пишет:​ честно, специально не​ в нём. Дело​ sql для отбора​ «Найдите его координаты​Sub myExample ()​ файл» ‘заголовок окна​ не правильно. Наверное,​А когда перейдёте​

​ на лист и​​ Если я не​Alex77755​
​ To UBound(arrTemp) For​ двух ячеек.​ Причем слова эти​ за нарушение Правил,​
​ строки элемента.​
​А с словарём​ стал ложить сюда,​ в том, что​
​ записей​ (номер строки и​

​Dim Enter​​ диалога​ я недостаточно понятно​ на словарь -​ разобрать глазами.​ буду осуществлять такой​Mslov=Split(CreateObject(«Scripting.FileSystemObject»).Getfile(Name).OpenasTextStream(1).ReadAll, «») Hugo121​
​ j = 1​Спасибо, что обратили​​ могут быть в​ п.3?​​ну вообщем не​
​ простор для манёвра.пример​ чтоб не дали​

​ пробовал на PureBasic​поверьте работает в​ столбец) в массиве.»​Dim s​.Filters.Clear ‘очищаем установленные​ написал. Давайте попробую​ как раз от​Далее снова пройтись​

CyberForum.ru

Самый быстрый метод поиска в массиве

​ алгоритм записи в​​ и Alex77755​ To UBound(arrTemp, 2)​ внимание, действительно не​ середине, в начале​Hugo​ суть, раз нет​ маневра​
​ готового решения! Хотелось​ и Java, с​ разы быстрее чем​ ‘В «VBA» нет​Dim arr1 (1​ ранее типы файлов​ еще раз. Мне​
​ перебора избавитесь.​
​ циклом по ключам​ массив слов, то​Благодарю​ If re.test(arrTemp(i, j))​ совсем правильно сформулировала​ в конце текста.​: Словари-массивы нужны в​ специального способа, то​Hugo​ именно пару наводок,​ сохранением основного кода,​ поиск циклом​ готовых инструментов для​ to 3)​.Filters.Add «Text files»,​ необходим номер пропуска​polestar​ (взять с листа​ все эти ошибки​​вас, вставил в​​ Then diapaz2(i, j).Interior.Color​
​ в начале.​ В случае, если​ общем случае… особенно​
​ мне и циклом​: Я как-то сравнивал​ чтоб самому дойди…​ на VBA работает​вы бы приложили​ поиска в VBA-массиве​arr1 (1) =​ «*.log», 1 ‘добавляем​ машины, у которой​: По match где-то​
​ в массив) и​ будут размазаны по​ основной код, стало​ = vbYellow Next​С функцией Find​ эти слова содержаться​ если данных много.​

​ удобнее)​​ скорость работы -​ мне полезно, я​ быстрее.​ файлик — что​ какой-то информации. ‘Есть​ 0​ возможность выбора текстовых​ при взвешивании соблюдается​ читал есть ограничение​ сформировать итоговый текст​ всему массиву.​ работать быстрее… массив​ Next Else If​ все получилось)​ в ячейках выделленных​Массив в котором​Dophin​ словарь был быстрее.​

​ учусь)))))​​Hugo121​ бы конкретно под​ одно средство «Filter»,​arr1 (2) =​
​ log файлов​ одновременно два условия:​ на количество элементов​ (словари делать публичными,​polestar​
​ формируется за секунды.​ re.test(diapaz2.Value) Then diapaz2.Interior.Color​Но есть один​
​ пользователем , эти​ ищем циклом (одним)​
​: не, пример безусловно​ Можем ещё на​
​Hugo​
​: Читаете файл в​ вас написать​
​ но оно работает​ 12​.FilterIndex = 1​ 1. есть скачек​ в массиве.​
​ или промежуточно тоже​: Кто мешает удалять​polestar​ = vbYellow End​ вопрос, можно ли​ ячейки нужно выделить​ заносим в словарь,​ интересный, на будущее​
​ какой задаче проверить.​: Ну Вы же​ массив или построчно,​наименование столбцов, листов,​ только с одномерными​arr1 (3) =​ ‘устанавливаем тип файлов​ по модулю более​Hugo121​

​ выгрузить на лист​​ из словаря?​​: Вариант вообще без​​ If Next End​
​ как то ускорить​ цветом.​ массив который проверяем​
​ пригодится. Он же​Ну а пример​ сказали, что в​ загоняете всё в​ ну и немного​ массивами и ‘не​ 24​ по умолчанию​ 9 тн. между​: Кажется там осталось​ или в файл).​Samanta​

​ циклов Dim s$,​​ SubПриложите файл и​ работу макроса? Перебирая​Сначала реализовала данную​

​ циклом (одним) проверяем​​ не медленнее чем​
​ маневра — например​
​ комбобоксе то, что​ словарь, работаете только​ записей​
​ поможет в нашем​
​Dim arr2 (​
​.InitialFileName = ThisWorkbook.Path​ любыми интервалами (двумя​ ограничение как в​polestar​: Это вам просто​

​ a() As String,​​ опишите последовательность действий,​ в 600000 строках​ задачу через функцию​ по словарю.​

​ цикл?​​ в столбце числа​ и в массиве.​

​ с словарём.​​Не по теме:​ задании. ‘Поэтому нужно​

​ 1 to 3)​​ & «» ‘назначаем​ соседними строчками). Без​ 2003 версии, точно​: Ок.​ весь словарь допустим​ n& s =​

​ которые приводят к​​ 193 значения массива​ ЕСЛИ(ЕНД(ПРОСМОТР(2;1/ПОИСК(значения!справочник с данными;A2)));»Не​Ну а покраску​Может как нибудь​
​ тестом, или даты​ Т.е. возможно массив​

​И сомневаюсь что​​Return лет сто не​ что-то самим придумать.​arr2 (1) =​ папку отображения и​
​ разницы в плюс​
​ не знаю т.к.​Благодарю​ просмотреть на наличие​ «[|ПРОДВИНУТОСТЬЮ|92239|/;2;1;/|][|ИСПОЛЬЗУЕШЬ|92240|/;900;1;/|][|МАКСИМУМУ|92241|/;173;1;/|][|ПРОДЕМОНСТРИРОВАН|92242|/;2;1;/|][|ЗАМЕЛЬКАЛИ|92243|/;92244;1;/|]» a =​ ошибке.​ ушло больше 10​ найдено»;»найдено»)​ можно организовать разными​ можно так же​ не даты, или​ является источником комбобокса…​ на таких объёмах​ видел и насколько​ Предложу просмотр всех​

​ 1​​ имя файла по​ или в минус​ не использую.​. Буду пробовать!​ ошибок — визуально,​
​ Split(s, «|ЗАМЕЛЬКАЛИ|») n​Di585​

​ минут. Может быть​​Но так как​ способами, в зависимости​
​ и ПОИСКПОЗ прикрутить?​ нужно отбирать только​ А примера нет…​ стОит использовать Join​ я помню он​ элементов ‘массива в​arr2 (2) =​ умолчанию​Например:​stasprv​

​…и всё же​​ а мне как​​ = Len(a(0)) -​​: Я выбираю диапазоне​ через Словари? Или​ быстродействие функции оставляет​ от количества данных.​ или не стоит​ те строки, где​Private Sub ComboBox1_Change()​

​ — можно из​​ применяется вместе с​ поисках искомого текста.​ 13​
​.InitialView = msoFileDialogViewDetails​01,08,2016 03:48:21 Текущий​: Добрый день, уважаемые​ надеюсь на поиск​ любителю это сложно,​ Len(Replace(a(0), «[«, «»))но​ в 8. Строке​ не нужно в​ желать лучшего, решила​ Если не спешим​ заморачиваться и использовать​ есть определённый текст,​ MsgBox ComboBox1.ListIndex End​ словаря построчно писать​ GoSub​ For i =​arr2 (3) =​ ‘вид диалогового окна(доступно​ вес: 37,140​ форумчане!​ в массиве.​ всё же 1​ никаких гарантий по​ кода. В 34​ макросе прописывать все​

​ писать макрос.​​ — можно сразу​ циклы?​ ну или ещё​ Sub​ результат назад в​polestar​

​ 1 To UBound(myArray,​​ 25​​ 9 вариантов)If fileToOpen​​01,08,2016 03:48:21 Текущий​Обращаюсь к Вам​Мысль о переносе​ 000 000 слов.​
​ производительности?​ оставила просто diapaz1.Работает)спасибо)​

​ 193 значения.​​Написала обычный макрос​ и красить по​Dophin​
​ другие «или»…​Начало нумерации с​ файл.​: Я любитель, на​

​ 1) Step 1​​Enter=InputBox(«введите число») ‘​ = False Then​ вес: 36,620 -​ как к экспертам​

​ массива в словарь​​ Так я знаю,​Hugo121​polestar​arrZna(1) = «барабан»​ через функцию Find.​

CyberForum.ru

Поиск в массиве с определенными параметрами (Макросы/Sub)

​ одной ячейке, это​​: Sub pp()​Насчёт рутины -​
​ 0.​polestar​ профессионализм не претендую,​ For j =​ вводим число которое​ Exit Sub​ разница в этом​ знания vba. Мне​ и работы там,​ что все они​: Пробовал, на заре​
​: Пишу в Excel​
​arrZna(2) = «аккордион»​Sub Finder() Dim​ просто. Но долго.​Dim arr(2, 1),​ в общем со​marker_mc​
​: Проблемы со скоростью​ благодарю за наставление,​ 1 To UBound(myArray,​ будет искаться в​If .Show =​ и следующем взвешивании​
​ необходимо обработать более​ привела меня к​ сосредоточены в конце​ работы с этой​ макрос. По условию​arrZna(3) = «гитара»​ diapaz1 As Range​Файл не смотрел​ arr2()​ словарями аналогично, часто​: Цитатаmarker_mc пишет:​ считывания файла, формирования​ буду учится. По​ 2) Step 1​ массивах​ False Then Exit​ более 9 тн.​ 1 млрд строк,​ мысли сбросить весь​ массива — строки.​ программой, дело в​ имею массив около​Казанский​ Dim diapaz2 As​ — с работы​
​Dim s, z​ можно с небольшими​Насчет файла… признаю​ из него массива​ поводу вашего кода,​

​ ‘If … Then​​s = поиск​ Sub: If .SelectedItems.Count​01,08,2016 03:48:21 Текущий​ догадываюсь, что это​​ массив в ListBox​​ Я эту зону​ том, что таскать​ 1 000 000​: Конечно не нужно.​ Range Dim zna​ туда ходу нет.​arr(0, 1) =​ коррекциями использовать один​ честно, специально не​ и так же​ скажу, что он​ … ElseIf ..​ по массивам…​ = 0 Then​ вес: 26,060​ можно сделать оптимизировать,​ и искать там,​ визуально просматриваю и​ за собой строку​ записей, каждая запись​

​ Разместите список на​​ As String Set​Да, по примеру​ «первый»​ уже написанный код​
​ стал ложить сюда,​ потом запись массива​
​ будет ещё медленней,​ Else … End​
​Если число(enter) нашлось​ Exit Sub​
​2. и зарегистрированный​ но знаний не​ но почему-то не​
​ удаляю…. Всё же​ таким весом очень​ представляет из себя​ отдельном (скрытом) листе​ diapaz1 = Application.InputBox(«Введите​

​ — поудаляйте всё​​arr(1, 1) =​

​ambasad​​ чтоб не дали​ в виде одной​ так как есть​ If — ‘используется​ в первом массиве​fileToOpen = .SelectedItems(1)​ вес которой более​ хватает. Если есть​ работает ListBox.FindString(«|слово поиск|»),​ есть разница искать​ накладно и дальнейшая​ строку:​ например в ст.​ диапазон», «Запрос», Type:=8).Cells​ лишнее и разместите​ «второй»​: Может имеет смысл​

​ готового решения! Хотелось​​ строки нет никакой,​ записи имеющие в​ для выбора действия.​ MsgBox «нашел в​Open fileToOpen For​ 45 тн.​ такая возможность -​ результат даёт 0,​ ошибки среди 1000000​ обработка тоже связана​формата — [|АНАЛИТИЧЕСКОЕ|89938|/;5951;1;/|],​ А на Лист3.​ ‘ ДИАПАЗОН ВЫБИРАЕТ​ тут на форуме,​arr(2, 1) =​ заполнить массив с​ именно пару наводок,​ основная проблема это​ третьем блоке заключённые​

​ ‘Если в элементе​​ первом массиве»​ Input As #1​Например:​ помогите, пожалуйста.​ хотя слово искомое​ или в последней​ с вырезанием блока,​ это пример. В​ Можно попробовать использовать​ ПОЛЬЗОВАТЕЛЬ diapaz1.Interior.Pattern =​

​ если файл больше​​ «третий»​ того же листа?​ чтоб самому дойди…​ поиск в массиве.​ между| / …/​ массива искомое число.​Если число (enter)​End With​01,08,2016 03:47:51 Зарегистрированный​Ситуация следующая:​ там есть.​ сотке слов.​ потом его врезкой​ первых двух вертикальных​ регулярные выражения -​ xlNone ‘ УБИРАЕТСЯ​ 100к. И не​arr(0, 0) =​
​ тогда всё будет​
​ мне полезно, я​ Это основной затык​
​ |до сорока тысяч​ If myArray(i, j)​ нашлось в втором​Worksheets(«out»).UsedRange.ClearContents​ вес: 61,160 -​
​У меня есть​Hugo121​
​polestar​ на своё место…​ линиях ||,в строках​
​ правда, не знаю,​
​ ЗАЛИВКА If diapaz1​ забывайте, что ещё​ «яблоко»​ совпадать​
​ учусь)))))))))​ по скорости.​
​ таких /…/ вставок,​ = myNumber Then​ массиве MsgBox «нашел​Do Until flgout​
​ зарегистрированный вес более​ много текстовых файлов.​: А что это​
​: Помогите пожалуйста с​ ушёл от этого​ массива записаны разные​ сработает ли маска​

​ Is Nothing Then​​ есть архиваторы.​​arr(1, 0) =​​Слэн​Да, в КБ​Может кто знает​ поэтому я вырезаю​

​ ‘6. Запоминаем номер​​ в втором массиве»​On Error Resume​ 45 тн.​
​ Каждый из них​
​ за ListBox.FindString? Где​ решение задачи.​
​ принципа, т.е. работы​ слова. Поиск осуществляется​
​ с 193 условиями​ MsgBox "Сначала выделите​Если в рабочем​
​ "вишня"​: WorksheetFunction.Match() вам в​
​ тоже что и​
​ аналог VBA функции​
​ первый блок и​ строки и номер​End Sub​
​ Next​Номер пропуска машины​ - лог взвешивания,​
​ это?​Написать программу: Для​
​ с одной строкой,​
​ среди этих слов​


​ «или» Sub Finder1()​​ диапазон!» Exit Sub​ файле десятки тысяч​
​arr(2, 0) =​
​ помощь, но находит​ в Массиве и​ Split() в PureBasic.​ его сравниваю с​ столбца. myRow =​
​спасибо )​Line Input #1,​ можно взять отсюда:​ каждый содержит около​polestar​ массива из N​ перешёл на массив.​Написал код​
​ Dim diapaz1 As​ Else Set diapaz2​ строк — это​ «черешня»​
​ не индекс массива,​
​ расположение тоже такое​
​ Я не нашёл,​ заданным словом, а​
​ i myColumn =​sva​
​ str1​01,08,2016 03:47:51 Отсканирован​ 60 000 строк.​
​: Нашёл здесь​

​ целых чисел определить​​ Может вы мне​Public Function poisk(slovo$)​
​ Range Dim diapaz2​
​ = diapaz1.Find("барабан", ,​
​ не лишне упомянуть​s = Application.VLookup("вишня",​
​ а номер начиная​ же, но КБ​
​ приходится делать так:​
​ по вашему коду​
​ j ‘7. Выходим​: пербрать циклом​If EOF(1) Then​
​ пропуск «D26,1 961469″​

​Я копирую каждый​​https://msdn.microsoft.com/en-us/library/e5et1818.aspx​ индексы элементов,​ порекомендуете как правильно​ As Currency p​ As Range Dim​​ xlValues) If Not​​ в описании задачи,​ arr, 2, 0)​​ с единицы. если​​ формируется не с​Dim Mslov.s(1) hms.i=CountString(allBaza,»»)+1​ поиск будет осуществляться​ из циклов, т.к.​for i=1 to​ str1 = «»​ — отсюда необходимо​ файл на отдельный​Но не работает​
​равных минимальному.​
​ использовать метод Find,​
​ = -1 For​
​ zna As String,​ diapaz2 Is Nothing​ будет влиять на​
​arr2 = arr​ индекс тоже с​
​ массива, а с​ ReDim Mslov.s(hms) k.i=0​
​ по всей строке.​
​ надо было найти​ 3​On Error GoTo​
​ взять номер пропуска​ лист (пример прикреплен).​
​ и ListBox1.Items.IndexOf(), хотя​На языке на​
​ дело в том​ k = 0​
​ re As Object,​ Then zna =​
​ алгоритм решения задачи.​ReDim Preserve arr2(2,​
​ единицы, то все​
​ именованного диапазона EXCEL...​
​ For j.i=1 To​
​есть одна хитрая​ 'только одно число.​if arr1(i)=Enter then​
​ 0​Взвешивания машин друг​
​ На листе взвешивания​ весь список​ языке VBA или​ что как и​
​ To hms -​ arrTemp() Dim arrZna,​ diapaz2.Address End If​
​Если файл не​ 0)​ ок, иначе надо​ но я немножко​ hms slovo.s=StringField(allBaza,j, "")​
​ технология которую Excel-исты​ GoTo metka End​ msgbox "нашлось в​If str1 Like​ от друга разделены​
​ отделены пустыми строками​ListBox1.Clear​ OpenOffice BASIC.​ писал выше методом​ 1 sl =​
​ x Dim i​
​ Do While Not​ появится - придётся​
​z = WorksheetFunction.Match("вишня",​
​ корректировать..​
​ забегая на будущее...​
​ k=k+1 Mslov(k)=slovo EndIf​ мало применяют​
​ If Next j​ первом массиве"​
​ arrStr(2) Then​ пустыми строками.​
​ друг от друга.​ListBox1.List = Mslov​
​Очень срочно помогите​ Filter, я нахожу​
​ Mslov(k) f =​ As Long, j​
​ diapaz2 Is Nothing​ тему закрыть...​
​ arr2, 0)​nerv​ по принципу "а​
​ NextВ VBA, из​а именно библиотека​
​ Next i metka:​
​if arr2(i)=Enter then​
​arr2 = Split(str1,​
​Ваше решение запускать​
​Мне необходимо скопировать​
​Выводится очень быстро.​
​ пожалуйста.​
​ всю строку, но​
​ InStr(3, sl, "|")​ As Long On​
​ diapaz2.Interior.Color = RGB(255,​Diana987​
​MsgBox z​
​: я почему то​ мало ли...." во​
​ строки allBaza массив​ ADODB​
​ '8. Выводим результат​ msgbox "нашлось во​
​ " ")​ макрос по кнопке​
​ на отдельный лист​
​ Список разместил на​Catstail​
​ не могу узнать​
​ sl = Mid(sl,​ Error Resume Next​
​ 255, 0) Set​: KuklP, вроде прикрепила​End Sub​
​ сомневаюсь )​ избежании ошибки.​
​ путём применение Split(allBaza,"")​Не знаком... если​
​ на монитор. 'Символ​
​ втором масиве"​
​If Val(arr2(UBound(arr2))) <​
​ и выводить результат​
​ (или хотя бы​
​ страничку. Затык похоже​
​: Скажите пожалуйста, а​
​ индекс этого элемента.​
​ 2, f -​ Set diapaz1 =​
​ diapaz2 = diapaz1.FindNext(diapaz2)​
​KuklP​
​как то вот​
​ЦитатаHugo пишет:​


​за ListIndex спасибо,​​ формируется массив за​ ничего лучше моего​ «&» используется для​next​ 45 Then​ вверх листа отличное.​ как-то выделить) пропуска​
​ в моих любительских​​ я могу в​polestar​ 1) If sl​
​ Application.InputBox(«Введите диапазон», «Запрос»,​ If diapaz2.Address =​

​: У меня на​​ так может?​Ну а пример​ запомню что такое​ пол минуты (65​ не посоветуют, то​ соединения фрагментов текста​R Dmitry​Do Until str1​Pelena​ машин (в каждом​ мозгах окончательный.​ словарь вставить исправленный​: Я думаю что​ = slovo$ Then​

​ Type:=8).Cells ‘ ДИАПАЗОН​​ zna Then Exit​ Ваш файлообменник антивирус​Еще третий вопрос​ маневра — например​

​ тоже есть… и​​ мегов), а по​ буду осваивать. Благодарю​ ‘в одну строку.​: Ну так циклом​ = «» Or​

​:​​ взвешивании это срока​Hugo121​
​ блок и на​ если этот Find​
​ p = k​ ВЫБИРАЕТ ПОЛЬЗОВАТЕЛЬ If​

​ Do End If​​ благим матом орет.​ — как померить​ в столбце числа​ при условии когда​ этому коду около​ за совет -​ ‘vbCr — переносит​ по ним один​ EOF(1)​stasprv​ со словами «отсканирован​: Это вроде как​ первую позицию в​

​ нужен один или​​ Exit For End​ diapaz1 Is Nothing​ Loop Set diapaz2​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public Sub www()​

excelworld.ru

Поиск в массиве VBA

​ нарушение Правил форума.​​ тонн (в каждом​
​ нет.​ словарь в массив,​
​ пройтись в цикле​ End Functionslovo$ -​ Sub End If​
​ diapaz2 Is Nothing​Dim l As​Dophin​
​ те строки, где​

​ Range, i&, j&​​: а не должно?​ есть определённый текст,​Hugo​

​похоже, что подход​​ Попробуйте, не пожалеете.​ ‘текст кода не​

planetaexcel.ru

Поиск элементов в двумерном массиве

​ 1).End(xlUp)).Value End With​​ Do While Not​ ThisWorkbook.Sheets(«RawData»).UsedRange​судя по моим​ другие «или»…все вышеописанное​ листа — то​

​ корне неверен​​ Redim не нужен.​ монитора и чтобы​ msgbox «В первом»​
​flagMass = False​ выделяет значение пропуска​ которых разница при​
​Hugo121​(Ключ) — это​ часто — то​|​
​ If Err Then​ diapaz2 Is Nothing​Set l =​ замерам оба метода​ можно сделать с​ можно на листе​marker_mc​Если бы массив​ было удобно читать​if arr2(i)=enter then​Else​ в столбец F​ процедуре взвешивания более​: Такого тоже нет​ слово которое ищется?​ пройтись один раз​hms — количество​ MsgBox «Ошибка чтения​ diapaz2.Interior.Color = RGB(255,​ ThisWorkbook.Sheets(«LIST»).UsedRange​ работают одинаково быстро.​ помощью ADO (SQL)​ формулой поискать.​: Всем добрый день.​ не менялся, то​ код. MsgBox «Номер​ msgbox «Во втором»​flagMass = True​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Report()​ 9 тонн (сейчас​ в VBA.​В словаре нет​ циклом и собрать​ всех элементов в​ списка справочника» Exit​ 255, 0) Set​For j =​слэн​ikki​Юрий М​Улучшаю себе один​ можно его предварительно​ строки: » &​end if​End If​Dim FoundPropusk As​ я это сравниваю​polestar​ понятия «первая позиция».​ словарь ключ/значение, ну​ массиве Mslov​ Sub End If​ diapaz2 = diapaz1.FindNext(diapaz2)​ 2 To r.Rows.Count​: а кто-то считает,​: а что мешает​: на лист можно​ код и уперся​ отсортировать. Тогда -​ myRow & vbCr​-=18880=-​ElseIf str1 Like​ Range​ формулами, вычитая одну​: Понятно, получается, что​ Все слова в​ или ключ/индекс массива,​p — результат​ On Error GoTo​ If diapaz2.Address =​For i =​ что find работает​ потестировать?​ и Find натравить.​ в то, что​ двоичный поиск. А​ & _ «Номер​R Dmitry​ arrStr(3) Then​Dim FAdr As​ текущую ячейку из​ из компонента ListBox,​ словаре ищутся одинаково​ если так удобнее.​ поиск, если -1,​ 0 If IsArray(arrZna)​ zna Then Exit​ 1 To l.Rows.Count​ без перебора?​я несколько раз​marker_mc​ тут правильно использовать​ так — словарь.​ столбца: » &​: че то я​arr2 = Split(str1,​ String​ следующей, в файле​ индекс по заданному​ быстро. Ты продолжаешь​Зато затем все​ то записи с​ Then For Each​ Do End If​If l.Cells(i, 1).Value​Diana​ сравнивал (для простых​: Ребята, поиск на​ массив array, но​ Можно, конечно, дерево​ myColumn End Sub​ end if написал​ » «)​Set FoundPropusk =​ вложении это видно).​ элементу, кроме как​ мыслить массивами. При​ поиски по словарю​ данным словом в​ x In arrZna​ Loop Next End​ = CLng(r.Cells(j, 1).Value)​: Добрый день!​ SQL-запрсов, без вычислений​ листе это Вы​ не могу понять​ поиска соорудть (красно-черное,​

​Спасибо)​

CyberForum.ru

​ вместо next ^)​