Exit For

End If

Next W

if ActiveWorkbook.Name <> "Расходы-1999.xls" Then

Workbooks.Open _

FileName:="D:\Примеры\Расходы-1999.xls"

End If

Windows("Расходы-1999.xls").Activate

Sheets("Выборочные итоги").Select

Range("A1:B3").Select

Selection.Consolidate Sources:=Array( _

"'D:\Примеры\[Расходы‑1999.xls]Квартал1'!R1C1:R5C5", _

"'D:\Примеры\[Расходы-1999.xls]Квартал2'!R1C1:R5C5", _

"'D:\Примеры\[Расходы-1999.xls]Квартал3'!R1C1:R5C5", _

"'D:\Примеры\[Расходы-1999.xls]Квартал4'!R1C1:R5C5"), _

Function:=xlSum, TopRow:=True, _

LeftColumn:=True, CreateLinks:=True

End Sub

Использование именованных диапазонов облегчает ввод ссылок.

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

При работе с электронными таблицами бывает необходимо не только ввести табличные данные и выполнить расчеты, но и представить информацию в нужном формате.

При работе с Excel форматирование можно выполнять на уровне страниц, строк и столбцов, отдельных ячеек и символов текста, представляющих значения ячеек.

Для определения формата страницы следует выполнить команду Параметры страницы меню Файл. В открывшемся диалоговом окне, выбрав соответствующую вкладку, можно определить характеристики страниц (размер бумаги и ориентацию, а также другие свойства), размеры полей, ввести или отменить колонтитулы, выводимые при печати внизу и вверху каждой страницы, задать способ печати содержимого рабочих листов.

Ниже приведена процедура форматирования страницы с помощью которой устанавливаются следующие параметры: размер бумаги – A4; ориентация – книжная («портрет»); качество печати – 300 точек на дюйм; в центра верхнего колонтитула выводится строка "Пример форматирования страницы"; в нижний колонтитул включается дата (слева), номер страницы (в центре) и время (справа); размеры всех полей – 2 см (размеры переведены в дюймы); отступы колонтитулов – по 1,3 см (переведены в дюймы); таблица при печати центрируется по горизонтали и по вертикали; сетка не печатается; комментарии не печатаются; номер первой страницы определяется автоматически; установлены в качестве сквозных первая строка и первый столбец (если таблица не войдет при печати на одну страницу, они будут выводиться на каждой странице); если таблица разбивается на несколько страниц, то порядок их печати будет «вниз, затем вправо». Текст процедуры можно получить с помощью средств макрогенерации.

Sub Параметры_Страницы()

With ActiveSheet.PageSetup

.PrintTitleRows = "$1:$1"

.PrintTitleColumns = "$A:$A"