7.Активизируйте Excel. Выберите команду Разработчик^Код1^Макросы (Develo­ per1^ Code^Macros) для отображения диалогового окна Макрос (Macro).

8.В диалоговом окне Макрос (Macro) выберите процедуру Sort Sheets и щелк­ ните на кнопке Параметры (Options), чтобы присвоить данному макросу комби­ нацию клавиш. Неплохим выбором будет <Ctrl+Shift+S>.

Написание кода

Теперь пришло время приступить к написанию программы. Вначале необходимо по­ местить названия листов в массив строк. Так как пока неизвестно, сколько листов со­ держит активная рабочая книга, для объявления массива используем оператор Dim с пустыми скобками. Помните, что всегда можно применить оператор ReDim и изменить размерность массива на требуемое число элементов.

Введем код, вставляющий названия листов в массив SheetNames. Кроме того, в цикл добавим функцию MsgBox, чтобы убедиться, что названия листов на самом деле вводятся в массив.

Чтобы проверить эту программу, активизируем рабочую книгу Test.xlsm и нажмем клавиши <Ctrl+Shift+S>. Появится пять окон сообщений с названиями листов активной ра­ бочей книги.

Рекомендуем вам тестировать код по мере его создания. Когда вы убедитесь, что про­ грамма работает правильно, удалите операторы MsgBox (через некоторое время они начнут вас раздражать).

Совет

Вместо того чтобы использовать функцию M sg B o x в целях тестирования, можно обратиться к методу P r i n t объекта D ebug, который отображает све­ дения в окне отладки. Для этого замените M sgB o x следующим оператором:

D e b u g . P r in t S h e e tN a m e s (i)

Этот прием не столь навязчив по сравнению с использованием операто­ ров M sg B o x . Не забудьте только удалить этот оператор по завершении тестирования.

На данном этапе процедура Sort Sheets всего лишь создает массив названий лис­ тов в соответствии с порядком указания их в активной рабочей книге. Остается два шага: отсортировать значения в массиве SheetNames и изменить порядок следования листов в книге согласно отсортированному массиву.

Программа, записанная раньше, вновь пригодилась. Помните инструкцию, которая была получена при перемещении листа в рабочей книге в первую позицию.

S h e e ts( " Л и с т З " ) . M ove B e f o r e : = S h e e t s (1)

Далее напишем цикл F or-N ext, который просматривает каждый лист и перемещает его в соответствующее место, указанное в массиве SheetNames.

Например, в первой итерации цикла счетчик (i) равен 1. Первый элемент массива SheetNames (в данном примере) — лист Лист1. Следовательно, выражение для мето­ даMove в цикле будет таким.

S h e e ts( " Л и с т 1 " ) .M ove B e f o r e : = S h e e t s ( l)

После выполнения второй итерации цикла выражение имеет следующий вид.

S h e e ts( " Л и с т 2 " ) .M ove B e f o r e := S h e e t s (2)

В процедуру S o rt S h e e ts добавим новый код.

S h e e tC o u n t = A c t iv e W o r k b o o k . S h e e t s . C o u n t

ReDim S h e e tN a m e s (1 To S h e e tC o u n t)

F o r i = 1 T o S h e e tC o u n t

S h e e tN a m e s ( i) = A c t iv e W o r k b o o k . S h e e t s ( i) . N a m e

N ext i

C a ll B u b b le S o r t( S h e e tN a m e s )

F o r i = 1 T o S h e e tC o u n t

A c t iv e W o r k b o o k . S h e e t s ( S h e e t N a m e s ( i) ) .M ove _

B e f o r e : = A c tiv e W o r k b o o k . S h e e t s (i )

N ext i

End Sub

Тестирование показало, что процедура прекрасно работает с рабочей книгой Test .xlsm .

Теперь необходимо собрать весь код. Объявим все переменные, используемые в про­ цедурах, и добавим несколько комментариев, а также пустых строк, чтобы программу можно было легче прочесть. В результате процедура S o rtS h e e ts будет приведена к следующему виду.