Изменяя значения в любом из выпадающих списках, этого столба
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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Чтобы помочь, нужно понимать Если каждый вып. список в столбце отвечает за свои данные, то почему Вы хотите, чтобы при изменении в одной из ячеек данные менялись бы и в остальных? Я не понимаю, зачем Вам 4 вып списка в столбце В? Почему не обойтись одним, например, в ячейке В1?
Чтобы помочь, нужно понимать Если каждый вып. список в столбце отвечает за свои данные, то почему Вы хотите, чтобы при изменении в одной из ячеек данные менялись бы и в остальных? Я не понимаю, зачем Вам 4 вып списка в столбце В? Почему не обойтись одним, например, в ячейке В1? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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 минуты!
_Boroda_, я вам отправляю этот файл , надеюсь что в этот раз вы поймете. объяснил всё в файле. ПОМОГИТЕ ЛЮДИ ДОБРЫЕ!!!! Для многих это решение займёт 2 минуты! Predator92
Сообщение отредактировал Predator92 - Понедельник, 31.08.2020, 14:41
Ответить
Сообщение _Boroda_, я вам отправляю этот файл , надеюсь что в этот раз вы поймете. объяснил всё в файле. ПОМОГИТЕ ЛЮДИ ДОБРЫЕ!!!! Для многих это решение займёт 2 минуты! Автор - Predator92 Дата добавления - 31.08.2020 в 13:58
Nic70y
Дата: Понедельник, 31.08.2020, 14:53 |
Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация:
2276
±
Замечаний:
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]
[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
Ю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
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация:
2276
±
Замечаний:
0% ±
Excel 2010
макрос в модуль листа, вместо того макроса, который у Вас в файле, в модуле листа
макрос в модуль листа, вместо того макроса, который у Вас в файле, в модуле листа Nic70y
ЮMoney 41001841029809
Ответить
Сообщение макрос в модуль листа, вместо того макроса, который у Вас в файле, в модуле листа Автор - Nic70y Дата добавления - 31.08.2020 в 15:18
Predator92
Дата: Понедельник, 31.08.2020, 15:22 |
Сообщение № 27
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
Nic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому???
Nic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому??? Predator92
Ответить
Сообщение Nic70y, При большом уважении , мне надо будет перенести в другой файл , нельзя макрос написать так чтобы я его применял к другим файлам а не только к этому??? Автор - Predator92 Дата добавления - 31.08.2020 в 15:22
Nic70y
Дата: Понедельник, 31.08.2020, 15:25 |
Сообщение № 28
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация:
2276
±
Замечаний:
0% ±
Excel 2010
этом макрос Вы можете применить к абсолютно любому листу, где есть выпадающие списки
этом макрос Вы можете применить к абсолютно любому листу, где есть выпадающие списки Nic70y
Ю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, А вы можете сделать макрос чтобы всё работало ,но вот так??? чтобы там было понятно всё ,какие ячейки куда и т.д возможно сделать так???
Nic70y, А вы можете сделать макрос чтобы всё работало ,но вот так??? чтобы там было понятно всё ,какие ячейки куда и т.д возможно сделать так??? Predator92
Сообщение отредактировал 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
Ответить
Сообщение Nic70y, мне надо разобраться как и что будет работать , как куда писать и т.д ,как прописать макрос этот ! не тупо скопировать и вставить. Автор - Predator92 Дата добавления - 31.08.2020 в 15:41
Nic70y
Дата: Понедельник, 31.08.2020, 15:43 |
Сообщение № 31
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация:
2276
±
Замечаний:
0% ±
Excel 2010
можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть. макрос надо в тэги засовывать, а то модераторы наругаются.On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему) - номер столбца изменяемой ячейки если ячейка = вып.список, тогда u_3 = Target.Value Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
выпадающие списки данного столбца = введенному значению. так понятно?
можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть. макрос надо в тэги засовывать, а то модераторы наругаются.On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему) - номер столбца изменяемой ячейки если ячейка = вып.список, тогда u_3 = Target.Value Columns(u_2).SpecialCells(xlCellTypeAllValidation) = u_3
выпадающие списки данного столбца = введенному значению. так понятно?Nic70y
ЮMoney 41001841029809
Ответить
Сообщение можете сделать макрос чтобы всё работало ,но вот так???
так он у Вас уже есть. макрос надо в тэги засовывать, а то модераторы наругаются.On Error Resume Next: u_1 = Target.Validation.Type
определяет является ли ячейка выпадающим спиком (если да u_1 = 3, если нет ни чему) - номер столбца изменяемой ячейки если ячейка = вып.список, тогда 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
Ответить
Сообщение Nic70y, Да это я понял, но а есть возможность прописать этот макрос только к ячейкам , если я перенесу зеленый выпадающий список по центру, то он будет высчитывать данные желтых выпадающих списков Автор - Predator92 Дата добавления - 31.08.2020 в 15:54
_Boroda_
Дата: Понедельник, 31.08.2020, 16:10 |
Сообщение № 33
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
макрос надо в тэги засовывать, а то модераторы наругаются.
Вот уже начинают ругаться. Исправьте свой пост. Про теги пояснялку см. в Правилах форума
макрос надо в тэги засовывать, а то модераторы наругаются.
Вот уже начинают ругаться. Исправьте свой пост. Про теги пояснялку см. в Правилах форума_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение макрос надо в тэги засовывать, а то модераторы наругаются.
Вот уже начинают ругаться. Исправьте свой пост. Про теги пояснялку см. в Правилах форумаАвтор - _Boroda_ Дата добавления - 31.08.2020 в 16:10
Predator92
Дата: Понедельник, 31.08.2020, 16:25 |
Сообщение № 34
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 124
Репутация:
0
±
Замечаний:
20% ±
Excel 2016
_Boroda_, Nic70y, вот тут макросы не работают, те что Вы мне отправляли , как мне осуществить данное решение задачи! зеленные с зеленными желтые с желтыми красные с красными Всё как вы делали только теперь они перемещены!
_Boroda_, Nic70y, вот тут макросы не работают, те что Вы мне отправляли , как мне осуществить данное решение задачи! зеленные с зеленными желтые с желтыми красные с красными Всё как вы делали только теперь они перемещены! Predator92
Ответить
Сообщение _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
Ответить
Сообщение _Boroda_, Nic70y, Всё что вы делали , принцип тот же только они в разнобой Автор - Predator92 Дата добавления - 31.08.2020 в 16:28
_Boroda_
Дата: Понедельник, 31.08.2020, 16:35 |
Сообщение № 36
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
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-ов не хватает - добавьте еще такую же строку
[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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Группа: Друзья
Ранг: Экселист
Сообщений: 8769
Репутация:
2276
±
Замечаний:
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]
для цветных [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
Ю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