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

Вход

Регистрация

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

 

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

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

Excel 2016
Добрые люди помогите!
 
Ответить
СообщениеДобрые люди помогите!

Автор - Predator92
Дата добавления - 31.08.2020 в 13:11
_Boroda_ Дата: Понедельник, 31.08.2020, 13:33 | Сообщение № 22
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

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
Группа: Друзья
Ранг: Экселист
Сообщений: 6506
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
[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]


Яндекс Деньги 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
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Nic70y, Что это ? и куда что писать??
 
Ответить
СообщениеNic70y, Что это ? и куда что писать??

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

ru13;10;03
Что это ?
макрос
куда что писать?
в модуль листа,
вместо того макроса, который у Вас в файле, в модуле листа
К сообщению приложен файл: 0676794-1-.xlsm(18.0 Kb)


Яндекс Деньги 41001841029809
 
Ответить
Сообщение
Что это ?
макрос
куда что писать?
в модуль листа,
вместо того макроса, который у Вас в файле, в модуле листа

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

Excel 2016
Nic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому???
 
Ответить
СообщениеNic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому???

Автор - Predator92
Дата добавления - 31.08.2020 в 15:22
Nic70y Дата: Понедельник, 31.08.2020, 15:25 | Сообщение № 28
Группа: Друзья
Ранг: Экселист
Сообщений: 6506
Репутация: 1431 ±
Замечаний: 0% ±

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


Яндекс Деньги 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 31.08.2020, 15:25
 
Ответить
Сообщениеэтом макрос Вы можете применить к абсолютно любому листу,
где есть выпадающие списки

Автор - Nic70y
Дата добавления - 31.08.2020 в 15:25
Predator92 Дата: Понедельник, 31.08.2020, 15:34 | Сообщение № 29
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

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

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


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

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

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

Excel 2016
Nic70y, мне надо разобраться как и что будет работать , как куда писать и т.д ,как прописать макрос этот !
не тупо скопировать и вставить.
 
Ответить
СообщениеNic70y, мне надо разобраться как и что будет работать , как куда писать и т.д ,как прописать макрос этот !
не тупо скопировать и вставить.

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

ru13;10;03
можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть.
макрос надо в тэги засовывать, а то модераторы наругаются.
On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему)
u_2 = Target.Column
- номер столбца изменяемой ячейки
If u_1 = 3 Then
если ячейка = вып.список, тогда
        u_3 = Target.Value
        Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
выпадающие списки данного столбца = введенному значению.
так понятно?


Яндекс Деньги 41001841029809
 
Ответить
Сообщение
можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть.
макрос надо в тэги засовывать, а то модераторы наругаются.
On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему)
u_2 = Target.Column
- номер столбца изменяемой ячейки
If u_1 = 3 Then
если ячейка = вып.список, тогда
        u_3 = Target.Value
        Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
выпадающие списки данного столбца = введенному значению.
так понятно?

Автор - Nic70y
Дата добавления - 31.08.2020 в 15:43
Predator92 Дата: Понедельник, 31.08.2020, 15:54 | Сообщение № 32
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Nic70y, Да это я понял, но а есть возможность прописать этот макрос только к ячейкам , если я перенесу зеленый выпадающий список по центру, то он будет высчитывать данные желтых выпадающих списков
 
Ответить
СообщениеNic70y, Да это я понял, но а есть возможность прописать этот макрос только к ячейкам , если я перенесу зеленый выпадающий список по центру, то он будет высчитывать данные желтых выпадающих списков

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

2003; 2007; 2010; 2013 RUS
макрос надо в тэги засовывать, а то модераторы наругаются.

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


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

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

Автор - _Boroda_
Дата добавления - 31.08.2020 в 16:10
Predator92 Дата: Понедельник, 31.08.2020, 16:25 | Сообщение № 34
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

Всё как вы делали только теперь они перемещены!

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

Excel 2016
_Boroda_, Nic70y, Всё что вы делали , принцип тот же только они в разнобой
 
Ответить
Сообщение_Boroda_, Nic70y, Всё что вы делали , принцип тот же только они в разнобой

Автор - Predator92
Дата добавления - 31.08.2020 в 16:28
_Boroda_ Дата: Понедельник, 31.08.2020, 16:35 | Сообщение № 36
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15978
Репутация: 6209 ±
Замечаний: 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
Группа: Друзья
Ранг: Экселист
Сообщений: 6506
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
для цветных
[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]


Яндекс Деньги 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-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!