Здравствуйте. Ребята возможно ли формулой или макросом изменять имена заголовков в умной Табл2 при ручном изменении заголовков текста в умной Табл1, с тем условием что на конце текста, заголовков умной таблице Табл2, должны стоять точки. В примере показано.
Здравствуйте. Ребята возможно ли формулой или макросом изменять имена заголовков в умной Табл2 при ручном изменении заголовков текста в умной Табл1, с тем условием что на конце текста, заголовков умной таблице Табл2, должны стоять точки. В примере показано.Сергей13
Макрос только проверяет, произошло ли изменение в умной таблице 1, в шапке. А затем уже работает без учета умных таблиц, а относительно листа, т.к. предполагается, что умные таблицы распложены на обоих листах, начиная с "A1". Макрос находится в модуле листа 1 и запускается, когда пользователь вносит изменения на лист 1.
Макрос только проверяет, произошло ли изменение в умной таблице 1, в шапке. А затем уже работает без учета умных таблиц, а относительно листа, т.к. предполагается, что умные таблицы распложены на обоих листах, начиная с "A1". Макрос находится в модуле листа 1 и запускается, когда пользователь вносит изменения на лист 1.Karataev
Вариант для произвольного расположения таблиц [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim Tbl As ListObject, col& Set Tbl = ActiveSheet.ListObjects("Табл1") If Not Intersect(Target, Tbl.HeaderRowRange) Is Nothing Then col = Target.Column - Tbl.Range.Column + 1 Sheets("Лист2").ListObjects("Табл2").HeaderRowRange.Columns(col).Value = Target.Value & "." End If End Sub
[/vba]
Вариант для произвольного расположения таблиц [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim Tbl As ListObject, col& Set Tbl = ActiveSheet.ListObjects("Табл1") If Not Intersect(Target, Tbl.HeaderRowRange) Is Nothing Then col = Target.Column - Tbl.Range.Column + 1 Sheets("Лист2").ListObjects("Табл2").HeaderRowRange.Columns(col).Value = Target.Value & "." End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
