WedX - журнал о программировании и компьютерных науках

После создания листа скопируйте ШАБЛОН скрытого листа

Используя макросы Excel 2013, я хотел бы иметь возможность после создания рабочего листа (знак «+» или щелчок правой кнопкой мыши, новый рабочий лист) вместо создания нового рабочего листа скопировать скрытый рабочий лист «ШАБЛОН», чтобы использовать его в качестве шаблон для этой книги. Изначально будет создано много рабочих листов, и со временем эта книга будет использоваться каждый день с потенциально открытыми в то же время другими рабочими книгами.

Код, который у меня уже есть, просит пользователя ввести имя рабочего листа при создании и вызывает алфавитно-цифровую сортировку рабочих листов текущей книги и перестроение оглавления. Есть ли способ изменить текущий код, чтобы он соответствовал его новой цели? ПРИМЕЧАНИЕ. Этот код находится в ThisWorkbook.

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    Dim sName As String
    Dim bValidName As Boolean
    Dim i As Long

    bValidName = False

    Do While bValidName = False
        sName = InputBox("Please name this new worksheet:", "New Sheet Name", Sh.Name)
            If Len(sName) > 0 Then
            For i = 1 To 7
                sName = Replace(sName, Mid(":\/?*[]", i, 1), " ")
            Next i
            sName = Trim(Left(WorksheetFunction.Trim(sName), 31))
            If Not Evaluate("ISREF('" & sName & "'!A1)") Then bValidName = True
        End If
    Loop

    Sh.Name = sName

    Call Sort_Active_Book
    Call Rebuild_TOC

End Sub

Изменить 1: Примечание. Рабочий лист «ШАБЛОН» относится только к этой книге, его не нужно использовать в другой книге, и он является скрытым рабочим листом в этой книге.

excel vba
29.01.2016

  • Позвонить shtTemplate.Copy() и Sh.Delete()? 29.01.2016

Ответы:


1

Обновленный код. GSerg прав:

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    Dim wb as Workbook
    Dim wsTemp as Worksheet
    Dim sName As String
    Dim bValidName As Boolean
    Dim i As Long

    bValidName = False

    Do While bValidName = False
        sName = InputBox("Please name this new worksheet:", "New Sheet Name", Sh.Name)
            If Len(sName) > 0 Then
            For i = 1 To 7
                sName = Replace(sName, Mid(":\/?*[]", i, 1), " ")
            Next i
            sName = Trim(Left(WorksheetFunction.Trim(sName), 31))
            If Not Evaluate("ISREF('" & sName & "'!A1)") Then bValidName = True
        End If
    Loop

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
    End With

    Set wb = ThisWorkbook
    Set wsTemp = wb.Sheets("TEMPLATE")
    wsTemp.Visible = xlSheetVisible
    wsTemp.Copy After:=wb.Sheets(wb.Sheets.Count)
    ActiveSheet.Name = sName
    Sh.Delete
    wsTemp.Visible = xlSheetHidden   'Or xlSheetVeryHidden

    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
        .EnableEvents = True
    End With

    Call Sort_Active_Book
    Call Rebuild_TOC

End Sub
29.01.2016
  • Это правда, что GSerg сначала исправил это, но, учитывая, что вы опубликовали полный код, я отмечаю это как ответ. Я плохо разбираюсь в макросах Excel, поэтому этот ответ был для меня самым полезным. Помечено как ответ, спасибо вам обоим! 01.02.2016

    • 2

    Сохранено ли в вашем шаблоне место, откуда вы могли бы извлечь его для всех, кому он нужен? В противном случае вам просто нужно будет создать макрос для форматирования шаблона.

    Если у вас есть готовый шаблон, вам просто нужен полный путь к этому файлу. Я бы выключил application.screenupdating = false и открыл этот файл, скопировал нужный лист и вставил его в текущий документ, затем закрывал файл шаблона и application.screenupdating = true.

    Редактировать:

    Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Template").Visible = True
sheets("Template").copy after:=Sheets(1)
Sheets("Template").Visible = False
ActiveSheet.Name = sName
Sheets(Sh.Name).Delete

Application.ScreenUpdating = True
Application.DisplayAlerts = True

    Это сработает, вам просто нужно будет изменить путь к шаблону

    29.01.2016
  • Я отредактировал ваш ответ, чтобы уточнить, где находится рабочий лист TEMPLATE. Он содержится в этой книге, и его нужно будет использовать только в этой книге. Если нужно, не могли бы вы отредактировать свой пост, чтобы отразить это? Кроме того, не вызовет ли отключение ScreenUpdating какие-либо проблемы с моим уже существующим кодом в разделе ThisWorkbook? 29.01.2016
  • Я также обновил свой код, чтобы показать вам эти изменения. 29.01.2016
    • Новые материалы
    Объяснение документов 02: BERT
    BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..
    Как проанализировать работу вашего классификатора?
    Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..
    Работа с цепями Маркова, часть 4 (Машинное обучение)
    Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..
    Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
    Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..
    Использование машинного обучения и Python для классификации 1000 сезонов новичков MLB Hitter
    Чему может научиться машина, глядя на сезоны новичков 1000 игроков MLB? Это то, что исследует это приложение. В этом процессе мы будем использовать неконтролируемое обучение, чтобы..
    Учебные заметки: создание моего первого пакета Node.js
    Это мои обучающие заметки, когда я научился создавать свой самый первый пакет Node.js, распространяемый через npm. Оглавление Глоссарий I. Новый пакет 1.1 советы по инициализации..
    Забудьте о Matplotlib: улучшите визуализацию данных с помощью умопомрачительных функций Seaborn!
    Примечание. Эта запись в блоге предполагает базовое знакомство с Python и концепциями анализа данных. Привет, энтузиасты данных! Добро пожаловать в мой блог, где я расскажу о невероятных..
    Для любых предложений по сайту: [email protected]