Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Синхронизация" ячеек / 2 сообщений из 2, страница 1 из 1
24.04.2018, 18:28
    #39635616
Yauheni13
Yauheni13
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация" ячеек
Доброе время суток.

Столкнулся с проблемой, что стало необходимостью связать 2 ячейки допустим А1 и А2 таким образом, что, при вводе значения в А1 автоматически заполняется ячейка А2 тем же значением. Дополнительно я так же хочу вводить значение в ячейку А2 значение, что бы теперь уже в А1 менялось значение на это введенное. Позже мне надо будет вводить значения в них от руки и надо, что бы они менялись, независимо в какую я ячейку ввел.. в А1 или в А2. Подскажите решение, спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2018, 18:42
    #39635630
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Синхронизация" ячеек
Yauheni13,

Только макросами можно. Правая кнопка мыши на листе(в котором надо это осуществить) -Исходный текст(или Посмотреть код/View Source) -вставляете код ниже:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Range("A1:A2"), Target) Then
        Application.EnableEvents = 0
            If Target.Address(0, 0) = "A1" Then
                Range("A2").Value = Target.Value
            Else
                Range("A1").Value = Target.Value
            End If
        Application.EnableEvents = 1
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Синхронизация" ячеек / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]