Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4




















Способы

Выполняемые деяния







OnRepeat и OnUndo

  • — {BACKSPACE} либо (BS)

  • — {BREAK}

  • — {CAPSLOCK}

  • либо — {DELETE} либо {DEL}

  • — {DOWN}

  • — {END}

  • (цифровая клавиатура) — {ENTER}

  • — {ESCAPE}или {ESC}

  • — {HOME}

  • либо — {INSERT}

  • < — {LEFT}

  • — {NUMLOCK}


  • — {PGDN}


  • — {PGUP}

  • — {RETURN}

  • > — {RIGHT}

  • — {SCROLLLOCK}

  • - {TAB}

  • - {UP}

  • ОТ до Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 — ОТ {F1}до{F15}

Допустимо внедрение сочетания сразу нажатых кнопок. С этой целью для перечисленных 3-х кнопок установлены последующие коды:

  • - +

  • ^

  • -%

В примере процедуре Амортизация назначена композиция кнопок +, а процедуре ПроцентнаяСтавка — ++.>:

Application. OnKey Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 "^{+}", "Амортизация"

Application. ОпКеу "+^ {RIGHT}", "ПроцентнаяСтавка"

Определяет функцию, выполняемую при выборе команды Правка, Повторить (Edit, Repeat) и Правка, Отменить (Edit, Undo) соответственно.


































Способы

Выполняемые деяния







 

 

 

 

 

 

OnTime

 

 

 

 

 

 

 

 

 

 

Quit

Синтаксис:

OnRepeat (Text, Procedure)

OnUndo (Text, Procedure)

  • Text — строчка, задающая Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 текст команды Правка, Повторить (Edit, Repeat)

Procedure — имя подпрограммы, выполняемой при выборе команды Правка, Повторить (Edit, Repeat)

Назначает выполнение процедуры на определенное время. Синтаксис:

OnTime (EarliestTime, Procedure, LatestTime, Schedule)

  • EarliestTime — момент пуска Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 процедуры

  • Procedure — имя процедуры

  • batestTime — если на момент пуска процедуры, Excel не может ее запустить в силу того, что производится другое действие, то параметр LatestTime определяет ближайшее время ее пуска. Если этот Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 аргумент опущен, то Excel будет ожидать до того времени, пока не сумеет выполнить эту функцию

  • Schedule — допустимые значения: True (выполнение процедуры откладывается на день) и False (во всех других случаях)

В последующем примере показывается Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4, как запустить функцию Чистка на выполнение через 15 секунд от текущего времени:

Application. OnTime Now +_ TimeValue ("00:00:15"), "Чистка" Закрывает приложение.

К примеру:

Application. Quit
















 

Действия объекта Application

Событие

Когда появляется событие

NewWorkbook

При разработке новейшей Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 рабочей книжки

WorkbookActivate

При активизации рабочей книжки

WorkbookBeforeClose

Перед закрытием рабочей книжки

WorkbookBeforePrint

Перед печатью рабочей книжки

WorkbookBeforeSave

Перед сохранением рабочей книжки

WorkbookNewSheet

При добавлении нового листа в рабочую книжку

WorkbookOpen

При открытии рабочей книжки

WorkbookDeactivate

Когда активная книжка теряет фокус

^ Объект Workbook Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 и семейство Workbooks

В иерархии Excel объект workbook (рабочая книжка) идет сходу после объекта Application и представляет файл рабочей книжки. Рабочая книжка хранится или в файлах формата XLS (стандартная рабочая книжка) либо XLA Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (на сто процентов откомпилированное приложение). Характеристики и способы рабочей книжки позволяют работать с файлами.

Характеристики объекта Workbook и семейства Workbooks
















Характеристики

Выполняемые деяния и допустимые значения







ActiveSheet

Возвращает активный лист книжки. К примеру:

MsgBox "Имя Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 активного листа " & ActiveSheet . Name — выводит в диалоговом окне имя активного рабочего листа







ActiveDialog

Возвращает активное диалоговое окно







ActiveChart

Возвращает активную диаграмму







Sheets

Возвращает семейство всех листов книжки







Worksheets

