Изменяя значения в любом из выпадающих списках, этого столба , изменяются значение во всех других выпадающих списках, этого столба!
помогите пожалуйста! Макросы или ещё пути решения?
дорогие друзья очень срочно надо, помогите пожалуйста ,писал в вопросы VBA , всё очень долго , а может и сложно)) к сожалению знаний не хватает самому решить это заранее спасибо друзья!
Изменяя значения в любом из выпадающих списках, этого столба , изменяются значение во всех других выпадающих списках, этого столба!
помогите пожалуйста! Макросы или ещё пути решения?
дорогие друзья очень срочно надо, помогите пожалуйста ,писал в вопросы VBA , всё очень долго , а может и сложно)) к сожалению знаний не хватает самому решить это заранее спасибо друзья!Predator92
Непонятно описали задачу. Чтобы изменить значения в выпадающем списке, нужно изменить значения в источнике. Возможно вы хотели сказать, выбрать значение в списке. Последовательно напишите что вы делаете и что должно произойти.
Непонятно описали задачу. Чтобы изменить значения в выпадающем списке, нужно изменить значения в источнике. Возможно вы хотели сказать, выбрать значение в списке. Последовательно напишите что вы делаете и что должно произойти.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
AlexM, есть один столбец , в нём 4-е выпадающих списка, источник один, на этот столбец, (он зеленого цвета)
В столбце зеленого цвета выбираю первый выпадающий список и выбираю в нем цифру 3, после того как выбрал цифру 3, во всех выпадающих списках этого столбца изменяются данные на цифру 3, и по аналогу я буду выбирать любой выпадающий список зеленного столбца ,изменять цифру и будет менять во всех выпадающих списках этого столбца
по аналогу сделать тоже с желтым и красным столбцами! у каждого столбца имеются своих значения источника!
AlexM, есть один столбец , в нём 4-е выпадающих списка, источник один, на этот столбец, (он зеленого цвета)
В столбце зеленого цвета выбираю первый выпадающий список и выбираю в нем цифру 3, после того как выбрал цифру 3, во всех выпадающих списках этого столбца изменяются данные на цифру 3, и по аналогу я буду выбирать любой выпадающий список зеленного столбца ,изменять цифру и будет менять во всех выпадающих списках этого столбца
по аналогу сделать тоже с желтым и красным столбцами! у каждого столбца имеются своих значения источника!Predator92
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B3,B5,B7,B9"), Target) Is Nothing Then Exit Sub Range("B3,B5,B7,B9") = Target.Value End Sub
[/vba]
Так нужно? код в модуле листа[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B3,B5,B7,B9"), Target) Is Nothing Then Exit Sub Range("B3,B5,B7,B9") = Target.Value End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B3,B5,B7,B9"), Target) Is Nothing Then Exit Sub Application.EnableEvents = 0 Range("B3,B5,B7,B9") = Target.Value Application.EnableEvents = 1 End Sub
[/vba]
Может, чуть добавить? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("B3,B5,B7,B9"), Target) Is Nothing Then Exit Sub Application.EnableEvents = 0 Range("B3,B5,B7,B9") = Target.Value Application.EnableEvents = 1 End Sub
Я не знаю причину глюка. Попробуйте в ваш файл без макроса, тот что с расширением xlsx вставить код в модуль листа из сообщения №4 и сохранить с расширением xlsm
Я не знаю причину глюка. Попробуйте в ваш файл без макроса, тот что с расширением xlsx вставить код в модуль листа из сообщения №4 и сохранить с расширением xlsmAlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
_Boroda_, ДА ОТЛИЧНО!)) а как сделать тоже для других столбцов?? почему то копирую и вставляю код он не работает! посмотрите в чем ошибка пожалуйста!
_Boroda_, ДА ОТЛИЧНО!)) а как сделать тоже для других столбцов?? почему то копирую и вставляю код он не работает! посмотрите в чем ошибка пожалуйста!Predator92
_Boroda_, обратил внимание, что после выполнения строки Range("B3,B5,B7,B9") = Target.Value программа завершается и события не включаются. Т.е. строка Application.EnableEvents = 1 не выполняется
_Boroda_, обратил внимание, что после выполнения строки Range("B3,B5,B7,B9") = Target.Value программа завершается и события не включаются. Т.е. строка Application.EnableEvents = 1 не выполняетсяAlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.