Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск значения в определенном диапазоне массива - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
СообщениеДобрый день.
Приведу пример:
[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 в 12:58
Manyasha Дата: Четверг, 27.07.2017, 13:01 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1922
Репутация: 786 ±
Замечаний: 0% ±

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


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеSpace240, оформите код тегами в режиме правки поста (кнопка #)

Автор - Manyasha
Дата добавления - 27.07.2017 в 13:01
Manyasha Дата: Четверг, 27.07.2017, 13:17 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 1922
Репутация: 786 ±
Замечаний: 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]

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


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщение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]

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

Автор - Manyasha
Дата добавления - 27.07.2017 в 13:17
Space240 Дата: Четверг, 27.07.2017, 13:38 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Space240, так подойдет?
Да, большое спасибо.

лучше не использовать зарезервированные слова.
Задумался немного, не усмотрел :(
 
Ответить
Сообщение
Space240, так подойдет?
Да, большое спасибо.

лучше не использовать зарезервированные слова.
Задумался немного, не усмотрел :(

Автор - Space240
Дата добавления - 27.07.2017 в 13:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значения в определенном диапазоне массива (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!