Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Excel для пользователей
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

17. Операции с рабочими листами (Коллекция Sheets и объект Worksheet)

Лабораторная работа 17.1 Выполнение операций с рабочими листами

Объект Excel.Worksheet в макросах VBA, создание, переименование, удаление листов книги Excel

Задание:

Создайте в специальной книге Personal.xls макрос Calendar(), который бы:

  • создавал пустую рабочую книгу;
  • переименовывал бы в ней лист "Лист1" в "Календарь";
  • удалял бы все остальные листы.

При этом сообщения с просьбой подтвердить удаление листа выводиться не должны.

Решение:

Код для макроса Calendar() может быть таким:

Public Sub Calendar()

Dim oWbk As Workbook

Dim oWorksheet As Worksheet

Application.DisplayAlerts = False

Set oWbk = Application.Workbooks.Add()

For Each oWorksheet In oWbk.Worksheets

    If oWorksheet.Name = "Лист1" Then

        oWorksheet.Name = "Календарь"

    Else

        oWorksheet.Delete

    End If

Next

End Sub

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru