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

Вход

Регистрация

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

 

= Мир MS Excel/Выпадающая форма в ячейках по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающая форма в ячейках по условию (Макросы/Sub)
Выпадающая форма в ячейках по условию
Anis625 Дата: Четверг, 26.07.2018, 22:31 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый вечер, уважаемые коллеги!

Столкнулся с одним вопросом решение которого требует более профессиональных знаний VBA:

У меня есть готовое решение которое позволяет вызывать форму поиска только в одной ячейке (в форме залито зеленым цветом).
Новая задачка предполагает необходимость вызова поисковой формы во всех строках где есть слово ФИО в столбце D.
Строки будут добавляться как минимум до конца года.

Как правильно допилить макрос?
К сообщению приложен файл: Salon.xlsm(29.8 Kb)
 
Ответить
СообщениеДобрый вечер, уважаемые коллеги!

Столкнулся с одним вопросом решение которого требует более профессиональных знаний VBA:

У меня есть готовое решение которое позволяет вызывать форму поиска только в одной ячейке (в форме залито зеленым цветом).
Новая задачка предполагает необходимость вызова поисковой формы во всех строках где есть слово ФИО в столбце D.
Строки будут добавляться как минимум до конца года.

Как правильно допилить макрос?

Автор - Anis625
Дата добавления - 26.07.2018 в 22:31
Pelena Дата: Четверг, 26.07.2018, 22:43 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13119
Репутация: 2890 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так подойдёт?
К сообщению приложен файл: 3831910.xlsm(29.1 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак подойдёт?

Автор - Pelena
Дата добавления - 26.07.2018 в 22:43
_Boroda_ Дата: Четверг, 26.07.2018, 22:58 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13196
Репутация: 5426 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Чуть дописал еще Листбокс
[vba]
Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex = -1 Then Exit Sub
    With ActiveCell
        .Value = ListBox1.Value
        .WrapText = True
    End With
    Unload Me
End Sub
[/vba]
К сообщению приложен файл: 3831910_1.xlsm(30.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧуть дописал еще Листбокс
[vba]
Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.ListIndex = -1 Then Exit Sub
    With ActiveCell
        .Value = ListBox1.Value
        .WrapText = True
    End With
    Unload Me
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 26.07.2018 в 22:58
Anis625 Дата: Четверг, 26.07.2018, 23:29 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 147
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Pelena, _Boroda_,
как раз то, что доктор прописал =) Благодарю Вас за содействие =)
 
Ответить
СообщениеPelena, _Boroda_,
как раз то, что доктор прописал =) Благодарю Вас за содействие =)

Автор - Anis625
Дата добавления - 26.07.2018 в 23:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающая форма в ячейках по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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