Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Зеркальное отображение информации на двух листах - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зеркальное отображение информации на двух листах (Формулы/Formulas)
Зеркальное отображение информации на двух листах
Davenant Дата: Воскресенье, 07.01.2018, 17:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Небходимо сделать так чтобы при вводе информации в ячейку A1Лист1 такая же информация отображалась в ячейке A1Лист2, но при этом так же чтобы при вводе информациия в ячейку A1Лист2, то же было и в ячейке на A1Лист1. Возможно ли сделать ячейки A1 в разных листах идентичными, с возможностью изменения ячейки A1 в любом листе?


Сообщение отредактировал Davenant - Воскресенье, 07.01.2018, 17:32
 
Ответить
СообщениеНебходимо сделать так чтобы при вводе информации в ячейку A1Лист1 такая же информация отображалась в ячейке A1Лист2, но при этом так же чтобы при вводе информациия в ячейку A1Лист2, то же было и в ячейке на A1Лист1. Возможно ли сделать ячейки A1 в разных листах идентичными, с возможностью изменения ячейки A1 в любом листе?
Автор - Davenant
Дата добавления - 07.01.2018 в 17:32
Nic70y Дата: Воскресенье, 07.01.2018, 18:19 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
вдруг правильно
[vba]
Код
Private Sub Worksheet_Activate()
    u = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    Range("a1:a" & u) = Sheets(1).Range("a1:a" & u).Value
End Sub
[/vba]
К сообщению приложен файл: 7857908.xlsm (14.8 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениевдруг правильно
[vba]
Код
Private Sub Worksheet_Activate()
    u = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    Range("a1:a" & u) = Sheets(1).Range("a1:a" & u).Value
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 07.01.2018 в 18:19
Davenant Дата: Воскресенье, 07.01.2018, 19:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здорово!!! Спасибо огромное)
Подскажите еще, как изменить этот код чтобы задействовался не весь столбец , а например, одна ячейка.
 
Ответить
СообщениеЗдорово!!! Спасибо огромное)
Подскажите еще, как изменить этот код чтобы задействовался не весь столбец , а например, одна ячейка.
Автор - Davenant
Дата добавления - 07.01.2018 в 19:29
Nic70y Дата: Воскресенье, 07.01.2018, 19:31 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Activate()
        Range("a1") = Sheets(1).Range("a1").Value
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Activate()
        Range("a1") = Sheets(1).Range("a1").Value
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 07.01.2018 в 19:31
Karataev Дата: Воскресенье, 07.01.2018, 19:40 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1336
Репутация: 533 ±
Замечаний: 0% ±

Excel
В этом варианте макрос запускается сразу после изменения.
Данные копируются, только если изменения произошли в одной, а не в нескольких ячейках.
К сообщению приложен файл: 1_kar.xlsb (14.0 Kb)
 
Ответить
СообщениеВ этом варианте макрос запускается сразу после изменения.
Данные копируются, только если изменения произошли в одной, а не в нескольких ячейках.
Автор - Karataev
Дата добавления - 07.01.2018 в 19:40
Davenant Дата: Понедельник, 08.01.2018, 20:28 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо большое за помощь!
 
Ответить
СообщениеСпасибо большое за помощь!
Автор - Davenant
Дата добавления - 08.01.2018 в 20:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зеркальное отображение информации на двух листах (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!