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

Вход

Регистрация

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

 

= Мир MS Excel/Изменяя значения в любом из выпадающих списках, этого столба - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменяя значения в любом из выпадающих списках, этого столба (Формулы/Formulas)
Изменяя значения в любом из выпадающих списках, этого столба
Predator92 Дата: Понедельник, 31.08.2020, 09:59 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Изменяя значения в любом из выпадающих списках, этого столба , изменяются значение во всех других выпадающих списках, этого столба!

помогите пожалуйста! Макросы или ещё пути решения?

дорогие друзья очень срочно надо, помогите пожалуйста ,писал в вопросы VBA , всё очень долго , а может и сложно)) к сожалению знаний не хватает самому решить это
заранее спасибо друзья!
К сообщению приложен файл: 5364614.xlsx (10.4 Kb)
 
Ответить
СообщениеИзменяя значения в любом из выпадающих списках, этого столба , изменяются значение во всех других выпадающих списках, этого столба!

помогите пожалуйста! Макросы или ещё пути решения?

дорогие друзья очень срочно надо, помогите пожалуйста ,писал в вопросы VBA , всё очень долго , а может и сложно)) к сожалению знаний не хватает самому решить это
заранее спасибо друзья!

Автор - Predator92
Дата добавления - 31.08.2020 в 09:59
AlexM Дата: Понедельник, 31.08.2020, 10:58 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Непонятно описали задачу.
Чтобы изменить значения в выпадающем списке, нужно изменить значения в источнике.
Возможно вы хотели сказать, выбрать значение в списке.
Последовательно напишите что вы делаете и что должно произойти.



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеНепонятно описали задачу.
Чтобы изменить значения в выпадающем списке, нужно изменить значения в источнике.
Возможно вы хотели сказать, выбрать значение в списке.
Последовательно напишите что вы делаете и что должно произойти.

Автор - AlexM
Дата добавления - 31.08.2020 в 10:58
Predator92 Дата: Понедельник, 31.08.2020, 11:11 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
AlexM, есть один столбец , в нём 4-е выпадающих списка, источник один, на этот столбец, (он зеленого цвета)

В столбце зеленого цвета выбираю первый выпадающий список и выбираю в нем цифру 3, после того как выбрал цифру 3, во всех выпадающих списках этого столбца изменяются данные на цифру 3, и по аналогу я буду выбирать любой выпадающий список зеленного столбца ,изменять цифру и будет менять во всех выпадающих списках этого столбца

по аналогу сделать тоже с желтым и красным столбцами! у каждого столбца имеются своих значения источника!
 
Ответить
СообщениеAlexM, есть один столбец , в нём 4-е выпадающих списка, источник один, на этот столбец, (он зеленого цвета)

В столбце зеленого цвета выбираю первый выпадающий список и выбираю в нем цифру 3, после того как выбрал цифру 3, во всех выпадающих списках этого столбца изменяются данные на цифру 3, и по аналогу я буду выбирать любой выпадающий список зеленного столбца ,изменять цифру и будет менять во всех выпадающих списках этого столбца

по аналогу сделать тоже с желтым и красным столбцами! у каждого столбца имеются своих значения источника!

