0 / 0 / 0
Регистрация: 29.07.2021
Сообщений: 2
|
|
1 | |
Автоматическое обновление данных с форматированием29.07.2021, 18:01. Показов 968. Ответов 2
Добрый день! Подскажите, пожалуйста, как сделать:
У меня есть исходная таблица (хранится в облаке), я ее постоянно редактирую, форматирую, группирую и тд. Мне надо сделать несколько таблиц (назовем их итоговые) на основе исходной (с разным набором столбцов), чтобы эти итоговые таблицы автоматически брали из исходной не только данные ячеек, но и форматирование (например, заливка цветом, цвет шрифта, если возможно переносить и группирование строк и столбцов, то будет вообще круто). Чтобы я в своей исходной изменила заливку ячейки или внесла новые данные, сохранила и те, кого есть доступ к какой-то из итоговых таблиц видели изменения в своей итоговой табличке, чтобы я не изменяла форматирование в каждой из итоговых. Это возможно? Отличие итоговых друг от друга и от моей исходной только в наличии некоторых столбцов. Например, прорабу не нужно видеть номер счета, отделу снабжения не нужно видеть комментарии руководства, а руководству не нужны мои вспомогательные столбцы. С макросами никогда не работала. Могу попробовать в них поковыряться, но не уверена, что получится
0
|
29.07.2021, 18:01 | |
Ответы с готовыми решениями:
2
автоматическое обновление данных Автоматическое обновление базы данных Автоматическое обновление данных в колонтитуле Автоматическое обновление данных ADOTable при добавлении данных другим экземляром программы |
0 / 0 / 0
Регистрация: 29.07.2021
Сообщений: 2
|
|
03.08.2021, 10:43 [ТС] | 2 |
В итоге я решила проблему написанием макроса, который копирует данные из исходной книги. Осталось понять как заставить макрос открывать исходную книгу по ссылке в я.диске.
Вот код на открытие файла с исходными данными и копированием столбцов: Код
Private Sub Workbook_Open() Workbooks.Open ("C:\Users\User\Desktop\Тсет\Книга1.xlsx") Dim sourceColumn As Range, targetColumn As Range Set sourceColumn = Workbooks("Книга1.xlsx").Worksheets(1).Columns("A:B" & lr) Set targetColumn = Workbooks("Книга3.xlsm").Worksheets(1).Columns("A:B") Set sourceColumn2 = Workbooks("Книга1.xlsx").Worksheets(1).Columns("E" & lr) Set targetColumn2 = Workbooks("Книга3.xlsm").Worksheets(1).Columns("C") sourceColumn.Copy Destination:=targetColumn sourceColumn2.Copy Destination:=targetColumn2 Workbooks("Книга1.xlsx").Close End Sub
0
|
малоболт
1303 / 490 / 208
Регистрация: 30.01.2020
Сообщений: 1,202
|
|
03.08.2021, 17:04 | 3 |
Можно скриптом копировать с я-диска в папку временных файлов или в папку "Документы" и открывать с ожиданием завершения. А после сохранения копировать обратно на я-диск.
Можно в тот же скрипт добавить создание всех вторичных файлов после закрытия основного. И только затем копирование их всех на я-диск.
0
|
03.08.2021, 17:04 | |
03.08.2021, 17:04 | |
Помогаю со студенческими работами здесь
3
Автоматическое обновление данных Автоматическое обновление данных Автоматическое обновление данных в БД Автоматическое обновление данных в Combobox с БД Автоматическое обновление данных из БД на странице Автоматическое обновление данных в DataGridView Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |