Форматирование данных таблицы

[iami]

Добрый день!
Есть цель - изменить шрифт и формат таблицы. Некоторые строки/столбцы уже скрыты. При данном решении:

Dim objCell As Range
    For Each objCell In ActiveWorkbook.ActiveSheet.UsedRange.Cells
        With objCell.Font
            .Name = "Arial"
            .Size = 8            
        End With
        With objCell
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter            
        End With
        objCell.ColumnWidth = 7
        objCell.RowHeight = 12
    Next objCell

Все невидимое становится вновь видимым. Как выделить только видимую часть и с ней работать?

[kuklp]

Заменить строку:

 For Each objCell In ActiveWorkbook.ActiveSheet.UsedRange.Cells

строкой:

For Each objCell In ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(12)

Если не выйдет, тогда Ваш пример.

[iami]

Как предложено-работает, но кол-во может быть не 12.
В файле-пример макроса

[IgorGO]

))
12 - это не количество, это тип ячеек можете заменить такой констатой xlCellTypeVisible.

[kuklp]

Спасибо, Игорь. Второй раз за сегодня меня выручаешь:-)

[iami]

)))
стыдно, стыдно....
А как тогда расширить диапазон на большее кол-во строк?

[kuklp]

UsedRange как раз и охватывает все используемые строки(столбцы).

[iami]

У меня он на большее кол-во столбцов замахивается

[kuklp]

Сообщение от iami

У меня он на большее кол-во столбцов замахивается

iami, Вы сами себя понимаете?
Вы пишете:" Все невидимое становится вновь видимым. Как выделить только видимую часть и с ней работать?". Вам показали как.
Дальше-больше: "А как тогда расширить диапазон на большее кол-во строк?"
Большее к-во - это уже пустые строки!
Дальше: То, что в цитате.
Кто он? Может стоит подумать над формулировкой задачи? Это не форум экстрасенсов.

[Hugo121]

Сергей, я думаю, что он - это UsedRange или макрос.
Ну а с UsedRange сам знаешь как - не только то, где данные есть, но и то, где они были, где форматирование, заливка и т.д.