События объекта Workbook и семейства Workbooks

Таблица 9.13

Событие	Когда возникает событие
BeforeClose	При закрытии рабочей книги

 

Продолжение табл. 9.13

Событие	Когда возникает событие
BeforePrint	Перед печатью рабочей книги
BeforeSave	Перед сохранением рабочей книги
NewSheet	При добавлении нового листа
Open	При открытии рабочей книги
SheetActivate	При активизации рабочего листа

 

Вопросы для самоконтроля

 

1. Свойства объекта Workbook и семейства Workbooks для возвращения (вывода) активного рабочего листа, семейства всех листов книги, активной диаграммы, числа объектов семейства.

2. Методы объекта Workbook и семейства Workbooks для открытия, сохранения и закрытия рабочей книги.

 

9.5.2. Объект Worksheet и семейство Worksheets

 

В иерархии Excel объект Worksheet идет сразу после объекта Workbook и представляет рабочий лист книги и входит в семейство (набор) Worksheets.

Ссылку на объект можно получить через команды:

Worksheets(Index ) ‘Возвращает ссылку на объект по индексу в наборе, в качестве индекса может выступать имя листа или его номер в наборе.

Примеры:

Worksheets(“Лист1”).Activate

Worksheets(1).Activate

Activesheet ‘Возвращает ссылку на активный лист.

Пример:

Activesheet.Range(“a1”)=1

 

9.5.2.1. Свойства объекта Worksheet и семейства Worksheets

 

Name ‘Возвращает имя рабочего листа.

Пример:

Worksheets(1).Name=”Итоги”

ActiveCell ‘Возвращает активную ячейку активного рабочего листа.

Cells ‘Возвращает ссылку на диапазон ячеек листа.

Cells(<строка>,<столбец>) ‘Возвращает ссылку на ячейку с указанными координатами.

Columns(<столбец>) ‘Возвращает ссылку на столбец. В качестве параметра может быть имя или номер столбца.

Пример:

Worksheets(1).Columns(“a”)=1

или

Worksheets(1).Columns(1)=1

Rows(<строка>) ‘Возвращает ссылку на строку. В качестве параметра может быть номер строки.

Пример:

Worksheets(1).Rows(1)=1

Range(<Диапазон ячеек>) ‘Возвращает ссылку на указанный диапазон ячеек.

UsedRange ‘Возвращает ссылку на используемый диапазон листа.

Пример:

Worksheets(“Лист1”).UsedRange.Value=1

Count ‘Возвращает количество листов в книге.

Visible ‘Определяет отображение рабочего листа в книге.

Допустимые значения:

§ True ‘рабочий лист выводится на экран;

§ False ‘рабочий лист невидим (скрыт), но его можно отобразить на экране с помощью последовательности команд: Формат, Лист, Отобразить (Format, Sheet, Show);

§ xlVeryHidden ‘рабочий лист скрыт и его можно отобразить на экране только программно.

Примеры:

Sub Пусто()

Worksheets(“Лист3”).Visible=False

End Sub

Sub Открыто()

Worksheets(“Лист3”).Visible=True

End Sub

Sub Пусто1()

Worksheets(“Лист4”).Visible=xlVeryHidden

End Sub

Sub Открыто1()

Worksheets(“Лист4”).Visible=True

End Sub

UsedRange ‘Возвращает диапазон, то есть объект Range,

содержащий данные.

Пример:

Worksheets(1).UsedRange.Clear ‘Очищается диапазон первого рабочего листа с данными.

 

9.5.2.2. Методы объекта Worksheet и семейства Worksheets

 

Activate ‘Активизирует рабочий лист.

Evaluate ‘Преобразует выражение в объект или в значение.

Используется при вводе формул (функций) и ячеек из диалоговых окон.

Пример:

Sub Ввод_формул()

Dim Значение As Single

Dim Fx As String

Ячейка=InputBox(“Введите имя ячейки”) ‘Ввод адреса ячейки в диалоговое окно.

Значение=Evaluate(Ячейка).Value ‘Считывание значения из ячейки.

MsgBox Cstr(Ячейка)&”=”&CSng(Значение) ‘Вывод значения в диалоговое окно.

Fx=InputBox(“Введите формулу (функцию)”) ‘Ввод функции в диалоговое окно.

Значение=Evaluate(Fx) ‘Вычисление значения функции.

MsgBox CStr(Ячейка)&”=”&CSng(Значение) ‘Вывод значения в диалоговом окне.

End Sub

 

Вопросы для самоконтроля

 

1. Свойства объекта Worksheet и семейства Worksheets для возвращения ссылки на строку, на столбец, на диапазон ячеек, на ячейку, на используемый диапазон ячеек.

