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

Вход

Регистрация

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

 

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

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

Excel 2016
Добрые люди помогите!
 
Ответить
СообщениеДобрые люди помогите!
Автор - Predator92
Дата добавления - 31.08.2020 в 13:11
_Boroda_ Дата: Понедельник, 31.08.2020, 13:33 | Сообщение № 22
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Чтобы помочь, нужно понимать
Если каждый вып. список в столбце отвечает за свои данные, то почему Вы хотите, чтобы при изменении в одной из ячеек данные менялись бы и в остальных? Я не понимаю, зачем Вам 4 вып списка в столбце В? Почему не обойтись одним, например, в ячейке В1?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЧтобы помочь, нужно понимать
Если каждый вып. список в столбце отвечает за свои данные, то почему Вы хотите, чтобы при изменении в одной из ячеек данные менялись бы и в остальных? Я не понимаю, зачем Вам 4 вып списка в столбце В? Почему не обойтись одним, например, в ячейке В1?
Автор - _Boroda_
Дата добавления - 31.08.2020 в 13:33
Predator92 Дата: Понедельник, 31.08.2020, 13:58 | Сообщение № 23
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, я вам отправляю этот файл , надеюсь что в этот раз вы поймете. объяснил всё в файле.

ПОМОГИТЕ ЛЮДИ ДОБРЫЕ!!!! Для многих это решение займёт 2 минуты!
К сообщению приложен файл: 0676794.xlsm (17.9 Kb)


Сообщение отредактировал Predator92 - Понедельник, 31.08.2020, 14:41
 
Ответить
Сообщение_Boroda_, я вам отправляю этот файл , надеюсь что в этот раз вы поймете. объяснил всё в файле.

ПОМОГИТЕ ЛЮДИ ДОБРЫЕ!!!! Для многих это решение займёт 2 минуты!
Автор - Predator92
Дата добавления - 31.08.2020 в 13:58
Nic70y Дата: Понедельник, 31.08.2020, 14:53 | Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next: u_1 = Target.Validation.Type
    u_2 = Target.Column
    Application.EnableEvents = False
    If u_1 = 3 Then
        u_3 = Target.Value
        Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
    End If
    Application.EnableEvents = True
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next: u_1 = Target.Validation.Type
    u_2 = Target.Column
    Application.EnableEvents = False
    If u_1 = 3 Then
        u_3 = Target.Value
        Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
    End If
    Application.EnableEvents = True
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 31.08.2020 в 14:53
Predator92 Дата: Понедельник, 31.08.2020, 15:16 | Сообщение № 25
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Nic70y, Что это ? и куда что писать??
 
Ответить
СообщениеNic70y, Что это ? и куда что писать??
Автор - Predator92
Дата добавления - 31.08.2020 в 15:16
Nic70y Дата: Понедельник, 31.08.2020, 15:18 | Сообщение № 26
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
Цитата Predator92, 31.08.2020 в 15:16, в сообщении № 25 ()
Что это ?
макрос
Цитата Predator92, 31.08.2020 в 15:16, в сообщении № 25 ()
куда что писать?
в модуль листа,
вместо того макроса, который у Вас в файле, в модуле листа
К сообщению приложен файл: 0676794-1-.xlsm (18.0 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Predator92, 31.08.2020 в 15:16, в сообщении № 25 ()
Что это ?
макрос
Цитата Predator92, 31.08.2020 в 15:16, в сообщении № 25 ()
куда что писать?
в модуль листа,
вместо того макроса, который у Вас в файле, в модуле листа
Автор - Nic70y
Дата добавления - 31.08.2020 в 15:18
Predator92 Дата: Понедельник, 31.08.2020, 15:22 | Сообщение № 27
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Nic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому???
 
Ответить
СообщениеNic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому???
Автор - Predator92
Дата добавления - 31.08.2020 в 15:22
Nic70y Дата: Понедельник, 31.08.2020, 15:25 | Сообщение № 28
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
этом макрос Вы можете применить к абсолютно любому листу,
где есть выпадающие списки

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 31.08.2020, 15:25
 
Ответить
Сообщениеэтом макрос Вы можете применить к абсолютно любому листу,
где есть выпадающие списки
Автор - Nic70y
Дата добавления - 31.08.2020 в 15:25
Predator92 Дата: Понедельник, 31.08.2020, 15:34 | Сообщение № 29
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Nic70y, А вы можете сделать макрос чтобы всё работало ,но вот так???

чтобы там было понятно всё ,какие ячейки куда и т.д
возможно сделать так???


Сообщение отредактировал Predator92 - Понедельник, 31.08.2020, 16:22
 
Ответить
СообщениеNic70y, А вы можете сделать макрос чтобы всё работало ,но вот так???

чтобы там было понятно всё ,какие ячейки куда и т.д
возможно сделать так???
Автор - Predator92
Дата добавления - 31.08.2020 в 15:34
Predator92 Дата: Понедельник, 31.08.2020, 15:41 | Сообщение № 30
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Nic70y, мне надо разобраться как и что будет работать , как куда писать и т.д ,как прописать макрос этот !
не тупо скопировать и вставить.
 
Ответить
СообщениеNic70y, мне надо разобраться как и что будет работать , как куда писать и т.д ,как прописать макрос этот !
не тупо скопировать и вставить.
Автор - Predator92
Дата добавления - 31.08.2020 в 15:41
Nic70y Дата: Понедельник, 31.08.2020, 15:43 | Сообщение № 31
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
Цитата Predator92, 31.08.2020 в 15:34, в сообщении № 29 ()
можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть.
макрос надо в тэги засовывать, а то модераторы наругаются.
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему)
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
u_2 = Target.Column
- номер столбца изменяемой ячейки
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
If u_1 = 3 Then
если ячейка = вып.список, тогда
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
        u_3 = Target.Value
        Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
