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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос для поиска вводимого значения (Макросы/Sub)
макрос для поиска вводимого значения
ViktorNsk Дата: Четверг, 20.08.2020, 20:17 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем привет! Пытаюсь создать макрос для поиска необходимых данных. Задача: создать макрос в книге ""учет СЦ" для поиска следующих данных: вводим в строку поиска данные из столбца 1 и в "результат поиска" выводится данные из столбца 2. причем, если в столбце 1 данные повторяются, то из столбца 2 берется последнее введенное значение. Например: в сторку поиска вводим "150820-003", программа в "результате" должна выдать "R002". Как пример откуда я брал идею макроса - файл "27____". Помогите, пожалуйста))) буду безмерно благодарен полученному опыту)
К сообщению приложен файл: 4377600.xls (167.5 Kb) · 27_.xlsm (191.3 Kb)
 
Ответить
СообщениеВсем привет! Пытаюсь создать макрос для поиска необходимых данных. Задача: создать макрос в книге ""учет СЦ" для поиска следующих данных: вводим в строку поиска данные из столбца 1 и в "результат поиска" выводится данные из столбца 2. причем, если в столбце 1 данные повторяются, то из столбца 2 берется последнее введенное значение. Например: в сторку поиска вводим "150820-003", программа в "результате" должна выдать "R002". Как пример откуда я брал идею макроса - файл "27____". Помогите, пожалуйста))) буду безмерно благодарен полученному опыту)

Автор - ViktorNsk
Дата добавления - 20.08.2020 в 20:17
Nic70y Дата: Пятница, 21.08.2020, 16:44 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8712
Репутация: 2262 ±
Замечаний: 0% ±

Excel 2010
такой вариант
юзерформа
[vba]
Код
Private Sub TextBox1_Change()
    u_1 = TextBox1.Value
    u_2 = Application.Match(u_1, Range("a:a"), 0)
    u_3 = Application.IsNumber(u_2)
    If u_3 Then
        u_4 = Application.CountIf(Range("a:a"), u_1)
        If u_4 > 1 Then
            For u_5 = 1 To u_4 - 1
                u_6 = Cells(Rows.Count, "a").End(xlUp).Row
                u_7 = Application.Match(u_1, Range("a" & u_2 + 1 & ":a" & u_6), 0)
                u_2 = u_7 + u_2
            Next u_5
        End If
        TextBox2 = Range("b" & u_2)
    Else
        TextBox2 = ""
    End If
End Sub
[/vba]
К сообщению приложен файл: 18.xls (61.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениетакой вариант
юзерформа
[vba]
Код
Private Sub TextBox1_Change()
    u_1 = TextBox1.Value
    u_2 = Application.Match(u_1, Range("a:a"), 0)
    u_3 = Application.IsNumber(u_2)
    If u_3 Then
        u_4 = Application.CountIf(Range("a:a"), u_1)
        If u_4 > 1 Then
            For u_5 = 1 To u_4 - 1
                u_6 = Cells(Rows.Count, "a").End(xlUp).Row
                u_7 = Application.Match(u_1, Range("a" & u_2 + 1 & ":a" & u_6), 0)
                u_2 = u_7 + u_2
            Next u_5
        End If
        TextBox2 = Range("b" & u_2)
    Else
        TextBox2 = ""
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 21.08.2020 в 16:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос для поиска вводимого значения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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