Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
7 / 6 / 3
Регистрация: 01.08.2012
Сообщений: 115
1

Двусторонняя связь ячеек

10.10.2014, 22:19. Показов 3300. Ответов 11
Метки нет (Все метки)

Есть две ячейки нужно чтобы обе показывали одно и тоже. Редактируем первую вторая автоматом меняется и наоборот. Ячеек связанных больше чем две. Подскажите как такое реализовать?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2014, 22:19
Ответы с готовыми решениями:

В выделенном диапазоне ячеек поменять цвет заливки всех ячеек с числами
лабараторная 6 Задание 1. Напишите код программы, которая бы закрывала без сохранения изменений...

Удалить пробелы в начале и конце ячеек выделенных столбцов ячеек
Доброй ночи! Имеется excel файл с большим количеством страниц, строк и столбцов. В ячейках:...

Объединение ячеек одного столбца при совпадении ячеек в другом
Здравствуйте, В таблице необходимо объединить все телефоны в одну ячейку, если совпадение по...

Необходимо, чтобы в ряде ячеек содержались данные из других ячеек
Только не смейтесь. У меня не получается создать макрос для такой простой задачи. Необходимо, чтобы...

11
409 / 259 / 80
Регистрация: 27.10.2012
Сообщений: 853
10.10.2014, 23:01 2
Макросом.
0
1300 / 506 / 63
Регистрация: 09.08.2012
Сообщений: 2,056
15.10.2014, 20:29 3
kalbasiatka, зачем?
Меняем А1, а во второй в B1 пишем '=А1' и делов то
0
409 / 259 / 80
Регистрация: 27.10.2012
Сообщений: 853
15.10.2014, 23:27 4
Цитата Сообщение от emenem97 Посмотреть сообщение
зачем?
Затем )
Цитата Сообщение от PomaH Посмотреть сообщение
Редактируем первую вторая автоматом меняется и наоборот
1
409 / 259 / 80
Регистрация: 27.10.2012
Сообщений: 853
15.10.2014, 23:38 5
Изменяем А1 и B1
0
Вложения
Тип файла: xls Зависимые ячейки.xls (29.5 Кб, 52 просмотров)
73 / 72 / 29
Регистрация: 13.10.2014
Сообщений: 155
17.10.2014, 02:36 6
Сократим:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Set rrr = Union([a1], [b1])
If Not Intersect(Target, rrr) Is Nothing Then
Application.EnableEvents = False
rrr.Value = Target.Value
Application.EnableEvents = True
End If
End Sub
0
0 / 0 / 0
Регистрация: 09.11.2015
Сообщений: 1
09.11.2015, 03:22 7
Цитата Сообщение от kalbasiatka Посмотреть сообщение
Изменяем А1 и B1
kalbasiatka, можете, пожалуйста, описать подробнее для малознающих в этой теме людей. Как вы это сделали? и можно ли обойтись без макроса? Заранее спасибо.
0
15037 / 6364 / 1726
Регистрация: 24.09.2011
Сообщений: 9,976
09.11.2015, 09:42 8
Цитата Сообщение от Shota Посмотреть сообщение
Как вы это сделали?
Правый клик на ярлычке листа - Исходный текст
Цитата Сообщение от Shota Посмотреть сообщение
можно ли обойтись без макроса?
Нет
0
0 / 0 / 0
Регистрация: 07.03.2019
Сообщений: 2
11.03.2019, 10:00 9
Подскажете, пожалуйста, как сделать двухтороннюю связь на двух разных листах.
0
15037 / 6364 / 1726
Регистрация: 24.09.2011
Сообщений: 9,976
11.03.2019, 11:19 10
sap71, двухсторонняя связь ячеек А1 на листах Лист1 и Лист2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'модуль листа Лист1
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Application.EnableEvents = False
      Worksheets("Лист2").Range("A1").Value = Target.Value
    Application.EnableEvents = True
  End If
End Sub
 
'модуль листа Лист2
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    Application.EnableEvents = False
      Worksheets("Лист1").Range("A1").Value = Target.Value
    Application.EnableEvents = True
  End If
End Sub
1
0 / 0 / 0
Регистрация: 07.03.2019
Сообщений: 2
11.03.2019, 12:52 11
Супер. спасибо!
0
73 / 72 / 29
Регистрация: 13.10.2014
Сообщений: 155
11.03.2019, 15:14 12
В модуль ЭтаКнига:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Index > 3 Then Exit Sub
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Worksheets(3 - Sh.Index).Range("A1").Value = Target.Value
Application.EnableEvents = True
End If
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2019, 15:14

Выбрать данные из разных (конкретных) ячеек листа, произвести замену данных ячеек
Что нужно от макроса: выбрать данные из разных (конкретных) ячеек листа, произвести замену данных...

Подсчитать количество пустых, текстовых ячеек и числовых ячеек
люди нужна ваша помощь, ничего толком в этом не понимаю(: Ввести координаты ячейки и определить...

Очистка значений ячеек макросом постоянно обновляемых ячеек
Здравствуйте, уважаемые) Помогите решить такую задачу. Есть некий журнал, нужно заполнять...

Range: поиск пустых ячеек и ячеек с IsNumeric()=false
Подскажіте, пожалуйста... можно лі как-нібудь быстро проверіть, есть лі, к прімеру, в Range...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.