Поиск значения в определенном диапазоне массива

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значения в определенном диапазоне массива (Макросы/Sub)

Space240

Дата: Четверг, 27.07.2017, 12:58 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день.
Приведу пример:
[vba]

Код

Dim Name As String
Dim Zoo(1 To 5, 0 To 2) As String
Zoo(1, 0) = "Лев"
Zoo(2, 0) = "Жираф"
Zoo(3, 0) = "Обезьяна"
Zoo(4, 0) = "Страус"
Zoo(5, 0) = "Слон"

[/vba]Второй уровень используется для записи планируемого количества Zoo(x, 1) и фактического Zoo(x, 2)
Задача:
Видов животных больше, но массив содержит именно этих
Name содержит имя животного, которое берет из ячейки, затем ищет имя животного в первом уровне массива, если оно там есть, то выполняет дальнейшие указания
Как можно это реализовать?

Сообщение отредактировал Space240 - Четверг, 27.07.2017, 13:06

Ответить

Manyasha

Дата: Четверг, 27.07.2017, 13:01 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Space240, оформите код тегами в режиме правки поста (кнопка #)

ЯД: 410013299366744 WM: R193491431804

Ответить

Manyasha

Дата: Четверг, 27.07.2017, 13:17 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Space240, так подойдет?
[vba]

Код

Sub t()
    Dim animal As String, res As String
    Dim Zoo(1 To 5, 0 To 2) As String
    Zoo(1, 0) = "Лев"
    Zoo(2, 0) = "Жираф"
    Zoo(3, 0) = "Обезьяна"
    Zoo(4, 0) = "Страус"
    Zoo(5, 0) = "Слон"

    animal = [a1]
    For i = 1 To UBound(Zoo)
        If (Zoo(i, 0) = animal) Then
            res = Zoo(i, 0)
            MsgBox "Найдено: " & res
            Exit For
        End If
    Next i
    If res = "" Then MsgBox "Не найдено"
End Sub

[/vba]

Цитата Space240, 27.07.2017 в 12:58, в сообщении № 1 ()

Dim Name As String

лучше не использовать зарезервированные слова.