Возвращает семейство всех рабочих листов книжки







Charts

Возвращает семейство всех диаграмм книжки (которые не Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 внедрены в рабочие листы)







Count

Возвращает число объектов семейства workbooks







HasPassword

Допустимые значения: True (если у документа имеется пароль защиты), False (в неприятном случае)







WriteRe served

Допустимые значения: True (если документ закрыт для записи), False Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (в неприятном случае)







Saved

Допустимые значения: True (если не выполнялись конфигурации в документе со времени его последнего сохранения), False (в неприятном случае)







MailSystem

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

  • xlNoMailSystem Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (не установлена система электрической почты)

  • xlMAPi (установлена система Microsoft Mail)

  • xlPowerTalk (установлена система Apple PowerTalk Mail, на компьютерах Macintosh).

В последующем примере проверяется, инсталлирована ли электрическая почта. Если электрическая почта не Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 установлена, то отображается соответственное сообщение:

If Application. MailSystem xlMAPI Then

MsgBox "Microsoft Mail неинсталлирован"

End If
















 

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
















Способы

Выполняемые деяния







Activate

Активизирует рабочую книжку так, что ее 1-ый рабочий лист Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 становится активным.

К примеру:

Workbook. Activate

 







Add

Делает новый объект для семейства Workbooks.

Синтаксис:

Add (Template)

  • Template — задает шаблон, на базе которого создается новенькая рабочая книжка. Допустимые значения: xlWBATChart, xlWBATExce14IntlMacroSheet, xlWBATExce14MacroSheet либо Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 xlWBATWorksheet.

Если аргумент Template опущен, то создается новенькая рабочая книжка с количеством листов, данных свойством

SheetsInNewWorkbook







Protect

Защищает рабочую книжку от внесения в нее конфигураций. Синтаксис:

Protect (Password, Structure, Windows)

  • Password — строчка, применяемая в качестве пароля Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 для защиты книжки

  • Structure — допустимые значения True (защищена структура книжки, т. е. обоюдное размещение листов) и False (не защищена)

  • windows — допустимые значения True (защищено окно книжки) и False (не защищено)

В Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 последующем примере устанавливается защита для активной рабочей книжки:

ActiveWorkbook. Protect Password:= "ВинниПух"







Unprotect

Снятие защиты с рабочей книжки.

Синтаксис:

Unprotect (Password)

  • Password — строчка, применяемая в качестве пароля для защиты листа

В последующем примере снимается защита Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 с активной рабочей книжки:

ActiveWorkbook. Unprotect Password := "ВинниПух "







Close

Закрытие рабочей книжки







Open

Открытие имеющейся рабочей книжки







OpenText

Открытие текстового файла, содержащего таблицу данных







Save

Сохранение рабочей книжки







SaveAs

Сохранение рабочей книжки в другом файле.

Синтаксис:

SaveAs (Filename)

  • Filename — строчка, указывающая Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 название файла, в каком будет сохранена рабочая книжка

В последующем примере активная рабочая книжка сохраняется в файле с именованием НоваяВерсия:

ActiveBook. SaveAs Filename := "НоваяВерсия"







SaveAsCopy

Сохранить рабочую книжку в другом файле, оставляя рабочую книжку в Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 памяти с прежним именованием.

Синтаксис:

SaveAs (Filename, FileFormat)

  • Filename — строчка, указывающая название файла, в каком будет сохранена рабочая книжка

В последующем примере активная рабочая книжка сохраняется в файле с именованием ЗапаснаяВерсия:

ActiveBook Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4. SaveAsCopy Filename := "ЗапаснаяВерсия"







PrintPreview

Подготовительный просмотр







Printout

Печать содержимого рабочей книжки







SendMail

Отсылка почты используя интегрированные средства Microsoft Mail (MAPI).

Синтаксис:

SendMail (Recipients, Subject, ReturnReceipt )

  • Recipients — строчка либо массив строк, перечисляющих получателей

  • Subject — строчка, специфицирующая тему сообщения
    Optional Variant Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4.

  • ReturnReceipt — допустимые значения True (требуется извещение о получении сообщения) и False (в неприятном случае)

