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

Вход

Регистрация

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

 

= Мир MS Excel/Полная синхронизация столбцов - Мир MS Excel

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

Excel 2016
Есть несколько идентичных листов в них несколько столбцов абсолютно одинаковые
и хотелось бы их автоматически синхронизировать полностью значение цвет примечание
если я вношу на 1 странице на других 3 они тоже бы менялись и наоборот, те простое равенство тут не хотелось бы использовать, что бы не мотаться по листам лишний раз и равенство не копирует формат и примечание
 
Ответить
СообщениеЕсть несколько идентичных листов в них несколько столбцов абсолютно одинаковые
и хотелось бы их автоматически синхронизировать полностью значение цвет примечание
если я вношу на 1 странице на других 3 они тоже бы менялись и наоборот, те простое равенство тут не хотелось бы использовать, что бы не мотаться по листам лишний раз и равенство не копирует формат и примечание
Автор - ZDik
Дата добавления - 06.11.2021 в 23:48
Pelena Дата: Воскресенье, 07.11.2021, 06:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Объедините листы в группу с помощью Ctrl или Shift, тогда изменения будут вноситься сразу во все листы группы

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеОбъедините листы в группу с помощью Ctrl или Shift, тогда изменения будут вноситься сразу во все листы группы
Автор - Pelena
Дата добавления - 07.11.2021 в 06:24
ZDik Дата: Воскресенье, 07.11.2021, 10:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата Pelena, 07.11.2021 в 06:24, в сообщении № 2 ()
Объедините листы в группу с помощью Ctrl или Shift, тогда изменения будут вноситься сразу во все листы группы
есть еще другие столбцы с разной тематикой на каждом листе и придется постоянно тыкать этот Ctrl включая и отключая синхронизацию
 
Ответить
Сообщение
Цитата Pelena, 07.11.2021 в 06:24, в сообщении № 2 ()
Объедините листы в группу с помощью Ctrl или Shift, тогда изменения будут вноситься сразу во все листы группы
есть еще другие столбцы с разной тематикой на каждом листе и придется постоянно тыкать этот Ctrl включая и отключая синхронизацию
Автор - ZDik
Дата добавления - 07.11.2021 в 10:10
Pelena Дата: Воскресенье, 07.11.2021, 10:15 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Тогда только макросом

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТогда только макросом
Автор - Pelena
Дата добавления - 07.11.2021 в 10:15
ZDik Дата: Воскресенье, 07.11.2021, 10:29 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Ctrl + [ тоже не удобное решение
 
Ответить
СообщениеCtrl + [ тоже не удобное решение
Автор - ZDik
Дата добавления - 07.11.2021 в 10:29
ZDik Дата: Воскресенье, 07.11.2021, 10:31 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата Pelena, 07.11.2021 в 10:15, в сообщении № 4 ()
Тогда только макросом
есть примеры какие-н?
 
Ответить
Сообщение
Цитата Pelena, 07.11.2021 в 10:15, в сообщении № 4 ()
Тогда только макросом
есть примеры какие-н?
Автор - ZDik
Дата добавления - 07.11.2021 в 10:31
Pelena Дата: Воскресенье, 07.11.2021, 10:39 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Макрос обычно пишется под конкретную структуру файла.
Прикладывайте файл с примером без конф. данных, но с сохранением структуры столбцов, возможно, кто-нибудь заинтересуется задачкой

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМакрос обычно пишется под конкретную структуру файла.
Прикладывайте файл с примером без конф. данных, но с сохранением структуры столбцов, возможно, кто-нибудь заинтересуется задачкой
Автор - Pelena
Дата добавления - 07.11.2021 в 10:39
ZDik Дата: Воскресенье, 07.11.2021, 10:58 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Пример
К сообщению приложен файл: 5168690.xlsx (18.7 Kb)
 
Ответить
СообщениеПример
Автор - ZDik
Дата добавления - 07.11.2021 в 10:58
Pelena Дата: Воскресенье, 07.11.2021, 11:28 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
вариант
К сообщению приложен файл: 5168690.xlsm (27.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениевариант
Автор - Pelena
Дата добавления - 07.11.2021 в 11:28
ZDik Дата: Воскресенье, 07.11.2021, 11:50 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо, добавлю кнопочку на каждую нужную страницу, лучше чем Ctrl и Ctrl + [
 
Ответить
СообщениеСпасибо, добавлю кнопочку на каждую нужную страницу, лучше чем Ctrl и Ctrl + [
Автор - ZDik
Дата добавления - 07.11.2021 в 11:50
Pelena Дата: Воскресенье, 07.11.2021, 12:00 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Кнопку можно вывести на Панель быстрого доступа.

Я в макросе просто задала номера столбцов, которые надо синхронизировать. Может, правильнее привязаться к чему-то другому? Например, к слову "Синхронизация" в названии столбца

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеКнопку можно вывести на Панель быстрого доступа.

Я в макросе просто задала номера столбцов, которые надо синхронизировать. Может, правильнее привязаться к чему-то другому? Например, к слову "Синхронизация" в названии столбца
Автор - Pelena
Дата добавления - 07.11.2021 в 12:00
ZDik Дата: Понедельник, 08.11.2021, 10:17 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
А как синхронизировать только нужные листы?
 
Ответить
СообщениеА как синхронизировать только нужные листы?
Автор - ZDik
Дата добавления - 08.11.2021 в 10:17
Pelena Дата: Понедельник, 08.11.2021, 10:22 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Для начала определить, как нужные листы отличить от ненужных.
Например, составить список или включить в название листа кодовое слово или ещё как-то

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеДля начала определить, как нужные листы отличить от ненужных.
Например, составить список или включить в название листа кодовое слово или ещё как-то
Автор - Pelena
Дата добавления - 08.11.2021 в 10:22
ZDik Дата: Понедельник, 08.11.2021, 10:24 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Синх
 
Ответить
СообщениеСинх
Автор - ZDik
Дата добавления - 08.11.2021 в 10:24
Pelena Дата: Понедельник, 08.11.2021, 11:10 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Public Sub Sinc()
    Dim ish As Worksheet, arr, i&
    arr = Array(1, 2, 3)    'номера столбцов для синхронизации
    Application.ScreenUpdating = False
    For Each ish In Worksheets
        If ish.Name <> ActiveSheet.Name And LCase(ish.Name) Like "*синх*" Then
            For i = LBound(arr) To UBound(arr)
                Intersect(ActiveSheet.UsedRange, Columns(arr(i))).Copy ish.Cells(1, arr(i))
            Next i
        End If
    Next ish
    Application.ScreenUpdating = True
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Public Sub Sinc()
    Dim ish As Worksheet, arr, i&
    arr = Array(1, 2, 3)    'номера столбцов для синхронизации
    Application.ScreenUpdating = False
    For Each ish In Worksheets
        If ish.Name <> ActiveSheet.Name And LCase(ish.Name) Like "*синх*" Then
            For i = LBound(arr) To UBound(arr)
                Intersect(ActiveSheet.UsedRange, Columns(arr(i))).Copy ish.Cells(1, arr(i))
            Next i
        End If
    Next ish
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - Pelena
Дата добавления - 08.11.2021 в 11:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Полная синхронизация столбцов (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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