Автор - Predator92
Дата добавления - 31.08.2020 в 11:11
AlexM Дата: Понедельник, 31.08.2020, 11:27 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Так нужно?
код в модуле листа[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
[/vba]
К сообщению приложен файл: 5364614.xlsm (14.7 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.


Сообщение отредактировал AlexM - Понедельник, 31.08.2020, 11:29
 
Ответить
СообщениеТак нужно?
код в модуле листа[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
[/vba]

Автор - AlexM
Дата добавления - 31.08.2020 в 11:27
Predator92 Дата: Понедельник, 31.08.2020, 11:31 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
AlexM, да так , но почему то как выбираю значение, выкидывает и закрывает excel , перезапускает и открывает новый файл
 
Ответить
СообщениеAlexM, да так , но почему то как выбираю значение, выкидывает и закрывает excel , перезапускает и открывает новый файл

Автор - Predator92
Дата добавления - 31.08.2020 в 11:31
AlexM Дата: Понедельник, 31.08.2020, 11:33 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
перезапускает и открывает новый файл
У меня такого нет



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение
перезапускает и открывает новый файл
У меня такого нет

Автор - AlexM
Дата добавления - 31.08.2020 в 11:33
Predator92 Дата: Понедельник, 31.08.2020, 11:39 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
AlexM, у меня вообще весь Excel переглючило и выкидывает! excel 2016
 
Ответить
СообщениеAlexM, у меня вообще весь Excel переглючило и выкидывает! excel 2016

Автор - Predator92
Дата добавления - 31.08.2020 в 11:39
_Boroda_ Дата: Понедельник, 31.08.2020, 11:42 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Может, чуть добавить?
[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
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожет, чуть добавить?
[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
[/vba]

Автор - _Boroda_
Дата добавления - 31.08.2020 в 11:42
AlexM Дата: Понедельник, 31.08.2020, 11:43 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
Я не знаю причину глюка.
Попробуйте в ваш файл без макроса, тот что с расширением xlsx вставить код в модуль листа из сообщения №4 и сохранить с расширением xlsm



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеЯ не знаю причину глюка.
Попробуйте в ваш файл без макроса, тот что с расширением xlsx вставить код в модуль листа из сообщения №4 и сохранить с расширением xlsm

Автор - AlexM
Дата добавления - 31.08.2020 в 11:43
_Boroda_ Дата: Понедельник, 31.08.2020, 11:50 | Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Причина - зацикливание кода.
Worksheet_Change реагирует на изменение и внутри себя тоже меняет, чем заново сам себя и запускает


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПричина - зацикливание кода.
Worksheet_Change реагирует на изменение и внутри себя тоже меняет, чем заново сам себя и запускает

Автор - _Boroda_
Дата добавления - 31.08.2020 в 11:50
Predator92 Дата: Понедельник, 31.08.2020, 11:52 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, ДА ОТЛИЧНО!)) а как сделать тоже для других столбцов?? почему то копирую и вставляю код он не работает!
посмотрите в чем ошибка пожалуйста!
К сообщению приложен файл: 8451370.xlsm (15.4 Kb)
 
Ответить
Сообщение_Boroda_, ДА ОТЛИЧНО!)) а как сделать тоже для других столбцов?? почему то копирую и вставляю код он не работает!
посмотрите в чем ошибка пожалуйста!

Автор - Predator92
Дата добавления - 31.08.2020 в 11:52
AlexM Дата: Понедельник, 31.08.2020, 11:53 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4448
Репутация: 1094 ±
Замечаний: 0% ±

Excel 2003
_Boroda_, обратил внимание, что после выполнения строки Range("B3,B5,B7,B9") = Target.Value программа завершается и события не включаются. Т.е. строка Application.EnableEvents = 1 не выполняется



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщение_Boroda_, обратил внимание, что после выполнения строки Range("B3,B5,B7,B9") = Target.Value программа завершается и события не включаются. Т.е. строка Application.EnableEvents = 1 не выполняется

Автор - AlexM
Дата добавления - 31.08.2020 в 11:53
_Boroda_ Дата: Понедельник, 31.08.2020, 11:57 | Сообщение № 13
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не знаю, у меня в пошаговом режиме выполняются все строки до End Sub


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе знаю, у меня в пошаговом режиме выполняются все строки до End Sub

Автор - _Boroda_
Дата добавления - 31.08.2020 в 11:57
_Boroda_ Дата: Понедельник, 31.08.2020, 12:04 | Сообщение № 14
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Predator92, а зачем Вам куча вып. списков, в которых будут одинаковые значения? Опишите подробнее порядок работы в файле

Может, Вам подойдет не вып. списки, а элементы управления? См. файл
К сообщению приложен файл: 5364614_1.xlsm (14.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеPredator92, а зачем Вам куча вып. списков, в которых будут одинаковые значения? Опишите подробнее порядок работы в файле

Может, Вам подойдет не вып. списки, а элементы управления? См. файл

Автор - _Boroda_
Дата добавления - 31.08.2020 в 12:04
Predator92 Дата: Понедельник, 31.08.2020, 12:17 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, Спасибо большое за такое предложение ,но мне надо куча выпадающих списков)))))
подскажите как это сделать?
 
Ответить
Сообщение_Boroda_, Спасибо большое за такое предложение ,но мне надо куча выпадающих списков)))))
подскажите как это сделать?

Автор - Predator92
Дата добавления - 31.08.2020 в 12:17
Predator92 Дата: Понедельник, 31.08.2020, 12:19 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Predator92, там для столбца 2 и 3 другие источники значений надо чтобы там так же работало всё как и в столбце 1
 
Ответить
СообщениеPredator92, там для столбца 2 и 3 другие источники значений надо чтобы там так же работало всё как и в столбце 1

Автор - Predator92
Дата добавления - 31.08.2020 в 12:19
Predator92 Дата: Понедельник, 31.08.2020, 12:20 | Сообщение № 17
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, поможете?
 
Ответить
Сообщение_Boroda_, поможете?

Автор - Predator92
Дата добавления - 31.08.2020 в 12:20
_Boroda_ Дата: Понедельник, 31.08.2020, 12:32 | Сообщение № 18
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
зачем Вам куча вып. списков, в которых будут одинаковые значения? Опишите подробнее порядок работы в файле


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
зачем Вам куча вып. списков, в которых будут одинаковые значения? Опишите подробнее порядок работы в файле

Автор - _Boroda_
Дата добавления - 31.08.2020 в 12:32
Predator92 Дата: Понедельник, 31.08.2020, 12:38 | Сообщение № 19
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, каждый выпадающий список 1-го столбца будет отвечает за свои данные, каждый будет привязан к формуле ЕСЛИ(...=1 ,то .... и т.д )

соответственно списки ,столбца 2 отвечают за другие данные , так же Если(...=FE, то .... для этого и нужно)
 
Ответить
Сообщение_Boroda_, каждый выпадающий список 1-го столбца будет отвечает за свои данные, каждый будет привязан к формуле ЕСЛИ(...=1 ,то .... и т.д )

соответственно списки ,столбца 2 отвечают за другие данные , так же Если(...=FE, то .... для этого и нужно)

Автор - Predator92
Дата добавления - 31.08.2020 в 12:38
Predator92 Дата: Понедельник, 31.08.2020, 12:40 | Сообщение № 20
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, Если можно такое прописать ? то помогите пожалуйста.

по аналогии столбца 1 зеленого цвета , сделать столбец 2 и 3 ,то у 2 и 3 столбца ,другие источники выпадающих списков!
 
Ответить
Сообщение_Boroda_, Если можно такое прописать ? то помогите пожалуйста.

по аналогии столбца 1 зеленого цвета , сделать столбец 2 и 3 ,то у 2 и 3 столбца ,другие источники выпадающих списков!

Автор - Predator92
Дата добавления - 31.08.2020 в 12:40
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменяя значения в любом из выпадающих списках, этого столба (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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