2. Свойство объекта Worksheet и семейства Worksheets для отображения рабочего листа на экране.

3. Метод объекта Worksheet и семейства Worksheets для ввода формул и ячеек через диалоговое окно.

Объект Range

 

В иерархии Excel объект Range (диапазон) идет сразу после объекта Worksheet и является одним из ключевых объектов VBA. Он не входит в состав никакого семейства объектов.

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

Абсолютная адресация

 

Формат A1	Признаком абсолютной адресации является символ “$”, предшествующий имени: строки (абсолютной адресации на строку Þ A$12), столбца (абсолютной адресации на столбец Þ $A12), ячейки (абсолютной адресации на ячейку Þ $A$12).
Формат R1C1	Указывается смещение по отношению к активной ячейке. Смещение приводится в квадратных скобках, причем знак указывает на направление смещения. (R2C3Þ R[1]C[-1] Þ R3C2)

Относительная адресация

 

Формат A1	Имя ячейки состоит из имени столбца (их 256 от A до IV) и номера строки (от 1 до 16384). Пример: A1, C2
Формат R1C1	Адресация задается индексом строки и индексом столбца. Примеры: R1C1, R2C2, R1C3

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

Примеры:

A1 ‘Относительная ссылка на ячейку A1 активного рабочего листа.

Лист2!A1 ‘Относительная ссылка на ячейку A1 рабочего листа

Лист2 активной книги.

[ВсепроВсе.xls]Лист2!A1 ‘Относительная ссылка на ячейку A1 рабочего листа Лист2 книги ВсепроВсе.xls текущего рабочего каталога.

Если в диапазоне указываются только имена столбцов или строк, то объект Range задает диапазон, состоящий из указанных столбцов или строк.

Примеры:

Range(“A:C”) ‘Задает диапазон столбцов A, B, C.

Range(“2:4”) ‘Задает диапазон строк 2, 3, 4.

Так как ячейка является частным случаем диапазона, то объект Range позволяет также работать и с ней. Альтернативным способом работы с ячейкой является объект Cells (ячейки).

Пример: Range(“A2”) или Cells(1, 2) ‘Ячейка A2 описывается как объект.В свою очередь объект Cells, вкладываясь в Range, также позволяет записывать диапазон в альтернативном виде.

Пример: Range(“A2:C3”) или Range(Cells(1, 2), Cells(3, 3))

9.4.3.1. Свойства объекта Range при работе с даннымиFormula ‘Устанавливает формулу в ячейке. Формула задается в виде строки. FormulaArray ‘Устанавливает формулу массива ячеек. Формула задается в виде строки. В качестве ссылок на ячейки используется формат A1. Формула массива – это формула, которая в качестве исходных данных использует диапазон ячеек и возвращает одно или несколько значений. Пример: Sub Prima1()With Worksheets(“Лист1”)For i = 1 To 3For j = 1 To 3.Cells(i,j) = Int(Rnd(i*j)*100)Next jNext i.Range(“D1:F3”).FormulaArray=”=MINVERSE(a1:c3)”End WithEnd SubFormulaR1C1 ‘Устанавливает формулу в ячейке. Формула задается в строковом виде и в формате R1C1. Пример: Sub Prima1()With Worksheets(“Лист1”)For i = 1 To 3For j = 1 To 3.Cells(i,j) = Int(Rnd(i*j)*100)Next jNext i.Range(“D1:F3”).FormulaR1C1=”=MINVERSE(R1C1:R3C3)”End WithEnd SubHasArray ‘Свойство возвращает True, если указанная ячейка является частью массива.Массивом на рабочем листе является именованный диапазон ячеек. HasFormula ‘Свойство возвращает True, если в указанной ячейке установлена формула. Примеры: MsgBox Worksheets(1).Range(“a2”).HasArray => True или FalseMsgBox Worksheets(1).Range(“a3”). HasFormula =>True или False Text ‘Возвращает содержимое ячейки в виде строки. Используется только для чтения Пример: MsgBox Worksheets(1).Range(“a2”).Text => 1234Value ‘Возвращает значение из ячейки или устанавливает значение в ячейку (в ячейки) Примеры: x=Range(“c1”).Value ‘Значение из ячейки c1 присваивается переменной xRange(“a1:b4”).Value=12 ‘В диапазон ячеек a1:b4 устанавливается число 12 Команда With

With используется для указания текущего объекта. Далее внутри команды можно указывать, начиная с точки, только свойства и методы при обращении к текущему объекту.

Синтаксис:

With <объект>

.<свойства и методы>

End With

