Ячейки с обратной связью

Пользователь

Сообщений: 8 Регистрация: 11.01.2013

31.01.2012 06:51:28

Задача:
Получить две ячейки А1, А2 с условиями
Если вручную вводим значение в А1- автоматически получаем зависимое значение в ячейке А2, но если вручную вводим значение в А2 - автоматически получаем обратное значение в ячейке А1.
Возможно ли подобное без использования макроса? т.е. стандартным набором функций?

VovaK

Пользователь

Сообщений: 1716 Регистрация: 01.01.1970

31.01.2012 08:47:39

Без использования макроса Вы этого не сделаете. Макрос пишется средствами обработки событий на соответсвующем листе:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1")) Is Nothing Then
Range("A2") = "Значение"
End If
If Not Intersect(Range("A2")) Is Nothing Then
Range("A1") = "Значение"
End If
End Sub

Маугли Гость	#3 31.01.2012 09:03:59 Тоже поковырял.. Прикрепленные файлы post_303055.xls (30.5 КБ)

k61 Пользователь Сообщений: 2443 Регистрация: 21.12.2012	#4 31.01.2012 09:09:15 Т.к. речь идёт о вводе и с целью сокращения, предлагаю вариант: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1:A2")) Is Nothing Then Range("A1:A2") = Target End If Application.EnableEvents = True End Sub