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

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

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

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

Сообщений: 1 468


« Ответ #57138: 21 Январь 2021, 15:31 »

Мне попадался от hh тандера файлик с 11 тыс. стилей(!), тупил он безбожно.
Проблемы достигают такого уровня, что вместо чисел выводятся даты итп. Т.е. заболевает стиль ОБЩИЙ. Решение - загрузить чистые стили по умолчанию из другой пустой книги:
Создаем чистую книгу Excel с дефолтными стилями и делаем её ReadOnly. В больном файле запускаем макрос.
Код:
Sub MergeMyStyles()
' импортирует стили ячеек в эту книгу
    ans = MsgBox("Внимание! Если у Вас вместо чисел в ячейках вводятся даты - можно вылечить стиль ОБЩИЙ! Вылечить? ", vbYesNo + vbQuestion)
    If ans = 6 Then
    Dim StylesWb As Workbook
    Set StylesWb = GetObject("M:\BACKUP\!СтилиТолькоЧтение.xlsx")
    Application.DisplayAlerts = False
        ActiveWorkbook.Styles.Merge StylesWb
        StylesWb.Close
    Application.DisplayAlerts = True
    End If
   
    ans = MsgBox("Лечение формата завершено. Новые листы будут здоровыми. В старых листах - проверьте формат - Общий (или Стиль - Обычный)", vbYesNo + vbQuestion)
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!