Пример:

Sub qwe()

Dim a As Single

Dim b As Single

With Worksheets("Лист1")

a =.Range("A1").Value

b =.Range("B1").Value

.Range("C1").Value = a + b

.Range("D1").Formula="=A1 + B1"

End With

End Sub

Команда Set

Set – предназначена для закрепления объекта за переменной. Переменная должна быть типа Object или с типом объекта, который за ней будет закреплен.

Примеры:

Sub Prima1()

Dim Lst As Object

Set Lst=Workbooks(“книга1.xls”).Worksheets(“лист1”)

‘За переменной Lst закрепляется рабочий лист 1 рабочей книги 1.

Lst.Cells(1,1)=10 ‘В ячейку a1 рабочего листа 1 устанавливается значение 10.

End Sub

Sub Prima2()

Dim Lst As Worksheet ‘Переменная Lst с типом объекта WorkSheet.

Set Lst=Workbooks(“книга1.xls”).Worksheets(“лист1”)

Lst.Cells(1,1)=10

End Sub

 

Методы объекта Range

Activate ‘Активизирует указанный диапазон ячеек.

AddComment <текст примечания> ‘Добавляет примечание к ячейке (контекстное меню|добавить примечание).

AutoFill <источник> ‘Производит автозаполнение диапазона ячеек данными из указанных ячеек.

Пример:

Sub Prima3()

Worksheets(1).Activate

For i = 1 To 10

Cells(i,1)=i

Next i

Range("b1").Formula="=sin(a1)"

Range("b1").AutoFill Range("b1:b10")

End Sub

Clear ‘Очищает указанный диапазон ячеек.

ClearContents ‘Очищает формулы и значения, содержащиеся в ячейках, представляемых объектом Range, то есть очищается только содержимое ячеек, сохраняя их форматирование.

ClearFormats ‘Удаляет все форматирование ячеек, сохраняя неизменными хранящиеся в них данные.

Sort Key1=<ячейка>,Order1=<порядок>;

Orientation=<направление> ‘Производит сортировку указанного диапазона ячеек.

Параметры:

Key1 ‘Ключевое поле (колонка или столбец), по которому будет производиться сортировка.

Order1 ‘Указывает порядок сортировки. Может иметь два значания:

· xlAscending ‘По алфавиту;

· xlDescending ‘Наоборот.

Orientation ‘Указывает направление сортировки:

· xlSortRows ‘Сортировка данных в строке;

· xlSortColumns ‘Сортировка данных в столбце.

Пример:

Sub bmv()

Worksheets(1).Activate

Range(“A1:D10”).Sort Key1:=Range(“B1”),Order1:=xlDescending

End Sub

 

Вопросы для самоконтроля

 

1. Свойства объекта Range, обеспечивающие установку формулы в ячейку в форматах A1 и R1C1, а также установку формулы массива ячеек.

2. Свойства объекта Range, обеспечивающие установку в ячейку какого-либо значения или извлечение его из ячейки.

3. Метод объекта Range, обеспечивающий сортировку указанного диапазона ячеек, его параметры и их значения.

Оформление рабочего листа

Внешнее оформление ячеек и данных в них производится с помощью свойств объектов: Range, Interior, Font, Border и свойства NumberFormat.

 

9.5.4.1. Оформление текста в ячейке

 

Format – свойство объекта, задающее формат вывода данных.

Пример:

Range(“a1”).Format=”шаблон”

Могут применяться следующие шаблоны.

 

Таблица 9.14

Шаблон	Расшифровка шаблона
”#,##0.000”	Формат для вывода чисел с точностью до 3 знака после запятой. Специальные символы: “#” – необязательное число; “0” – обязательное число; “. “ – разделитель тысячных; “,” – разделитель между целой и дробной частью
“#,##0.00$”	“$” – обозначение национальной валюты
“dd/mm/yy”	Вывод даты в формате 11.01.99, где: “d” – день; “m” – месяц; “yy” – две последние цифры года
“dd/mm/yyyy”	Вывод даты в формате 01.01.1999
“d/mm”	Вывод даты в формате 1.01
“d mmm yy”	1 янв. 99, где mmm – сокращение месяца
“d mmmm yy”	1 января 99, где mmmm – полное название месяца
“h:mm”	Время в формате 1:23, где h – часы, mm – минуты
“h:mm:ss”	Время в формате 1:23:00, где ss – секунды
“0.00%”	Процентный формат, к примеру, 3 – это 300 %
“@”	Текстовый формат
“0.00E+00”	Экспоненциальный формат числа

 

Примеры:

Range(“C1:C6”).Select