выпадающие списки данного столбца = введенному значению.
так понятно?

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата Predator92, 31.08.2020 в 15:34, в сообщении № 29 ()
можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть.
макрос надо в тэги засовывать, а то модераторы наругаются.
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему)
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
u_2 = Target.Column
- номер столбца изменяемой ячейки
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
If u_1 = 3 Then
если ячейка = вып.список, тогда
Цитата Nic70y, 31.08.2020 в 14:53, в сообщении № 24 ()
        u_3 = Target.Value
        Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
выпадающие списки данного столбца = введенному значению.
так понятно?
Автор - Nic70y
Дата добавления - 31.08.2020 в 15:43
Predator92 Дата: Понедельник, 31.08.2020, 15:54 | Сообщение № 32
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Nic70y, Да это я понял, но а есть возможность прописать этот макрос только к ячейкам , если я перенесу зеленый выпадающий список по центру, то он будет высчитывать данные желтых выпадающих списков
 
Ответить
СообщениеNic70y, Да это я понял, но а есть возможность прописать этот макрос только к ячейкам , если я перенесу зеленый выпадающий список по центру, то он будет высчитывать данные желтых выпадающих списков
Автор - Predator92
Дата добавления - 31.08.2020 в 15:54
_Boroda_ Дата: Понедельник, 31.08.2020, 16:10 | Сообщение № 33
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Цитата Nic70y, 31.08.2020 в 15:43, в сообщении № 31 ()
макрос надо в тэги засовывать, а то модераторы наругаются.

Вот уже начинают ругаться. Исправьте свой пост. Про теги пояснялку см. в Правилах форума

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата Nic70y, 31.08.2020 в 15:43, в сообщении № 31 ()
макрос надо в тэги засовывать, а то модераторы наругаются.

Вот уже начинают ругаться. Исправьте свой пост. Про теги пояснялку см. в Правилах форума
Автор - _Boroda_
Дата добавления - 31.08.2020 в 16:10
Predator92 Дата: Понедельник, 31.08.2020, 16:25 | Сообщение № 34
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
_Boroda_, Nic70y, вот тут макросы не работают, те что Вы мне отправляли , как мне осуществить данное решение задачи!

зеленные с зеленными
желтые с желтыми
красные с красными

Всё как вы делали только теперь они перемещены!
К сообщению приложен файл: 9360305.xlsm (21.1 Kb)
 
Ответить
Сообщение_Boroda_, Nic70y, вот тут макросы не работают, те что Вы мне отправляли , как мне осуществить данное решение задачи!

зеленные с зеленными
желтые с желтыми
красные с красными

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

Excel 2016
_Boroda_, Nic70y, Всё что вы делали , принцип тот же только они в разнобой
 
Ответить
Сообщение_Boroda_, Nic70y, Всё что вы делали , принцип тот же только они в разнобой
Автор - Predator92
Дата добавления - 31.08.2020 в 16:28
_Boroda_ Дата: Понедельник, 31.08.2020, 16:35 | Сообщение № 36
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = 0
    If Not Intersect(Range("B3,B5,B7,B9"), Target) Is Nothing Then Range("B3,B5,B7,B9") = Target.Value
    If Not Intersect(Range("D3,D5,D7,D9"), Target) Is Nothing Then Range("D3,D5,D7,D9") = Target.Value
    '......
    Application.EnableEvents = 1
End Sub
[/vba]
Прописывайте нужные диапазоны в каждой if. Если if-ов не хватает - добавьте еще такую же строку

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = 0
    If Not Intersect(Range("B3,B5,B7,B9"), Target) Is Nothing Then Range("B3,B5,B7,B9") = Target.Value
    If Not Intersect(Range("D3,D5,D7,D9"), Target) Is Nothing Then Range("D3,D5,D7,D9") = Target.Value
    '......
    Application.EnableEvents = 1
End Sub
[/vba]
Прописывайте нужные диапазоны в каждой if. Если if-ов не хватает - добавьте еще такую же строку
Автор - _Boroda_
Дата добавления - 31.08.2020 в 16:35
Nic70y Дата: Вторник, 01.09.2020, 16:34 | Сообщение № 37
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2272 ±
Замечаний: 0% ±

Excel 2010
для цветных
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next: u_1 = Target.Validation.Type
    Application.EnableEvents = False
    If u_1 = 3 Then
        u_3 = Target.Value
        u_4 = Target.Interior.Color
        For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
            If c.Interior.Color = u_4 Then c.Value = u_3
        Next
    End If
    Application.EnableEvents = True
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщениедля цветных
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next: u_1 = Target.Validation.Type
    Application.EnableEvents = False
    If u_1 = 3 Then
        u_3 = Target.Value
        u_4 = Target.Interior.Color
        For Each c In Cells.SpecialCells(xlCellTypeAllValidation)
            If c.Interior.Color = u_4 Then c.Value = u_3
        Next
    End If
    Application.EnableEvents = True
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 01.09.2020 в 16:34
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменяя значения в любом из выпадающих списках, этого столба (Формулы/Formulas)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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