Введение в информатику процессов первичной переработки нефти. Новиков А.А - 88 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

87
Здесь изменяются имена всех листов (сколько их есть в текущей книге): перед
каждым из них добавляется слово Новиков. Для восстановления прежних имен вве-
дем следующий фрагмент кода.
Sub Pro35 ()
Dim ShV As Worksheet
Dim x As Integer
x = 1
For Each ShV In ActiveWorkbook.Worksheets
ShV.Name = "Лист" & x
x = x + 1
MsgBox ShV.Name
Next ShV
End Sub
Инструкцию For-Each-Next можно применять и для вызова методов объектов
семейства. Например, можно добавить лист к
активной рабочей книге методом Add
(два листа вставятся после перового), а затем удалить все листы, кроме первого, ме-
тодом Delete (Pro36).
Sub Pro36()
Dim ShV As Worksheet
Worksheets.Add Count:=2, After:=Sheets(1)
MsgBox Sheets.Count
For Each ShV In ActiveWorkbook.Worksheets
Worksheets(2).Delete
Next ShV
End Sub
Процедура Рro37 создает 10 новых рабочих книг, располагает их окна мозаикой,
а затем снова удаляет, оставляя лишь книгу, в которой размещена сама процедура.
Sub Pro37()
Dim x As Integer
Dim Book As Workbook
For x = 1 To 10
Workbooks.Add
Next x
Windows.Arrange
MsgBox "10 новых книг создано"
For Each Book In Application.Workbooks
If Book. Name <> ThisWorkbook.Name Then
Book.Close
End If
Next Book
ActiveWindow.WindowState = xlMaximized
End Sub

Страницы