В последующем примере рабочая книжка отсылается по электрической почте получателю Порфирию Заковыркину:

ThisWorkbook . SendMail recipients : = " Порфирий Заковыркин Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4"
















 

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

Событие

Когда появляется событие

BeforeClose

При закрытии рабочей книжки

BeforePrint

Перед печатью рабочей книжки

BeforeSave

Перед сохранением рабочей книжки

Deactivate

Когда рабочая книжка теряет фокус

NewSheet

При добавлении нового листа

Open

При открытии рабочей книжки

SheetActivate

При активизации хоть Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 какого рабочего листа

Sheet Deactivate

Когда рабочий лист теряет фокус

 

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

В иерархии Excel объект worksheet идет сходу после объекта workbook и представляет рабочий лист.

Приведем несколько более нередко применяемых Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 параметров и способов объекта Worksheet.

Характеристики объекта Worksheet и семейства Worksheets
















Способы

Выполняемые деяния







Name

Возвращает имя рабочего листа. В последующем примере первому листу активной рабочей книжки присваивается имя Итоги

за декабрь :

Worksheets (1) . Visible = "Итоги за декабрь"







Add

Делает новый Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 рабочий лист.

Синтаксис:

Add (Before, After, Count, Type)

  • Before — показывает лист, перед которым будет расположен новый рабочий лист

  • After — показывает лист, после которого будет расположен новый рабочий. Если аргументы Before и After опущены, то Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 новый лист располагается перед активным листом

  • Count — число добавляемых листов, по дефлоту имеет значение 1

  • Туре — показывает тип добавляемого листа. Допустимые значения: xlWorksheet (по дефлоту),

xlExce14MacroSheet и хlЕхсеl4 IntlMacroSheet.

К примеру Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4:

ActiveWorkbook . Worksheets . Add

— вставляется новый лист перед активным листом активной рабочей книжки







Delete

Удаляет рабочий лист. К примеру:

Worksheets (1) . Delete - удаляется 1-ый рабочий лист из активной рабочей книжки










Защищает рабочий лист от внесения в него конфигураций Синтаксис Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4:

Protect (Password, DrawingObjects, Contents, Scenarios, User Inter faceOnly)

  • Password — строчка, применяемая в качестве пароля для защиты листа

  • DrawingObjects —допустимые значения: True (графические объекты защищены) и False (графические объекты не защищены). По дефлоту употребляется значение Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 False

  • Contents — допустимые значения: True (ячейки защищены) и False (ячейки не защищены). По дефлоту употребляется значение True

  • scenarios —допустимые значения: True (сценарии защищены) и False (сценарии не защищены). По дефлоту употребляется Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 значение True





































  • Userlnterf aceOnly — допустимые значения: True (лист защищен от конфигураций со стороны юзера, но не подпрограммы VBA) и False (лист защищен от конфигураций со стороны как юзера, так и подпрограммы VBA). По дефлоту употребляется значение Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 False

В последующем примере установлена полная защита активного рабочего листа от всех конфигураций со стороны юзера:

Active Sheet .Protect

Password: =" Секрет" ,

DrawingObjects :=True,

Contents :=True, Scenarios : =True







Unprotect

Снятие защиты с рабочего листа Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4.

Синтаксис:

Unprotect (Password)

  • Password — строчка, применяемая в качестве пароля для защиты листа

В последующем примере снимается защита с активного рабочего листа:

ActiveSheet . Protect Password: ="Секрет"







Copy

Копирование рабочего листа в другое место рабочей книжки.

Синтаксис Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4:

Copy (Before, . After)

  • Before — рабочий лист книжки, перед которым вставляется данный

  • After — рабочий лист, после которого вставляется данный

Сразу допустимо внедрение только 1-го из аргументов.

В последующем примере Лист1 активной рабочей книжки копируется после ЛистЗ той Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 же рабочей книжки:

Worksheets ( "Лист1") .Сору after :=Worksheets ("ЛистЗ"')







Move

Перемещение рабочего листа в другое место рабочей книжки.

Синтаксис:

Move (Before, After)

  • Before — лист рабочей книжки, перед которым вставляется данный

  • After — лист, после Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 которого вставляется данный

Сразу допустимо внедрение только 1-го из аргументов.

В примере Лист1 активной рабочей книжки перемещается перед ЛистЗ той же рабочей книжки:

Worksheets ( "Лист1" ) .Move Before : =Worksheets ("Лист3")
















Способы объекта Worksheet и Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 семейства Worksheet




Evaluate

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

В последующем примере в поле ввода первого показавшегося ) диалогового окна вводится ссылка на ячейку, к примеру A Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 41, процедура считывает значение из этой ячейки и показывает его в диалоговом окне. После чего в поле ввода последующего диалогового окна нужно ввести какое-нибудь арифметическое выражение, к примеру sin(l) ^2. Процедура Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 вычислит значение этого выражения и покажет в диалоговом окне:

Sub Два Примера ДляEvaluate ( ) '

' Ввод адреса ячейки '

Ячейка = InputBox ( "Введите имя ячейки") '

' Считывание значения из ячейки с обозначенным адресом '

Значение = Evaluate (Ячейка) .Value '

' Вывод Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 считанного значения в диалоговое окно

'

MsgBox CStr (Значение) '

' Ввод в диалоговое окно формулы, к примеру, sin(1)^2 '

Функция = InputBox ( "Введите функцию" ) '

' Вычисление значения по введенной формуле '

Значение = Evaluate (Функция)

' Вывод отысканного значения Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 в диалоговом окне '

MsgBox CStr (Значение) End Sub




 

Действия объекта Worksheet

Событие

Когда появляется событие

BeforeClose

При закрытии рабочей книжки

BeforePrint

Перед печатью рабочей книжки

BeforeSave

Перед сохранением рабочей книжки

Deactivate

Когда рабочая книжка теряет фокус

NewSheet

При добавлении нового листа

Open

При открытии рабочей Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 книжки

SheetActivate

При активизации хоть какого рабочего листа

Sheet Deactivate

Когда рабочий лист теряет фокус

 

^ Объекты Range и Selection

В иерархии Excel объект Range (спектр) идет сходу после объекта worksheet. Объект Range является одним из главных Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 объектов VBA. Объект Selection (выбор) появляется в VBA двойственно — или как итог работы способа Select, или при вызове характеристики selection. Тип получаемого объекта находится в зависимости от типа выделенного объекта. В большинстве Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 случаев объект Selection принадлежит классу Range и при работе с ним можно использовать характеристики и способы объекта Range. Увлекательной особенностью объектов Range и selection будет то, что они не являются элементами никакого Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 семейства объектов.

Адресация ячеек

При работе с объектом Range нужно держать в голове, как в Excel ссылаются на ячейку рабочего листа. Имеются два метода ссылки на ячейки рабочего листа: относительная адресация Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (т. е. когда начало координат, задающее нумерацию строк и столбцов, связывается с объектом, вызвавшим Range) и абсолютная адресация.

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
















Формат А1

Имя ячейки состоит из имени столбца (их 256 — А, В, ..., Z Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4, АВ, ..., HZ, IA, ..., IV) и номера (1, ...., 16384).










К примеру, A1, C2







Формат R1C1

Адресация задается индексом строчки и индексом столбца. К примеру, R1C1, R2C3
















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
















Формат А1

Признаком абсолютной адресации является Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 символ "$", предыдущий имени строчки (абсолютной адресации на строчку) либо столбца (абсолютной адресации на столбец). К примеру, $А10, А$10 и $А$10 задают абсолютную адресацию на столбец А, строчку 10 и ячейку А10 соответственно







Формат Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 R1C1

Указывается смещение по отношению к активной ячейке. Смещение приводится в квадратных скобках, при этом символ показывает на направление смещения. К примеру, если активной ячейкой является касз, то R[i]C[-1] дает Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ссылку на ячейку кзс2
















Адресация ячейки рабочего листа является только частью полного адреса ячейки, который в общем случае включает имя рабочего листа и адресок книжки. При задании полного адреса за именованием листа следует Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 символ "!", а адресок книжки заключается в скобки. К примеру,

А1

Лист2!А1