Selection.NumberFormat=”0,0”

Range(“D1:D6”).Select

Selection.NumberFormat=”dd/mm/yy”

Range(“E1:E6”).Select

Selection.NumberFormat=”h:mm:ss”

Range(“F1:F6”).Select

Selection.NumberFormat=”@”

Выравнивание текста в ячейках задается свойствами HorizontalAlignment, VerticalAlignment.

HorizontalAlignment – определяет выравнивание по горизонтали.

Для выравнивания текста в ячейках по горизонтали могут применяться следующие константы.

 

Таблица 9.15

Константа	Направление выравнивания
xlLeft	По левому краю
xlRight	По правому краю
xlCenter	По центру
xlGeneral	По значению
xlJustify	По ширине
XlFill	С заполнением
xlCenterAcrossSelection	По центру выделения

 

VerticalAlignment – определяет выравнивание текста по высоте.

Для выравнивания текста в ячейках по высоте могут применяться следующие константы.

Таблица 9.16

Константа	Направление выравнивания
xlTop	По верхнему краю
xlBottom	По нижнему краю
xlCenter	По центру

 

WrapText – определяет перенос по словам текста внутри ячейки:

· True – разрешить перенос;

· False – запретить.

MergeCells – объединение ячеек:

· True – ячейки объединены;

· False – ячейки не объединены.

ShrinkToFit – включает автоматический подбор ширины ячейки по содержимому:

· True – включено;

· False – выключено.

Orientation – определяет ориентацию текста в ячейке.

Для ориентации текста в ячейках по высоте могут применяться следующие константы.

Таблица 9.17

Константа	Направление ориентации
xlHorizontal	Горизонтальная ориентация
xlVertical	Вертикальная ориентация
-90 до 90	Угол поворота текста в градусах

Примеры:

Range("B2:B5").Select

With Selection

.HorizontalAlignment=xlRight

.VerticalAlignment=xlBottom

.WrapText=False

,Orientation=0

.MergeCells=False

End With

Range("C2:C5").Select

With Selection

.HorizontalAlignment=xlLeft

.VerticalAlignment=xlBottom

.WrapText=False

.Orientation=0

.MergeCells=False

End With

Параметры шрифта определяются через свойства объекта Font:

Name – имя шрифта;

Size – размер шрифта;

FontStyle – начертание. Принимает значения: обычный, курсив, полужирный, полужирный курсив;

ColorIndex – определяет цвет шрифта. В качестве значения ставится номер цвета;

xlAutomatic (константа) – цвет по умолчанию;

Color – задает произвольный цвет. Для задания цвета можно использовать функцию RGB (красный, зеленый, синий);

Underline – подчеркивание текста в ячейке.

Для подчеркивания текста в ячейках могут применяться следующие константы.

Таблица 9.18

Константа	Способ подчеркивания
xlUnderlineStyleNone	Нет подчеркивания
xlUnderlineStyleSingle	Одинарное по значению
xlUnderlineStyleDouble	Двойное по значению
xlUnderlineStyleSingleAccounting	Одинарное по ширине ячейки
xlUnderlineStyleDoubleAccounting	Двойное по ширине ячейки

Пример:

Range(“d3:f3).Select

With Selection.Font

.Name=”Arial Cur”

.Size=14

.Underline=xlUnderlineStyleNone

.ColorIndex=xlAutomatic

End With

Selection.Font.Bold=True

Selection.Font.ColorIndex=3

 

9.5.4.2. Оформление границ ячейки

 

Оформление границ ячеек задается через свойства объекта Border.

Для диапазона ячеек границы делятся на внешние и внутренние. Доступ к определенным границам производится через набор Borders (граница).

Границы могут задаваться следующими константами.

 

Таблица 9.19

Константа	Граница
xlEdgeBottom	Внешняя нижняя
xlEdgeTop	Внешняя верхняя
xlEdgeLeft	Внешняя левая
xlEdgeRight	Внешняя правая

 

Продолжение табл. 9.19

xlInsideHorizontal	Внутренняя горизонтальная
xlInsideVertical	Внутренняя вертикальная
xlDiagonalDown	От верхнего правого до нижнего левого угла
xlDiagonalUp	От нижнего левого до верхнего правого угла

 

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

LineStyle – задает стиль линии.

Для задания стиля линии могут применяться следующие константы.

Таблица 9.20

Константа	Стиль линии
xlContinuous	Сплошная линия
xlDash	Прерывистая линия
xlDashDot	Пунктирная линия
xlDashDotDot	Двойная пунктирная линия
xlDot	Точечная линия
xlDouble	Двойная линия
xlLineStyleNone	Нет линии

 

