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

Вход

Регистрация

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

 

= Мир MS Excel/Зависимые заголовки динамической таблицы - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зависимые заголовки динамической таблицы (Формулы/Formulas)
Зависимые заголовки динамической таблицы
Сергей13 Дата: Понедельник, 25.02.2019, 21:21 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 222
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Ребята возможно ли формулой или макросом изменять имена заголовков в умной Табл2 при ручном изменении заголовков текста в умной Табл1, с тем условием что на конце текста, заголовков умной таблице Табл2, должны стоять точки.
В примере показано.
К сообщению приложен файл: tbl.zip(58.5 Kb)


Сообщение отредактировал Сергей13 - Понедельник, 25.02.2019, 21:29
 
Ответить
СообщениеЗдравствуйте.
Ребята возможно ли формулой или макросом изменять имена заголовков в умной Табл2 при ручном изменении заголовков текста в умной Табл1, с тем условием что на конце текста, заголовков умной таблице Табл2, должны стоять точки.
В примере показано.

Автор - Сергей13
Дата добавления - 25.02.2019 в 21:21
Karataev Дата: Понедельник, 25.02.2019, 22:33 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1326
Репутация: 524 ±
Замечаний: 0% ±

Excel
Макрос только проверяет, произошло ли изменение в умной таблице 1, в шапке. А затем уже работает без учета умных таблиц, а относительно листа, т.к. предполагается, что умные таблицы распложены на обоих листах, начиная с "A1".
Макрос находится в модуле листа 1 и запускается, когда пользователь вносит изменения на лист 1.
К сообщению приложен файл: tbl-kar.xlsm(19.3 Kb)


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеМакрос только проверяет, произошло ли изменение в умной таблице 1, в шапке. А затем уже работает без учета умных таблиц, а относительно листа, т.к. предполагается, что умные таблицы распложены на обоих листах, начиная с "A1".
Макрос находится в модуле листа 1 и запускается, когда пользователь вносит изменения на лист 1.

Автор - Karataev
Дата добавления - 25.02.2019 в 22:33
Pelena Дата: Понедельник, 25.02.2019, 23:00 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 14010
Репутация: 3066 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Вариант для произвольного расположения таблиц
[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]
К сообщению приложен файл: tbl.xlsm(20.3 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВариант для произвольного расположения таблиц
[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]

Автор - Pelena
Дата добавления - 25.02.2019 в 23:00
Сергей13 Дата: Среда, 27.02.2019, 19:20 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 222
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо ребята, устроит то, что было необходимо.
 
Ответить
СообщениеСпасибо ребята, устроит то, что было необходимо.

Автор - Сергей13
Дата добавления - 27.02.2019 в 19:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Зависимые заголовки динамической таблицы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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