[МояКнига.хls]Лист2!А1

В первой строке данного примера дана относительная ссылка на ячейку AI активного рабочего листа Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4, во 2-ой — на ячейку AI рабочего листа листа активной книжки, а в третьей на ячейку AI рабочего листа лист2 книжки моякнига-xls текущего рабочего каталога.

Задание групп строк и столбцов при Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 помощи объекта Range

Если в спектре указываются только имена столбцов либо строк, то объект Range задает спектр, состоящий из обозначенных столбцов либо строк. К примеру, Range ("А: с") задает спектр, состоящий из столбцов А, в Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 и с, а Range {"2: 2") - из 2-ой строчки. Другим методом работы со строчками и столбцами являются способы ROWS (строчки) и Columns (столбцы), возвращающие коллекции строк и столбцов. К примеру, столбцом А является columns Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (1), а 2-ой строчкой - ROWS (2).

Связь объекта Range и характеристики Cells

Потому что ячейка является личным случаем спектра, состоящим только из единственной ячейки, объект Range также позволяет работать с ней. Объект cells Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (ячейки) — это другой метод работы с ячейкой. К примеру, ячейка А2 как объект описывается Range ("A2") либо cells (1,2). В свою очередь объект ceils, вкладываясь в Range, также позволяет записывать спектр в другом виде, который Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 время от времени комфортен для работы, а конкретно,

Range ("А2:C3") И Range(Cells(1,2), Cells(3,3))

Определяют один и тот же спектр.

Характеристики и способы объекта Range

Объект Range позволяет соединять упругость VBA Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 и мощь рабочего листа Excel. Более 400 интегрированных функций рабочего листа значительно упрощают и делают более приятным программирование на VBA.

Дальше приводятся более нередко применяемые характеристики и способы объекта

Range.

Перечислим главные характеристики объекта Range.
















Value

Возвращает Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 значение из ячейки либо в ячейки спектра. В данном примере переменной х присваивается значение из ячейки C1 :

х = Range ("C1") .Value В последующем примере в спектр AI : В2 введена Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 1 :

Range ("A1:B2") .Value = 1







Name

Возвращает имя спектра. В данном примере спектру А1:В2 присваивается имя итоги:

Range ( "Al :B2") .Name = "Итоги"







Count

Возвращает число объектов в наборе. В данном примере переменной х присваивается Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 значение, равное числу строк спектра AI : В2 :

х = Range ( "Al :B2") .Rows . Count







CurrentRegion

Возвращает число строк текущего спектра. Текущим является спектр, ограниченный пустыми строчками и столбцами и содержащий данный элемент. В последующем примере переменной у присваивается Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 значение, равное числу строк в текущем спектре, содержащем ячейку AI :

у = Range ( "Al" ). CurrentRegion. Rows . Count







WrapText

Позволяет переносить текст при вводе в спектр. Допустимые значения True и False. В последующем примере в Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ячейку В2 вводится текст длиннющий текст и в этой ; ячейке устанавливается режим ввода текста с переносом: With Range ("B2") .Value = "Длиннющий текст" .WrapText = True End With


































EntireColumn, EntireRow

Возвращает столбец и строчку соответственно. В Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 данном примере очищается содержимое строчки и выделяется столбец с активной ячейкой:

ActiveCell . EntireRow. Clear ActiveCell .EntireColumn. Select







ColumnWidth, RowHeight

Возвращает ширину столбцов и высоту строк спектра соответственно







Comment

Возвращает объект comment (примечание), который связан с левым Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 верхним углом спектра при отображении на дисплее. Объект comment является элементом семейства comments. Способ AddComment, примененный к спектру, делает новое примечание. Посреди способов объекта comment отметим только способ Text, который задает Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 текст, выводимый в примечании. Синтаксис:

Text (Text, Start, Overwrite)

  • Text — строчка, выводимая в качестве примечания П start — с какого знака вводится текст в уже имеющееся примечание. Если аргумент опущен, то из примечания удаляется весь Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ранее введенный текст П overwrite — допустимые значения: True (вводимый текст записывается поверх уже имеющегося) и False (вводимый текст вставляется в уже имеющийся) Посреди параметров объекта Comment отметим только свойство visible, устанавливающее отображение Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 примечания при активизации спектра, имеющего определенное примечание. В качестве примера разглядим последующие аннотации, которые делают и показывают примечание ячейки вз, поясняющее запланированное событие (рис. 3.1):

