Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Удаление элементов управления с листов из списка
 
#1
06.09.2018 13:45:43
Добрый день!

Друзья, нужна помощь в отладке кода, а именно в части формулировки команды на удаление элемента управления формы - флажок.
Код
Sub Clear()
    Dim BazaWb As Workbook 'отчет
    Dim BazaList As Range 'список проверяемых листов
    Dim iNameSht As String ' имя проверяемого листа
        Set BazaWb = ThisWorkbook
        Set BazaList = BazaWb.Worksheets("Адрес").Range("F2:F6") 'устанавливаем список листов
            For Each n In BazaList 'для каждого листа из списка удаляем элементы управления
                iNameSht = n
                If iNameSht <> "" And iNameSht <> "КТТ" Then 'исключаем из проверки один из листов в списке и пустые позиции
                With Sheets(iNameSht)
                    Rows.Hidden = False   'отменяем все скрытия строк
                    Columns.Hidden = False   'отменяем все скрытия строк
                    .Shapes.Delete
                End With
                End If
            Next
End Sub
 
 
 
#2
06.09.2018 14:22:36
Приложите файл пример.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#3
06.09.2018 14:29:47
Код
Sub iDel()
    For Each sp In ActiveSheet.Shapes
        If sp.Type = 8 Then sp.Delete
    Next
End Sub
 
 
 
#4
06.09.2018 14:39:28
Прикладываю пример
 
 
 
#5
06.09.2018 14:57:24
Код
Sub Мяу()
    Dim Cell As Range
    On Error Resume Next
    For Each Cell In Worksheets("Адрес").Range("F2:F6")
        Worksheets(CStr(Cell.Value)).CheckBoxes Delete
    Next
End Sub
 
 
 
#6
06.09.2018 15:18:45
Спасибо, RAN!  С твоим решением код из примера тоже заработал.
Код
Sub Clear()
    Dim BazaWb As Workbook 'консолидирующая книга
    Dim BazaList As Range 'список консолидируемых листов
        Set BazaWb = ThisWorkbook
        Set BazaList = BazaWb.Worksheets("Адрес").Range("F2:F6") 'устанавливаем список листов
            For Each n In BazaList 'для каждого листа из списка удаляем элементы управления
                iNameSht = n
                If iNameSht <> "" And iNameSht <> "КТТ" Then
                With Sheets(iNameSht)
                    .Rows.Hidden = False   'отменяем все скрытия строк
                    .Columns.Hidden = False   'отменяем все скрытия строк
                    .CheckBoxes.Delete
                End With
                End If
            Next
End Sub
 
 
 
#7
06.09.2018 15:25:51
Александр, у нас на форуме к незнакомым людям принято обращаться на ВЫ.
 
 
 
#8
06.09.2018 15:34:59
Прошу прощения, RAN. Очень обрадовался решению, предложенному Вами  :)  
 
 
 
Страницы: 1
Наверх