Здравствуйте!
Есть задача по созданию на активном листе заголовка таблицы, с такими условиями:
Есть задача по созданию на активном листе заголовка таблицы, с такими условиями:
- Образец заголовка таблицы находится на листе книги активной надстройки (например «Надстройка.xlam») в именованном диапазоне (например «Заголовок»);
- Надстройка.xlam содержит UserForm которая вызывается с ленты;
- На UserForm размещена кнопка по которой выполняется обращение к свойству IsAddin с изменением его состояния (IsAddin = False) после чего копирование диапазона «Заголовок», восстановление IsAddin = True, создание в ActiveWorkbook листа, вставка на лист скопированного диапазона.
| Код |
|---|
Private Sub CommandButton1_Click()
Dim WBADN As Workbook
Set WBADN = Workbooks("Надстройка.xlam")
WBADN.IsAddin = False
WBADN.Sheets("Лист заголовка").Range("Заголовок").Copy
WBADN.IsAddin = True
ActiveWorkbook.Sheets.Add After:=ActiveSheet
ActiveWorkbook.ActiveSheet.Paste
End Sub |
