Developing.ru

Что можно сделать, чтобы каждый раз не тратить время на задание для всех ячеек листа (книги) параметров: выравнивание по верхнему краю и переносить по словам?

Создай шаблон (*.xlt) и на основе него создовай книги.

Что можно сделать

... "Автоматизировать", создай кнопку, и нажимай когда требуется...

Код: Выделить всё

Sub Макрос1()
    With Cells
        .VerticalAlignment = xlTop
        .WrapText = True
    End With
End Sub

Ув. Avsha, а что делает предложенная Вами "кнопка"? Во всех листах книги нужную настройку, или только на данном листе, или в выделенных ячейках?

Выделяете необходимый диапазон и применяете формат для выделения.

Код: Выделить всё

Sub Формат_Select()
    With Selection
        .VerticalAlignment = xlTop
        .WrapText = True
    End With
End Sub

Формат применяется к текущему активному листу

Код: Выделить всё

Sub Формат_Лист()
    With Application.ActiveSheet.Cells
        .VerticalAlignment = xlTop
        .WrapText = True
    End With
End Sub

Формат применяется ко все листам текущей активной рабочей книги

Код: Выделить всё

Sub Формат_Книга()
   Dim iSheet As Worksheet
    For Each iSheet In Application.ActiveWorkbook.Worksheets
        With iSheet.Cells
            .VerticalAlignment = xlTop
            .WrapText = True
        End With
    Next
End Sub

Подготовил надстройку, содержащую вышеприведенные макросы.
http://avsha.narod.ru/AddIn_Format.rar
Надстройка содержит вложенную панель инструментов с тремя кнопками.
скопируйте ее в папку ...
C:\Documents and Settings\USER\Application Data\Microsoft\AddIns\AddIn_Format.xla
и подключите в Excel...
меню Сервис\Надстройки\AddIn_Format

Developing.ru

Что можно сделать: выравнивание по верхнему, переносить по..

Что можно сделать: выравнивание по верхнему, переносить по..