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

[edikamn]

Здравствуйте.
Вроде элементарный вопрос, но я его решить не могу. Поиск не дал мне результата.

Есть массив
nn(111,222,333,444)
есть искомое значение
ss=333
Что написать чтобы проводилась проверка значения ss в массиве nn, и ели находил значение, то выполнял определенные действия, а если не находил, выполнял другое действие.

[Hugo121]

Мы же в теме Экселя?

Sub tt()
nn = Array(111, 222, 333, 444)
ss = 333
x = WorksheetFunction.Match(ss, nn, 0)
MsgBox x
End Sub

[Skif-F]

Hugo121, ты не поверишь, но так быстрее:

Sub tt()
  nn = Array(111, 222, 333, 444)
  ss = 333
  For i = 1 To 4
     If d(i) = ss Then x = i: Exit For
  Next i
  MsgBox x
End Sub

Сравни:

Option Explicit             'Âñå ïåðåìåííûå äîëæíû áûòü îáúÿâëåíû
Sub aa()
    Dim a As Double, c As Double  'Ïåðåìåííûå äëÿ ðàáîòû ñ âðåìåíåì
    Dim d(64500) As String, i As Long, x, ss As String
    For i = 1 To 64000
        d(i) = Str(i)
    Next i
    ss = Str(63999)
    a = Timer   'Çàïîìèíàåì êâàíò âðåìåíè
    
    x = WorksheetFunction.Match(ss, d, 0)

    c = Timer - a
    MsgBox ("Âûïîëíåíî " & "çà " & Str(c) & "ñåêóíä")
End Sub

Sub aad()
    Dim a As Double, c As Double  'Ïåðåìåííûå äëÿ ðàáîòû ñ âðåìåíåì
    Dim d(64500) As String, i As Long, x, ss As String
    For i = 1 To 64000
        d(i) = Str(i)
    Next i
    ss = Str(63999)
    a = Timer   'Çàïîìèíàåì êâàíò âðåìåíè
    
    For i = 1 To 64000
        If d(i) = ss Then x = i: Exit For
    Next i

    c = Timer - a
    MsgBox ("Âûïîëíåíî " & "çà " & Str(c) & "ñåêóíä")
End Sub

А массивы больше 65535 ячеек WorksheetFunction.Match вообще не принимает

[Hugo121]

Поверю и не удивлюсь.
К тому же у меня на XL2000 первый код вообще спотыкается на
x = WorksheetFunction.Match(ss, d, 0)

---------------------------
Microsoft Visual Basic
---------------------------
Run-time error '13':

Type mismatch
---------------------------
OK Help
---------------------------

4000 ещё тянет, 40000 уже нет...

[vikttur]

Получается, свой родной перебор быстрее WorksheetFunction.
Хотя, наверное, не всегда - зависит от задачи.

[edikamn]

Всем большое человеческое спасибо!!!!!!!!!!!!!!!!!!!

[Skif-F]

Сообщение от vikttur

Получается, свой родной перебор быстрее WorksheetFunction.
Хотя, наверное, не всегда - зависит от задачи.

WorksheetFunction - универсальны, плата за универсальность - снижение скорости. Я пробовал WorksheetFunction.Match на Integer и String, вариант с циклом выиграл в обоих случаях.

[Hugo121]

Вообще-то конечно надо сказать спасибо Skif-F за замечание. Я редко использовал поиск с помощью Match, даже сейчас и не вспомню, но на будущее надо запомнить. А то вдруг глюканёт, и не найдёшь сразу, в чём дело. Тем более, что версия офиса тоже имеет значание - скорее всего на 2003/2007 и 40000 обработает, а у кого-то вдруг на 2000-ом не пойдёт...