Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

18 Май 2021, 16:14 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Удалить все неиспользуемые стили из электронной таблицы Calc  (Прочитано 700 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

Пол: Мужской
Сообщений: 404


WWW
« Ответ #57973: 26 Март 2021, 16:52 »

В Excel можно начать со следующей базовой конструкции (VBA):

Код:
Option Explicit

' Копирует в новую книгу все листы активной книги.
' Если VisibleOnly=True (умолчание), то копируются только видимые листы.
Sub CopySheets(Optional ByVal VisibleOnly As Boolean = True)
  Dim sh As Worksheet, arr(), i As Long
  ReDim arr(Worksheets.Count - 1)
  i = -1
  For Each sh In ActiveWorkbook.Worksheets
    If sh.Visible = xlSheetVisible Or Not VisibleOnly Then
      i = i + 1
      arr(i) = sh.Name
    End If
  Next sh
  If i >= 0 Then
    If i < UBound(arr) Then ReDim Preserve arr(i)
    Worksheets(arr).Copy
  End If
End Sub
Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!