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

Вход

Регистрация

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

 

= Мир MS Excel/Зависимый выпадающий список с фиксированными значениями - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зависимый выпадающий список с фиксированными значениями (Формулы/Formulas)
Зависимый выпадающий список с фиксированными значениями
DrMini Дата: Вторник, 21.03.2023, 21:14 | Сообщение № 21
Группа: Проверенные
Ранг: Старожил
Сообщений: 1072
Репутация: 102 ±
Замечаний: 0% ±

Excel LTSC 2021 RUS
вариант без макроса

Видимо без макроса не получится.
Когда выбираю МАЗ в A1 - то после выбора данных в A3 формула в этой ячейке стирается и остаётся та фамилия которая была. Потом выбирать можно но... автоматически фамилия больше не прописывается.
 
Ответить
Сообщение
вариант без макроса

Видимо без макроса не получится.
Когда выбираю МАЗ в A1 - то после выбора данных в A3 формула в этой ячейке стирается и остаётся та фамилия которая была. Потом выбирать можно но... автоматически фамилия больше не прописывается.

Автор - DrMini
Дата добавления - 21.03.2023 в 21:14
_Boroda_ Дата: Среда, 22.03.2023, 09:43 | Сообщение № 22
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16620
Репутация: 6465 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Да, это разовая акция. Тогда в Worksheet_Change
добавьте что-то типа этого
[vba]
Код
If Target.Address(0, 0) = "A1" Then
        With Range("A3")
            .Validation.ShowError = False
            .FormulaR1C1 = "=IF(R1C1=DATA!R2C1,DATA!R2C2,IF(R1C1=DATA!R3C1,DATA!R3C2,""""))"
            .Validation.ShowError = True
            .Parent.CircleInvalid
            .Select
        End With
    End If
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДа, это разовая акция. Тогда в Worksheet_Change
добавьте что-то типа этого
[vba]
Код
If Target.Address(0, 0) = "A1" Then
        With Range("A3")
            .Validation.ShowError = False
            .FormulaR1C1 = "=IF(R1C1=DATA!R2C1,DATA!R2C2,IF(R1C1=DATA!R3C1,DATA!R3C2,""""))"
            .Validation.ShowError = True
            .Parent.CircleInvalid
            .Select
        End With
    End If
[/vba]

Автор - _Boroda_
Дата добавления - 22.03.2023 в 09:43
DrMini Дата: Среда, 22.03.2023, 10:45 | Сообщение № 23
Группа: Проверенные
Ранг: Старожил
Сообщений: 1072
Репутация: 102 ±
Замечаний: 0% ±

Excel LTSC 2021 RUS
остальные файлы у меня не скачиваются

У меня на тестовом листе вот такой код VBA:


Сообщение отредактировал DrMini - Среда, 22.03.2023, 10:48
 
Ответить
Сообщение
остальные файлы у меня не скачиваются

У меня на тестовом листе вот такой код VBA:

Автор - DrMini
Дата добавления - 22.03.2023 в 10:45
DrMini Дата: Среда, 22.03.2023, 10:46 | Сообщение № 24
Группа: Проверенные
Ранг: Старожил
Сообщений: 1072
Репутация: 102 ±
Замечаний: 0% ±

Excel LTSC 2021 RUS
и есть ещё модуль:


Сообщение отредактировал DrMini - Среда, 22.03.2023, 10:48
 
Ответить
Сообщениеи есть ещё модуль:

Автор - DrMini
Дата добавления - 22.03.2023 в 10:46
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зависимый выпадающий список с фиксированными значениями (Формулы/Formulas)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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