With Range ("ВЗ")

.AddComment

.Text Text:= "Очень Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 принципиально!" & Chr(10) & "Про это никак нельзя запамятовать ! "

.Visible = True End With
















 



Рис. 2.1. Пример отображения примечания на рабочем листе
















Font

Возвращает объект Font (шрифт). Объект Font имеет последующие характеристики:

  • Name — строчка, указывающая имя шрифта, к примеру "Arial Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 Cyr"

  • FontStyle — СТИЛЬ, вероятен Regular (обыденный), Bold (ПОЛУЖИРНЫЙ), Italic(курсив), Bold italic (полужирный курсив)

  • size - размер

  • strikethrough — допустимы два значения: True (буковкы имеют линию по центру, будто бы они перечеркнуты Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4) и False (не имеют полосы по центру)

  • Superscript — допустимы два значения: True (текст употребляется как верхний индекс) и False (не употребляется как верхний индекс)

  • Subscript — допустимы два значения: True (текст употребляется как нижний индекс Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4) и False (не употребляется как нижний индекс)

  • Underline-допустимыми являются значения:

    • xlNone (нет подчеркивания)

    • xlSingie (одинарное, по значению)





































    • xlDoubie (двойное, по значению)

    • xlsingleAccounting (одинарное, по ячейке)

    • Accounting (двойное, но ячейке)

К примеру Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4, в последующем примере устанавливается для спектра AI : в2 полужирный шрифт, красноватого цвета и с высотой знаков 1 4 :

With Range ("A1:B2").Font

.Size = 14

.FontStyle = Bold

.Colorlndex = 3

End With







Formula

Возвращает формулу в формате Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 Al. К примеру, последующая аннотация вводит в ячейку с2 формулу =$А$4+$А$ю:

Range ("C2") . Formula = "=$А$4+$А$10"







FormulaArray 1

Возвращает формулу спектра в формате А1. В отличие от обычной формулы рабочего листа Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4, формула спектра вводится на рабочем листе не средством нажатия на кнопку , а при помощи композиции кнопок ++. Последующая аннотация вводит в спектр Е!:ЕЗ формулу {=Sum(Al:A3*Bl:B3) }:

Range ( "El :E3") .FormulaArray = "=Sum Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4(Al:A3*Bl:B3) "







FormulaHidden

Допустимые значения: True (формула спрятана, если рабочий лист либо книжка защищены) и False (в неприятном случае). К примеру, последующая аннотация прячет формулы в столбце А: Columns Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ("A") . FormulaHidden = True







FormulaLocal

Возвращает неанглоязычные (местные) формулы в формате А1. К примеру, последующая аннотация вводит в ячейку В2 формулу =СУММ(С1:С4):

Range("B2"). FormulaLocal = "=СУММ (С1:С4) "







JormulaRlCl

Возвращает формулу в формате R1C1. К Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 примеру,

Range ("Bl") . FormulaRlCl = "=SQRT (R3C2 ) "







FormulaRlCl Local

Возвращает неанглоязычные формулы в формате R1C1







Text

Возвращает содержание спектра в текстовом формате


































HorizontalAlignment

