Дата публикации: 13-10-2026 12:03:38

Удаление листов по кнопке в форуме Вопросы по Microsoft Excel.
Добрый день! МатросНаЗебре помог с макросом - по кнопке вставляет листы в книгу и именует их датами по возрастанию (при этом кнопка копирования при вставке нового листа с предыдущего удаляется):
====code====
Sub Копировать_лист()
    SheetCopy ActiveSheet
End Sub

Sub SheetCopy(shSource As Worksheet)
    Dim sName As String
    sName = shSource.Name
    If sName Like "*.*" Then
        If IsDate(sName & "." & Year(Date)) Then
            Dim dt As Date
            dt = CDate(sName & "." & Year(Date))
            dt = dt + 1
            sName = Format(dt, "DD.MM")
              
            Dim shTarget As Worksheet
            On Error Resume Next
            Set shTarget = shSource.Parent.Worksheets(sName)
            On Error GoTo 0
            If Not shTarget Is Nothing Then
                If MsgBox("Лист " & sName & " существует. Удалить?", vbQuestion + vbYesNo, "Копирование листа") = vbYes Then
                    Application.DisplayAlerts = False
                    shTarget.Delete
                    Application.DisplayAlerts = True
                    Set shTarget = Nothing
                End If
            End If
            If shTarget Is Nothing Then
                shSource.Copy After:=shSource
                Set shTarget = shSource.Parent.Worksheets(shSource.Index + 1)
                shTarget.Name = sName
'                shTarget.Buttons.Delete ' удаляеткнопку на текущем листе
                shSource.Buttons.Delete 'удаляет кнопку на предыдущем листе
'                shSource.Activate
            End If
        End If
    End If
End Sub
=============
А помогите, пожалуйста, реализовать ту же задачу, только наоборот - по кнопке удалить все листы, за исключением одного, на котором кнопки копирования и удаления (хотелось бы чтобы кнопки копирования и удаления также удалялись с предыдущих листов, оставались только на активном (вновь созданным))?
Пример шаблон.xlsx13.10.2026 15:03:38, evg_glaz.

Основное содержимое страницы с новостью.

Sub Копировать_лист()
    SheetCopy ActiveSheet
End Sub
 
Sub SheetCopy(shSource As Worksheet)
    Dim sName As String
    sName = shSource.Name
    If sName Like "*.*" Then
        If IsDate(sName & "." & Year(Date)) Then
            Dim dt As Date
            dt = CDate(sName & "." & Year(Date))
            dt = dt + 1
            sName = Format(dt, "DD.MM")
              
            Dim shTarget As Worksheet
            On Error Resume Next
            Set shTarget = shSource.Parent.Worksheets(sName)
            On Error GoTo 0
            If Not shTarget Is Nothing Then
                If MsgBox("Лист " & sName & " существует. Удалить?", vbQuestion + vbYesNo, "Копирование листа") = vbYes Then
                    Application.DisplayAlerts = False
                    shTarget.Delete
                    Application.DisplayAlerts = True
                    Set shTarget = Nothing
                End If
            End If
            If shTarget Is Nothing Then
                shSource.Copy After:=shSource
                Set shTarget = shSource.Parent.Worksheets(shSource.Index + 1)
                shTarget.Name = sName
'                shTarget.Buttons.Delete ' удаляеткнопку на текущем листе
                shSource.Buttons.Delete 'удаляет кнопку на предыдущем листе
'                shSource.Activate
            End If
        End If
    End If
End Sub

Схожие новости