Зависимый выпадающий список с фиксированными значениями
DrMini
Дата: Вторник, 14.03.2023, 15:31 |
Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Здравствуйте форумчане и гости форума. Не могу придумать, как сделать (а может это формулами и невозможно) так, что бы при выборе на листе Выбор в ячейке A1 - в ячейке A3 появлялась фамилия принудительно заменяя предыдущую фамилию если она там была на ту, что соответствует условию:ГАЗ => Иванов ВАЗ => Сидоров МАЗ => пустая ячейка с возможностью выбора Иванов или Петров . [offtop]Описание получилось сумбурное и наверное непонятное[/offtop]
Здравствуйте форумчане и гости форума. Не могу придумать, как сделать (а может это формулами и невозможно) так, что бы при выборе на листе Выбор в ячейке A1 - в ячейке A3 появлялась фамилия принудительно заменяя предыдущую фамилию если она там была на ту, что соответствует условию:ГАЗ => Иванов ВАЗ => Сидоров МАЗ => пустая ячейка с возможностью выбора Иванов или Петров . [offtop]Описание получилось сумбурное и наверное непонятное[/offtop]DrMini
Сообщение отредактировал DrMini - Вторник, 14.03.2023, 15:34
Ответить
Сообщение Здравствуйте форумчане и гости форума. Не могу придумать, как сделать (а может это формулами и невозможно) так, что бы при выборе на листе Выбор в ячейке A1 - в ячейке A3 появлялась фамилия принудительно заменяя предыдущую фамилию если она там была на ту, что соответствует условию:ГАЗ => Иванов ВАЗ => Сидоров МАЗ => пустая ячейка с возможностью выбора Иванов или Петров . [offtop]Описание получилось сумбурное и наверное непонятное[/offtop]Автор - DrMini Дата добавления - 14.03.2023 в 15:31
NikitaDvorets
Дата: Вторник, 14.03.2023, 16:34 |
Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
DrMini , Добрый день!Цитата
а может это формулами и невозможно
Похоже, так и есть. Приходится применять макрос по событию Worksheet_Change и модуль создания выпадающего списка.
DrMini , Добрый день!Цитата
а может это формулами и невозможно
Похоже, так и есть. Приходится применять макрос по событию Worksheet_Change и модуль создания выпадающего списка.NikitaDvorets
Сообщение отредактировал NikitaDvorets - Вторник, 14.03.2023, 16:36
Ответить
Сообщение DrMini , Добрый день!Цитата
а может это формулами и невозможно
Похоже, так и есть. Приходится применять макрос по событию Worksheet_Change и модуль создания выпадающего списка.Автор - NikitaDvorets Дата добавления - 14.03.2023 в 16:34
Serge_007
Дата: Вторник, 14.03.2023, 16:45 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
в ячейке A3 появлялась фамилия принудительно заменяя предыдущую фамилию
Михаил, формулы не могут заменять данные в ячейках, формулы только возвращают значения
в ячейке A3 появлялась фамилия принудительно заменяя предыдущую фамилию
Михаил, формулы не могут заменять данные в ячейках, формулы только возвращают значенияSerge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение в ячейке A3 появлялась фамилия принудительно заменяя предыдущую фамилию
Михаил, формулы не могут заменять данные в ячейках, формулы только возвращают значенияАвтор - Serge_007 Дата добавления - 14.03.2023 в 16:45
DrMini
Дата: Вторник, 14.03.2023, 16:46 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
NikitaDvorets , спасибо за участие. А можно убрать выпадающий список когда выбраны ГАЗ и ВА З?
NikitaDvorets , спасибо за участие. А можно убрать выпадающий список когда выбраны ГАЗ и ВА З?DrMini
Ответить
Сообщение NikitaDvorets , спасибо за участие. А можно убрать выпадающий список когда выбраны ГАЗ и ВА З?Автор - DrMini Дата добавления - 14.03.2023 в 16:46
DrMini
Дата: Вторник, 14.03.2023, 16:49 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
формулы не могут заменять данные в ячейках
Когда мало знаний всегда ожидаешь больше чудес, чем есть на самом деле.
формулы не могут заменять данные в ячейках
Когда мало знаний всегда ожидаешь больше чудес, чем есть на самом деле.DrMini
Ответить
Сообщение формулы не могут заменять данные в ячейках
Когда мало знаний всегда ожидаешь больше чудес, чем есть на самом деле.Автор - DrMini Дата добавления - 14.03.2023 в 16:49
NikitaDvorets
Дата: Вторник, 14.03.2023, 17:46 |
Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
Цитата
А можно убрать выпадающий список когда выбраны ГАЗ и ВАЗ?
Можно, прилагаю.Цитата
Когда мало знаний всегда ожидаешь больше чудес, чем есть на самом деле.
Когда мало знаний, не ждешь чудес, но они сами приходят :-)
Цитата
А можно убрать выпадающий список когда выбраны ГАЗ и ВАЗ?
Можно, прилагаю.Цитата
Когда мало знаний всегда ожидаешь больше чудес, чем есть на самом деле.
Когда мало знаний, не ждешь чудес, но они сами приходят :-)NikitaDvorets
Ответить
Сообщение Цитата
А можно убрать выпадающий список когда выбраны ГАЗ и ВАЗ?
Можно, прилагаю.Цитата
Когда мало знаний всегда ожидаешь больше чудес, чем есть на самом деле.
Когда мало знаний, не ждешь чудес, но они сами приходят :-)Автор - NikitaDvorets Дата добавления - 14.03.2023 в 17:46
DrMini
Дата: Вторник, 14.03.2023, 18:27 |
Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Ответить
Сообщение Так и есть. Спасибо.Автор - DrMini Дата добавления - 14.03.2023 в 18:27
DrMini
Дата: Среда, 15.03.2023, 10:32 |
Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
NikitaDvorets , И снова здравствуйте. Помогите "подружить" Ваш VBA код с тем, что находится у меня в рабочем файле.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C5,AD5")) Is Nothing Then If Target.NumberFormat = "m/d/yyyy" Then Target.NumberFormat = "General" End If x_ = Target If Len(x_) = 5 Or Len(x_) = 6 Then If IsDate(Format(x_, "00\/00\/00")) Then If Mid(Format(x_, "00\/00\/00"), 4, 2) > 12 Then GoTo error_ x_ = CDate(Format(x_, "00\/00\/00")) Else: GoTo error_ End If ElseIf Len(x_) = 7 Or Len(x_) = 8 Then If IsDate(Format(x_, "00\/00\/0000")) Then If Mid(Format(x_, "00\/00\/0000"), 4, 2) > 12 Then GoTo error_ x_ = CDate(Format(x_, "00\/00\/0000")) Else: GoTo error_ End If Else: GoTo error_ End If Application.EnableEvents = False Target = x_ Application.EnableEvents = True End If Exit Sub error_: Application.EnableEvents = False Target = Empty Application.EnableEvents = True End Sub
[/vba]
Если нужно то могу приложить файл.
NikitaDvorets , И снова здравствуйте. Помогите "подружить" Ваш VBA код с тем, что находится у меня в рабочем файле.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C5,AD5")) Is Nothing Then If Target.NumberFormat = "m/d/yyyy" Then Target.NumberFormat = "General" End If x_ = Target If Len(x_) = 5 Or Len(x_) = 6 Then If IsDate(Format(x_, "00\/00\/00")) Then If Mid(Format(x_, "00\/00\/00"), 4, 2) > 12 Then GoTo error_ x_ = CDate(Format(x_, "00\/00\/00")) Else: GoTo error_ End If ElseIf Len(x_) = 7 Or Len(x_) = 8 Then If IsDate(Format(x_, "00\/00\/0000")) Then If Mid(Format(x_, "00\/00\/0000"), 4, 2) > 12 Then GoTo error_ x_ = CDate(Format(x_, "00\/00\/0000")) Else: GoTo error_ End If Else: GoTo error_ End If Application.EnableEvents = False Target = x_ Application.EnableEvents = True End If Exit Sub error_: Application.EnableEvents = False Target = Empty Application.EnableEvents = True End Sub
[/vba]
Если нужно то могу приложить файл.DrMini
Ответить
Сообщение NikitaDvorets , И снова здравствуйте. Помогите "подружить" Ваш VBA код с тем, что находится у меня в рабочем файле.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C5,AD5")) Is Nothing Then If Target.NumberFormat = "m/d/yyyy" Then Target.NumberFormat = "General" End If x_ = Target If Len(x_) = 5 Or Len(x_) = 6 Then If IsDate(Format(x_, "00\/00\/00")) Then If Mid(Format(x_, "00\/00\/00"), 4, 2) > 12 Then GoTo error_ x_ = CDate(Format(x_, "00\/00\/00")) Else: GoTo error_ End If ElseIf Len(x_) = 7 Or Len(x_) = 8 Then If IsDate(Format(x_, "00\/00\/0000")) Then If Mid(Format(x_, "00\/00\/0000"), 4, 2) > 12 Then GoTo error_ x_ = CDate(Format(x_, "00\/00\/0000")) Else: GoTo error_ End If Else: GoTo error_ End If Application.EnableEvents = False Target = x_ Application.EnableEvents = True End If Exit Sub error_: Application.EnableEvents = False Target = Empty Application.EnableEvents = True End Sub
[/vba]
Если нужно то могу приложить файл.Автор - DrMini Дата добавления - 15.03.2023 в 10:32
NikitaDvorets
Дата: Среда, 15.03.2023, 10:37 |
Сообщение № 9
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
DrMini , приветствую. Даже не буду открывать спойлер. Прикладывайте файл.
DrMini , приветствую. Даже не буду открывать спойлер. Прикладывайте файл.NikitaDvorets
Ответить
Сообщение DrMini , приветствую. Даже не буду открывать спойлер. Прикладывайте файл.Автор - NikitaDvorets Дата добавления - 15.03.2023 в 10:37
DrMini
Дата: Среда, 15.03.2023, 11:08 |
Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Ответить
Сообщение Готово.Автор - DrMini Дата добавления - 15.03.2023 в 11:08
NikitaDvorets
Дата: Среда, 15.03.2023, 11:11 |
Сообщение № 11
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
Хорошо. Дам знать по результатам.
Ответить
Сообщение Хорошо. Дам знать по результатам. Автор - NikitaDvorets Дата добавления - 15.03.2023 в 11:11
NikitaDvorets
Дата: Среда, 15.03.2023, 11:34 |
Сообщение № 12
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
DrMini , приветствую! Интегрировал Worksheet_Change и добавил Get_Drop_Down(). Похоже, "дружба" состоялась :-)
DrMini , приветствую! Интегрировал Worksheet_Change и добавил Get_Drop_Down(). Похоже, "дружба" состоялась :-)NikitaDvorets
Ответить
Сообщение DrMini , приветствую! Интегрировал Worksheet_Change и добавил Get_Drop_Down(). Похоже, "дружба" состоялась :-)Автор - NikitaDvorets Дата добавления - 15.03.2023 в 11:34
DrMini
Дата: Среда, 15.03.2023, 13:55 |
Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Похоже, "дружба" состоялась
Так и есть. Подправил для оригинального файла. Всё работает. Спасибо NikitaDvorets , большое.
Похоже, "дружба" состоялась
Так и есть. Подправил для оригинального файла. Всё работает. Спасибо NikitaDvorets , большое.DrMini
Ответить
Сообщение Похоже, "дружба" состоялась
Так и есть. Подправил для оригинального файла. Всё работает. Спасибо NikitaDvorets , большое.Автор - DrMini Дата добавления - 15.03.2023 в 13:55 Ответить
Сообщение Здравствуйте форумчане и гости форума. В продолжении темы. При защите листа (а это обязательно нужно) появляется ошибка: от отчаянья установил все "галки" в чекбоксах. не помогло. На ячейках A1 и A3 защита не стоит. Помогите пожалуйста это побороть.Автор - DrMini Дата добавления - 21.03.2023 в 11:43
NikitaDvorets
Дата: Вторник, 21.03.2023, 12:10 |
Сообщение № 15
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
DrMini , добрый день. Вариант. Попробуйте в модуль Get_Drop_Down() перед созданием выпадающего списка снять защиту ячеек:
DrMini , добрый день. Вариант. Попробуйте в модуль Get_Drop_Down() перед созданием выпадающего списка снять защиту ячеек:NikitaDvorets
Сообщение отредактировал NikitaDvorets - Вторник, 21.03.2023, 12:11
Ответить
Сообщение DrMini , добрый день. Вариант. Попробуйте в модуль Get_Drop_Down() перед созданием выпадающего списка снять защиту ячеек:Автор - NikitaDvorets Дата добавления - 21.03.2023 в 12:10
DrMini
Дата: Вторник, 21.03.2023, 12:38 |
Сообщение № 16
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Нет. выдаёт ошибку. Сделал вот так:
[vba]
Код
Range("A3").Value = "" ' значение ячейки А3 по умолчанию Range("A1").Locked = False Range("A3").Locked = False With Range("A3").Validation ' создание выпадающего списка
[/vba]
Нет. выдаёт ошибку. Сделал вот так:
[vba]
Код
Range("A3").Value = "" ' значение ячейки А3 по умолчанию Range("A1").Locked = False Range("A3").Locked = False With Range("A3").Validation ' создание выпадающего списка
[/vba]
DrMini
Ответить
Сообщение Нет. выдаёт ошибку. Сделал вот так:
[vba]
Код
Range("A3").Value = "" ' значение ячейки А3 по умолчанию Range("A1").Locked = False Range("A3").Locked = False With Range("A3").Validation ' создание выпадающего списка
[/vba]
Автор - DrMini Дата добавления - 21.03.2023 в 12:38
NikitaDvorets
Дата: Вторник, 21.03.2023, 13:20 |
Сообщение № 17
Группа: Авторы
Ранг: Ветеран
Сообщений: 611
Репутация:
142
±
Замечаний:
0% ±
Excel 2019
Цитата
Нет. выдаёт ошибку.
Жаль. Возможно, нужно защищать не весь лист, а только выделенный диапазон через комбинацию Range.Protect при открытии рабочей книги.
Цитата
Нет. выдаёт ошибку.
Жаль. Возможно, нужно защищать не весь лист, а только выделенный диапазон через комбинацию Range.Protect при открытии рабочей книги.NikitaDvorets
Ответить
Сообщение Цитата
Нет. выдаёт ошибку.
Жаль. Возможно, нужно защищать не весь лист, а только выделенный диапазон через комбинацию Range.Protect при открытии рабочей книги.Автор - NikitaDvorets Дата добавления - 21.03.2023 в 13:20
DrMini
Дата: Вторник, 21.03.2023, 13:25 |
Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Согласен. Ладно сделаю по старинке выпадающим списком.
Согласен. Ладно сделаю по старинке выпадающим списком.DrMini
Ответить
Сообщение Согласен. Ладно сделаю по старинке выпадающим списком.Автор - DrMini Дата добавления - 21.03.2023 в 13:25
_Boroda_
Дата: Вторник, 21.03.2023, 16:54 |
Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация:
6505
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
По самому первому вопросу вариант без макроса (остальные файлы у меня не скачиваются (((
По самому первому вопросу вариант без макроса (остальные файлы у меня не скачиваются ((( _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение По самому первому вопросу вариант без макроса (остальные файлы у меня не скачиваются ((( Автор - _Boroda_ Дата добавления - 21.03.2023 в 16:54
DrMini
Дата: Вторник, 21.03.2023, 18:38 |
Сообщение № 20
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация:
269
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Это именно то, что мне и нужно было в самом начале. Громадное спасибо! [offtop]Вас не было аж почти 3 недели.[/offtop]
Это именно то, что мне и нужно было в самом начале. Громадное спасибо! [offtop]Вас не было аж почти 3 недели.[/offtop]DrMini
Ответить
Сообщение Это именно то, что мне и нужно было в самом начале. Громадное спасибо! [offtop]Вас не было аж почти 3 недели.[/offtop]Автор - DrMini Дата добавления - 21.03.2023 в 18:38