Горизонтальное выравнивание. Допустимые значения:

  • xlceneral (обыденное выравнивание, зависящее от типа Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 вводимых значений)

  • xlcenter (выравнивание по центру)

  • xlRight (выравнивание по правому краю)

  • xlLeft (выравнивание по левому краю)

  • xUustify (выравнивание по ширине)

  • xlCenterAcrossSelection (выравнивание по центру в выделенном спектре)

  • xlFill (выравнивание по ширине










Vertical Alignment

Вертикальное выравнивание. Допустимые Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 значения:

  • xlBottom (выравнивание по нижнему краю),

  • xlcenter (выравнивание по центру),

  • xUustify (выравнивание по высоте),

  • xlTop (выравнивание по верхнему краю)







Orientation

Ориентация. Допускается или угол поворота текста в градусах от —90° до 90°, или одно Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 из допустимых значений:

  • xlDownward (выравнивание по левому краю сверху вниз, соответствует углу —90°)

  • xlHorizontal(выравнивание по горизонтали, соответствует нулевому углу )

  • xlupward (выравнивание по правому краю снизу ввысь, соответствует углу 90°)

  • xlvertical (выравнивание Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 по вертикали, нет соответствия в градусах)







ShrinkToFit

Допустимые значения: True (автоматическое изменение шрифта так, чтоб текст помещался в ячейку) и False (в неприятном случае)
















Ниже приведены более нередко применяемые способы объекта Range.
















Address

Возвращает Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 адресок ячейки.

Синтаксис:

Address (rowAbsolute, coluimAbsolute, referenceStyle, external, relativeTo)

Аргументы:

  • RowAbsoiute — допустимы два значения True и False, если употребляется значение True либо аргумент опущен, то ворачивается абсолютная ссылка на строчку

  • ColumnAbsoiute — допустимы два значения True Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 и False, если употребляется значение True либо аргумент опущен, то ворачивается абсолютная ссылка на столбец

  • ref erenceStyle — допустимы два значения xlAl и

xiR1c1, если употребляется значение X1A1 либо аргумент опущен, то Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ворачивается ссылка в виде формата А1 П external — допустимы два значения True и False, если употребляется значение False либо аргумент опущен, то ворачивается относительная ссылка

  • relativeTo — В случае, если rowAbsoiute Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 и СolumnAbsoiute равны False, a referenceStyle X1R1C1, то данный аргумент определяет исходную ячейку спектра, относительно которой делается адресация Последующий пример указывает разные результаты адресации.

MsgBox Cells (1, 1). Address ()

'

' В диалоговом окне отображается адресок Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 $А$1 MsgBox Cells (1, 1) .Address (rowAbsoiute:=False)

'

' В диалоговом окне отображается адресок $А1 '

MsgBox Cells (1, 1) .Address (ref erenceStyle :=x1R1C1) '

' В диалоговом окне отображается адресок R1C1 '

 



































Clear, ClearComments , Clear Contents, ClearFormats

И

Способ Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 clear очищает спектр. В последующем примере очищается спектр Al :G37 . Range ("A1:G37") .Clear

Способы ClearComments, ClearContents, ClearFormats и ClearNotes очищают В спектре







AutoFit

Автоматом настраивает ширину столбца и высоту строчки







ClearNotes

комменты, содержание, форматы и примечания соответственно Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4.







Copy

Копирует спектр в другой спектр либо в буфер обмена.

Синтаксис:

Copy (destination)

  • Аргумент destination определяет спектр, куда копируется данный спектр. Если аргумент destination опушен, то копирование происходит в буфер обмена. В Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 данном примере спектр AI : D4 рабочего листа Лист! копируется в спектр Е5:Н8 листа лист2:

Worksheets ("Лист1" ) . Range ( "А1 : D4 " ) .Сору destination :=Worksheets ("Лист2") .Range ("E5")







Cut

Копирует спектр с удалением Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 в обозначенный спектр либо в буфер обмена,

Синтаксис:

Cut (destination)

  • Аргумент destination определяет спектр, в который копируется данный спектр. Если аргумент destination опущен, то диапазол копируется в буфер обмена. В данном примере спектр AI : D Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 44 рабочего листа лист! копируется с удалением в буфер обмена:

Worksheets ( "Лист1 " ) . Range ( "А1 : D4 " ) . Cut







Delete

Удаляет спектр. В данном примере удаляется 3-я строчка активной рабочей

Rows (3) .Delete







Columns, Rows

Возвращают соответственно семейства столбцов Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 и строк, из которых состоит спектр. В последующем примере переменным i и j присваиваются значения, равные количеству столбцов и строк в выделенном спектре соответственно:

i = Selection. Columns . Count j = Selection. Rows . Count







Insert

Вставка Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ячейки либо спектра ячеек. В последующем примере вставляется новенькая строчка перед четвертой строчкой рабочего листа Лист1:

Worksheets ( "Лист1" ) . Rows (4 ) .Insert







Offset

Возвращает спектр, смещенный относительно данного на величины, специфицированные в аргументах.

Синтаксис:

Of fset Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (rowOffset, columnOf f set )

Аргументы:

  • rowOffset — целое число, указывающее сдвиг по строчкам

  • columnOf f set — целое число, указывающее сдвиг по столбцам К примеру, в последующем примере активируется ячейка, расположенная на три Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 строчки ниже и на два столбца левее относительно предшествующей активной ячейки:

ActiveCell.Offset (rowOf fset :=3, columnOf fset : =-2) .Activate























Select

Выделение спектра







PasteSpecial

Особая вставка из буфера обмена.

Синтаксис:

BasteSpecial (paste, operation, skipBlanks, transpose)

Аргументы:

  • Paste — определяет ту Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 часть содержимого буфера обмена, которая должна быть вставлена в спектр. Допустимые значения:

    • xlAll (все)

    • xl Formulas (формулы)

    • xlvaiues (значения)

    • xlFormats (форматы)

    • xlNotes (примечания)

    • xlAllExceptBorders (без рамки)

  • Operation — определяет операции.Допустимые значения Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4:

    • xlNone (нет)

    • xlAdd (СЛОЖИТЬ)

    • xlSubtract (ВЫЧИСТЬ)

    • xlMultiply (Помножить)

    • xlDivide (поделить)

  • SkipBlanks — допустимые значения: True (пустые ячейки при вставке не учитываются) и False (пустые ячейки учитываются)

  • Transpose — допустимые значения True (спектр выводится транспонированным) и False Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 (не транспонированным)

В приведенном ниже примере данные из спектра C1:C5 рабочего листа лист1 вставляются в спектр D1 : D5 такого же листа, при этом они не подменяют уже имеющиеся данные в спектре Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 D1:D5, а прибавляются к ним данные из спектра C1 : С5 :

Worksheets ( "Лист1 " ) . Range ( "С1 : С5 " ) . Сору Worksheets ("Лист1") .Range ("D1: D5") . PasteSpecial operation : =xlAdd

Способ PasteSpecial программирует выполнение на рабочем листе команды Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 Правка, Особая вставка (Edit, Paste Special). Аргументы способа PasteSpecial соответствуют установкам диалогового окна Особая вставка (Paste Special), отображаемого при помощи этой команды (рис. 3.2)






Рис. 2.2. Диалоговое окно Особая вставка
















AddComment

Добавляет примечание к Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 спектру.

Синтаксис:

AddComment (Text)

  • Text — строковое выражение добавляемое в качестве примечания В последующем примере создается примечание внимание ! ячейки AI активного рабочего листа:

Range ( "А! " ) . AddComment "Внимание!"


















Лекция№7

Тема: Создание приложений для MS Word.

Объект Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 Application 92

Структура проекта в MS Word 93

Работа с документами 94

Коллекция Documents 95

Способы коллекции Documents 95

Объект Document 96

Характеристики объекта Document 96

Способы объекта Document 96


MS Word имеет более сложную структуру объектов по сопоставлению с рассмотренной Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 ранее структурой объектов MS Excel.

Анализ иерархии объектов MS Word (рис. 8.1) свидетельствует о том, что данное приложение имеет довольно много общих объектов с MS Excel (и другими при­ложениями MS Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 Office). В качестве доказательства можно отметить такие объек­ты, как CommandBars (CommandBar), FiLeSearch, Assistant и т. п. Некие из их уже подверглись рассмотрению ранее и их применение в качестве объектов MS Word Лекция № Тема: Автоматизация труда с помощью макросов и шаблонов - страница 4 не имеет каких-то особенностей.


lekciya-xii-vasilij-osipovich-klyuchevskij.html
lekciya-xiv-trudovoe-vospitanie-shkolnikov-v-celostnom-uchebno-vospitatelnom-processe.html
lekciya-xv-nravstvennoe-vospitanie-shkolnikov-v-celostnom-uchebno-vospitatelnom-processe.html