Добрый день. Я заранее очень извиняюсь, если вопрос глупый, но я даже не знаю, как правильно сформулировать запрос в гугле :) Вопрос такой: можно ли сделать так, чтобы в таблице автоматически заполнялись одинаковые значения? Например, в одной колонке фамилии, во второй колонке выпадающий список с этими же фамилиями. Мне нужно, чтобы, если в первой колонке фамилия Иванов, я выбираю во второй колонке фамилию Сидоров, то в первой колонке, там где фамилия Сидоров, напротив во второй колонке автоматически появилась фамилия Иванов. Надеюсь, понятно объяснила)) Заранее спасибо большое.
Добрый день. Я заранее очень извиняюсь, если вопрос глупый, но я даже не знаю, как правильно сформулировать запрос в гугле :) Вопрос такой: можно ли сделать так, чтобы в таблице автоматически заполнялись одинаковые значения? Например, в одной колонке фамилии, во второй колонке выпадающий список с этими же фамилиями. Мне нужно, чтобы, если в первой колонке фамилия Иванов, я выбираю во второй колонке фамилию Сидоров, то в первой колонке, там где фамилия Сидоров, напротив во второй колонке автоматически появилась фамилия Иванов. Надеюсь, понятно объяснила)) Заранее спасибо большое.Katerina_Ta
Спасибо, но от выпадающего списка отказаться не могу(( мне почему-то казалось, что можно сделать так, чтобы фамилии автоматом появлялись в той же колонке, что и список.
Спасибо, но от выпадающего списка отказаться не могу(( мне почему-то казалось, что можно сделать так, чтобы фамилии автоматом появлялись в той же колонке, что и список.Katerina_Ta
А это не я. Там вовнутрях сидит макрос, вот он-то всё и делает. Вот такой: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Column <> 2 Then Exit Sub z0_ = Target.Offset(, -1) If z0_ = "" Then Exit Sub z00_ = Target r0_ = 2 r1_ = Range("A" & Rows.Count).End(xlUp).Row Application.EnableEvents = 0 For i = r0_ To r1_ z1_ = Range("A" & i) If z1_ = z0_ Then Range("B" & i) = z00_ ElseIf z1_ = z00_ Then Range("B" & i) = z0_ End If Next i Application.EnableEvents = 1 End Sub
[/vba] Посмотреть его можно, нажав правой мышой на ярлычок листа и выбрав "Исходный текст".
А это не я. Там вовнутрях сидит макрос, вот он-то всё и делает. Вот такой: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If Target.Column <> 2 Then Exit Sub z0_ = Target.Offset(, -1) If z0_ = "" Then Exit Sub z00_ = Target r0_ = 2 r1_ = Range("A" & Rows.Count).End(xlUp).Row Application.EnableEvents = 0 For i = r0_ To r1_ z1_ = Range("A" & i) If z1_ = z0_ Then Range("B" & i) = z00_ ElseIf z1_ = z00_ Then Range("B" & i) = z0_ End If Next i Application.EnableEvents = 1 End Sub
[/vba] Посмотреть его можно, нажав правой мышой на ярлычок листа и выбрав "Исходный текст"._Boroda_
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
вы очень крутой)) если можно, объясните еще, пожалуйста, как вы это сделали?
