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

Вход

Регистрация

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

 

= Мир MS Excel/Два диапазона в выпадающем списке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Два диапазона в выпадающем списке (Макросы/Sub)
Два диапазона в выпадающем списке
Anis625 Дата: Понедельник, 29.01.2018, 15:51 | Сообщение № 1
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Добрый день, уважаемые коллеги.

Пока не силен в макросах. Учусь на примерах.
Есть макрос: если в ячейке А1 значение 1 то выпадает список 1, в противном случае список 2

Как нужно подправить макрос на проверку ячейки А1 на содержание в ней слова EBIT (в ячейке может содержаться любой текст и в случае если есть EBIT выводить первый список)?
К сообщению приложен файл: ____.xlsm (16.2 Kb)


Сообщение отредактировал Anis625 - Понедельник, 29.01.2018, 16:33
 
Ответить
СообщениеДобрый день, уважаемые коллеги.

Пока не силен в макросах. Учусь на примерах.
Есть макрос: если в ячейке А1 значение 1 то выпадает список 1, в противном случае список 2

Как нужно подправить макрос на проверку ячейки А1 на содержание в ней слова EBIT (в ячейке может содержаться любой текст и в случае если есть EBIT выводить первый список)?
Автор - Anis625
Дата добавления - 29.01.2018 в 15:51
Mikael Дата: Понедельник, 29.01.2018, 16:39 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
Anis625, добрый день.
Замените условие на
[vba]
Код
'If Target = 1 Then
If InStr(1, Target, "EBIT") > 0 Then
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Диапазон1"
[/vba]


Сообщение отредактировал Mikael - Понедельник, 29.01.2018, 16:40
 
Ответить
СообщениеAnis625, добрый день.
Замените условие на
[vba]
Код
'If Target = 1 Then
If InStr(1, Target, "EBIT") > 0 Then
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Диапазон1"
[/vba]
Автор - Mikael
Дата добавления - 29.01.2018 в 16:39
Anis625 Дата: Понедельник, 29.01.2018, 17:38 | Сообщение № 3
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
То что нужно, получилось. Благодарю Вас. Вы сами учились писать макросы?
 
Ответить
СообщениеТо что нужно, получилось. Благодарю Вас. Вы сами учились писать макросы?
Автор - Anis625
Дата добавления - 29.01.2018 в 17:38
Mikael Дата: Понедельник, 29.01.2018, 17:41 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
[offtop]Anis625, я да, самоучка. Начинал с макрорекордера + разбор записанного кода, потом + гугл, и очень очень много практики.
И честно скажу, мне еще много чему учиться :)[/offtop]


Сообщение отредактировал Mikael - Понедельник, 29.01.2018, 17:45
 
Ответить
Сообщение[offtop]Anis625, я да, самоучка. Начинал с макрорекордера + разбор записанного кода, потом + гугл, и очень очень много практики.
И честно скажу, мне еще много чему учиться :)[/offtop]
Автор - Mikael
Дата добавления - 29.01.2018 в 17:41
RAN Дата: Понедельник, 29.01.2018, 21:15 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Anis625, сегодня в 09:35 некий puh840 получил ответ на Планете.
Не утруждая себя, он отписал, что у него не получается, а через 2-3 часа создал тему здесь, и получил абсолютно такой-же ответ.
Вопрос в СТУДИЮ:
Какой смысл отвечать Anis625, и puh840???

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеAnis625, сегодня в 09:35 некий puh840 получил ответ на Планете.
Не утруждая себя, он отписал, что у него не получается, а через 2-3 часа создал тему здесь, и получил абсолютно такой-же ответ.
Вопрос в СТУДИЮ:
Какой смысл отвечать Anis625, и puh840???
Автор - RAN
Дата добавления - 29.01.2018 в 21:15
Anis625 Дата: Вторник, 30.01.2018, 16:43 | Сообщение № 6
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Цитата RAN, 29.01.2018 в 21:15, в сообщении № 5 ()
Какой смысл отвечать Anis625, и puh840???


RAN, разве я сделал что-нибудь противозаконнное? Вы когда ходите в магазин за продуктами вы ходите только в один магазин? Если у меня не получилось решить задачу в одном форуме я обратился в другой и у меня получилось решить свою задачу - разве это плохо? Все свои вопросы и ответы на решенные задачи я накапливаю, пытаюсь научиться по ним (пока к сожалению не могу уделить больше времени на обучение).

Что я не так сделал?
 
Ответить
Сообщение
Цитата RAN, 29.01.2018 в 21:15, в сообщении № 5 ()
Какой смысл отвечать Anis625, и puh840???


RAN, разве я сделал что-нибудь противозаконнное? Вы когда ходите в магазин за продуктами вы ходите только в один магазин? Если у меня не получилось решить задачу в одном форуме я обратился в другой и у меня получилось решить свою задачу - разве это плохо? Все свои вопросы и ответы на решенные задачи я накапливаю, пытаюсь научиться по ним (пока к сожалению не могу уделить больше времени на обучение).

Что я не так сделал?
Автор - Anis625
Дата добавления - 30.01.2018 в 16:43
sboy Дата: Вторник, 30.01.2018, 16:57 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата Anis625, 30.01.2018 в 16:43, в сообщении № 6 ()
Что я не так сделал?

Не прочитали Правила ни там, ни тут)

Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата Anis625, 30.01.2018 в 16:43, в сообщении № 6 ()
Что я не так сделал?

Не прочитали Правила ни там, ни тут)
Автор - sboy
Дата добавления - 30.01.2018 в 16:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Два диапазона в выпадающем списке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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