hclubmk,
из какого же контекста я вырвал? Вот весь текст того сообщения:
hclubmkЗагадка кроется в том, что
по твоим утверждениям, вызов методов объектной модели ExcelApplication происходит быстрее, чем работа напрямую с массивом .
И чего я здесь вырвал не так? Или я этой цитатой кого-то в чем-то обвинял? Нет. Я вырвал ровно ту фразу, которую хотел процитировать, без обращения к кому-то конкретно.
Что до этой фразы и контекста. Само твое толкование мыслей Shocker.Pro не очень верное(могу ошибаться). Вызов модели Excel из VBA никак не может быть быстрее обращения к массиву, это не секрет. Суть-то в ином: обращение идет ОДИН РАЗ для вызова метода, т.к. найти надо только одно значение. Перебор же массива смешанных данных может значительно проиграть в скорости, даже с форой в виде времени, затраченного на вызов из объектной модели Excel. И Shocker.Pro говорил про то, что перебор миллиона строк будет медленнее, чем Find, если заполненных строк всего 200. Перебираешь-то ты весь массив, даже если большая часть там пуста.
Плюс неверно приведен текст fooFind, т.к. туда зачем-то цикл воткнут Do While, что не отвечает изначальным условиям поиска только первого найденного. Процедура должна выглядеть так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub FooFind(r As Range)
Dim t As Single
Dim c As Range
Dim firstAddress As String
t = Timer
Set c = r.Find("123")
If Not c Is Nothing Then firstAddress = c.Value
Debug.Print (Timer - t) * 1000 & "msec in fooFind"
End Sub
А общий текст процедур с поиском по тексту такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
Option Explicit
Sub CompareMethods()
Dim arr(1 To 1000000, 1 To 2) As Variant
Dim i As Long, j As Long
Dim r As Range
' заполнить массив
Randomize
For i = LBound(arr) To 300
For j = LBound(arr, 2) To UBound(arr, 2)
'If (i + j) Mod 10 = 0 Then ' 1й вариант заполнения
'If (i + j) Mod 2 = 0 Then ' 2й вариант заполнения
' 3й вариант - это отсутствие условия заполнения (заполняем всё)
arr(i, j) = "absolutly random text" & Rnd()
'End If
Next
Next
' массив отобразить на лист
Set r = Range("A1").Resize(UBound(arr), UBound(arr, 2))
r = arr
' поиск методом find
FooFind r
' поиск ч/з массив и like
LikeInArray r
End Sub
' процедура, использующая find
' болван здесь: https://msdn.microsoft.com/en-us/library/office/ff196143.aspx
Sub FooFind(r As Range)
Dim t As Single
Dim c As Range
Dim firstAddress As String
t = Timer
Set c = r.Find("123")
If Not c Is Nothing Then firstAddress = c.Value
Debug.Print (Timer - t) * 1000 & "msec in fooFind"
End Sub
Sub LikeInArray(r As Range)
Dim t As Single
Dim i As Long, j As Long
Dim arr() As Variant
' начало замера до загрузки массива - всё по честному
t = Timer
arr = r
For i = LBound(arr) To UBound(arr)
For j = LBound(arr, 2) To UBound(arr, 2)
If Not IsEmpty(arr(i, j)) Then
If arr(i, j) Like "*123*" Then
' ничего не делаем, но условие поиска должно быть выполнено
End If
End If
Next
Next
Debug.Print (Timer - t) * 1000 & "msec in likeInArray"
End Sub
В таком виде можете убедиться сами в том, что для поиска первого(одного) совпадения Find вполне себе выигрывает.
Подчеркну:
для поиска первого совпадения . Для поиска всех в любом случае будет лучше подходить перебор массива(но на больших массивах у ПК может просто не хватить памяти для обработки сразу всего массива).
