Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Erix_ru
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Сбой Условного форматирования по умолчанию после обновления Excel, После обновления Excel во всех правилах условного форматирования установился по умолчанию зачеркнутый шрифт
 
#
08.12.2024 16:13:16
Всем доброго временени суток,
Может быть кто-то уже встречался с похожей проблемой? Сегодня 08.12.2024 обновил Excel до последнй версии (используется версия Офис Про Плюс 2021)  и после обновления в условном форматировании во всех файлах (!) в "формате ячеек" на вкладке "шрифт" свойство "видоизменение" для типа шрифта зачеркнутый показывает "-" как будто бы установлено это свойство для некоторых ячеек в ИСТИНА.
И для всех диапазонов этого условного форматироывания шрифт зачеркнутый. Данное свойство проявляется во всех правилах условного форматирования!
ОДНАКО, обнаружил следующее - при запуске и остановке макроса, запускаю команду Application.Calculation =xlCalculationAutomatic и данное свойсто пропадает, но как только запускаю Application.Calculation =xlCalculationManual и жму F9 свойство снова появляется и все ячейки снова с зачеркнутым шрифтом.
Если кто-то уже нашел решение, поделитесь пожалуйста
 
Перейти    
Работа со строками при одновременном использовании Автофильтров в нескольких столбцах, использование AutoFilter по нескольким столбцам
 
#
01.06.2016 15:57:48
Всем доброго дня,
прошу помощи в следующем:
в таблице с большим количеством данных для фильтрации нужных строк используем Автофильтры по нескольким столбцах. Далее требуется в оставшиеся строки вставить информацию например из InputBox-а, и посчитать сумму ячеек в определенном столбце оставшихся строк. Отфильтрованные строки отлично выбираются кодом AutoFilter.Range.Offset(1, 0).Resize(..... ОДНАКО есть проблемка -- при обращении к выбранным строкам через Selection.Areas получаем их перечисление несколько раз. Где "зарыта собака" никак не найду. Прошу помочь. Заранее всем спасибо!

Код следующий:
Код
Sub test()
ActiveSheet.AutoFilter.Range.Offset(1, 0).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 4, ActiveSheet.AutoFilter.Range.Columns.Count).EntireRow.SpecialCells(xlCellTypeVisible).Select
Debug.Print Selection.Areas.Count
    For Each i In Selection.Areas 
        Debug.Print i.Row
    Next i
End Sub
 
Перейти    
Страницы: 1
Наверх