Weight – определяет толщину линии.

Для определения толщины линии могут применяться следующие константы.

Таблица 9.21

Константа	Толщина линии
xlHairline	Сверхтонкая
xlThin	Тонкая
xlMedium	Средняя
xlThick	Жирная

 

Цвет границы задается свойствами ColorIndex и Color.

Примеры:

Range(“c1:f3”).Select

Selection.Borders(xlDiagonalDown).LineStyle=xlNone

Selection.Borders(xlDiagonalUp).LineStyle=xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle=xlContinuous

.Weight=xlThin

.ColorIndex=xlAutomatic

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle=xlContinuous

.Weight=xlThin

.ColorIndex=xlAutomatic

End With

With Selection.Borders(xlInsideVertical)

.LineStyle=xlContinuous

.Weight=xlThin

.ColorIndex=xlAutomatic

End With

Заливка ячейки

 

Цвет и узор, которыми заполняется ячейка, задаются через свойства объекта Interior. Цвет заливки задается свойствами Color или ColorIndex.

Pattern – задает узор заливки ячейки.

Для задания узора в ячейках могут применяться следующие константы.

Таблица 9.22

Константа	Узор заливки
xlSolid	сплошной
xlGray75	75 % – серый
xlGray50	50 % – серый
xlGray25	25 % – серый
xlGray16	12,5 %– серый
xlGray8	6,25 %– серый
xlHorizontal	горизонтальный штриховой
xlVertical	вертикальный штриховой
xlDown	перевернутый диагональный штриховой
XlUp	диагональный штриховой
xlChecker	диагональный клетчатый
xlSemiGray75	толстый диагональный клетчатый
xlLightHorizontal	тонкий горизонтальный штриховой

 

Продолжение табл. 9.22

xlLightVertical	тонкий вертикальный штриховой
xlLightDown	тонкий перевернутый диагональный
xlLightUp	тонкий диагональный
XlGrid	тонкий горизонтальный клетчатый
xlCrissCross	тонкий диагональный клетчатый

 

Цвет узора заливки задается свойствами PatternColorIndex и PatternColor.

Пример:

Range(“c1:f3”).Select

With Selection.Interior

.ColorIndex=6

.Pattern=xlSolid

End With

 

Заключение

В современном мире количество компьютеров удваивается в среднем каждые три года. При этом в среднем один раз в полтора года удваиваются основные технические параметры аппаратных средств. Один раз в два-три года меняются поколения программного обеспечения, один раз в пять-семь лет меняется база стандартов, интерфейсов и протоколов. Предметная область дисциплины “Информатика” изменяется чрезвычайно динамично, что является кардинальным отличием ее от других технических дисциплин. Поэтому для эффективного использования вычислительной техники от специалистов (пользователей) требуется достаточно высокий уровень базовых знаний и практических навыков.

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

 

Список рекомендуемой литературы

 

1. Завгордний В. И. Комплексная защита информации в компьютерных системах. – М. Логос, 2001. – 264 с.

2. Симонович С. В. Информатика. Базовый курс. – СПб: Питер, 2005. – 640 с.

3. Гарнаев А. Ю. Самоучитель VBA.– СПб.: БХВ – Петербург, 2001. – 512 с.:

4. Васильев А. VBA в Office 2000: учеб. курс /А. Васильев,

А. Андреев. – СПб.: Питер, 2001. – 432 с.

5. Кузьменко В. Г. VBA 2000: самоучитель. – М.: ЗАО “Издательство Бином”, 2000. – 407 с.

Оглавление

Предисловие 3

Введение 3

Глава 1. Данные 4

1.1. Понятие данных и информации 4

1.2. Операции с данными 5

1.3. Виды и типы данных 6

1.4. Кодирование данных двоичным кодом 7

1.4.1. Кодирование целых и действительных чисел 7

1.4.2. Кодирование текстовых данных 8

1.4.3. Кодирование графических данных 9

1.4.4. Кодирование звука 10

1.5. Основные структуры данных 10

1.6. Единицы представления, измерения, хранения и передачи

данных 11

Глава 2. Основы защиты информации 13

2.1. Информационная безопасность и ее составляющие 13

2.2. Угрозы безопасности информации в компьютерных

системах 16

2.3. Методы защиты информации 19

2.3.1. Профилактика заражения вирусами компьютерных систем 24

2.3.2. Порядок действий пользователя при обнаружении

заражения вирусами компьютерной системы 25

2.3.3. Особенности защиты информации в базах данных 26

2.4. Законодательные акты РФ регулирующие правовые

отношения в сфере информационной безопасности и

защиты государственной тайны 28