Коллекция Work Sheets Коллекция Worksheets содержит листы открытой

Коллекция Work. Sheets Коллекция Worksheets содержит листы открытой книги. Ее свойства и методы служат для работы с ними. Методы коллекции Worksheets Add - добавляем листы в книгу Позволяет добавить в книгу новый лист. Полный вызов метода выглядит так: Add(Before, After, Count, Type) Before (До) и After (После) позволяют задавать позицию листа относительно других листов книги (можно использовать лишь один из них), Count задает количество добавляемых листов, а Type - тип листа. Чаще всего этот метод используют без параметров. Например, в следующем примере добавляется новый лист в книгу, в которой хранится макрос, содержащий этот код: This. Workbook. Worksheets. Add А так можно добавить в книгу столько листов, сколько указал пользователь в ответ на вопрос программы. Active. Workbook. Worksheets. Add _ Count: =Val(Input. Box("Введите количество листов"))

Copy - копируем листы Позволяет скопировать лист в новое место книги. Принимает два параметра - Before и After, которые, соответственно, позволяют задать положение перемещаемого листа до или после какого-то другого листа. Например, следующий пример копирует активный лист в позицию после листа с именем "Данные": Active. Workbook. Active. Sheet. Copy After: =Worksheets("Данные") Если метод вызвать без параметров, то будет создана новая книга, в которую будет помещена копия листа, для которого вызывался этот метод. Например: Active. Workbook. Active. Sheet. Copy Delete, Move - удаляем и перемещаем листы Метод Delete удаляет лист. Например, так мы удаляем первый лист в коллекции Workbooks: Active. Workbook. Worksheets. Item(1). Delete Move позволяет переместить лист на новое место в книге. Например, так мы перемещаем активный лист в книге в позицию, предшествующую листу с именем Данные. : Active. Workbook. Active. Sheet. Move Before: =Worksheets("Данные")

Свойства коллекции Work. Sheet Used. Range - возвращает используемую область рабочего листа Как правило, лишь небольшая часть рабочего листа занята данными, формулами, рисунками, диаграммами и графиками. Свойство Used. Range позволяет получить минимальную прямоугольную область, содержащую используемую область рабочего листа. Пример использования Used. Range: перевод дат из времени по Гринвичу (GMT) в Тихоокеанский формат (PST): Sub Convert. Dates() Set my. Range = Active. Sheet. Used. Range my. Range. Columns ("C"). Insert Set date. Col = my. Range. Columns("C") For Each с In date. Col. Cells If c. 0 ffset(0, -1). Value <> "" Then c. Formula. R 1 C 1 = "=RC[-2]+RC[-1]-(8/24)" End If Next с date. Col. Number. Format = "mmmm-dd-yyyy hh: mm" date. Col. Copy date. Col. Paste. Special Paste. : =xl. Values my Range. Columns( "A: B" ). Delete date. Col. Auto. Fit End Sub