Показать сообщение отдельно
Старый 17.12.2008, 16:15   #16  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1149 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Иван, вот еще вариант из старого чулана. Думаю, должен понравиться

Если ты можешь использовать какую-то свободную колонку для простановки метки, которая будет означать, что это строка данных, то можно попробовать так (эту служебную колонку потом можно удалить):

1. Выбираешь пустую колонку. В VBA-примере ниже - это колонка A.
2. Если строку надо выделять и форматитровать, то пишем в эту колонку 1. В противном случае оставляем ячейку пустую.
3. Выполняем "ручную" операцию "Правка - Перейти - Выделить - Константы - Числа".
4. Получившееся выделение распространяем на всю ширину листа.

На VBA это выглядит примерно вот так:
Код:
 
Sub ExcelVBAMacro1()

    Dim rng As Range

    'как будто это мы проставили при выводе отчета:   
    Range("A12:A16,A18:A22,A24:A28,A30:A34,A36:A40").Value = 1 
    'если строка будет капризничать, то заменить , на ;
    
    Set rng = ActiveSheet.Columns("A:A")
    
    Set rng = rng.SpecialCells(xlCellTypeConstants, 1).EntireRow
    rng.Select
    
End Sub

Результат работы этого кода:

Нажмите на изображение для увеличения
Название: ranges.jpg
Просмотров: 497
Размер:	80.5 Кб
ID:	4066