Объект Application (приложение) является главным в иерархии объектов Excel и представляет само приложение Excel. Он имеет более 120 свойств и 40 методов. Эти свойства и методы предназначены для установки общих параметров приложения Excel. Кроме того, объект Application позволяет вызывать более 400 встроенных функций рабочего листа при помощи конструкции вида:

Приведем несколько наиболее часто используемых свойств, методов и событий объекта Application.


	Свойства	Выполняемые действия и допустимые значения
	ActiveWorkbook, ActiveSheet ActiveCell	Возвращают активный объект: рабочую книгу, лист, ячейку, диаграмму, диалоговое окно. Свойство ActiveCell содержится В ActiveSheet, а свойства ActiveSheet, ActiveChart И ActiveDialog в ActiveWorkbook.


	Свойства	Выполняемые действия и допустимые значения
	ActiveChart	В следующем примере в активной ячейке устанавливается по-
	ActiveDialog	лужирный шрифт и в нее вводится строка текста Отчет за май: With ActiveCell .Font. Bold = True .Value = "Отчет за май" End With
	ThisWorkbook	Возвращает рабочую книгу, содержащую выполняющийся в данный момент макрос. Это свойство может возвращать рабочую книгу, отличную от возвращаемой свойством Active-Workbook, т. к. выполняемый макрос может находиться в неактивной книге
	Calculation	Устанавливает режим вычислений. Допустимые значения: xlCalculationAutomatic (автоматический режим) xlCalculationManual (вычисления выполняются вручную) xlCalculationSemiAutomatic (автоматический режим, не распространяется на таблицы)
	Caption	Возвращает текст в строке имени главного окна Excel. Установка свойства равным Empty возвращает заголовок, используемый по умолчанию. В следующем примере первая инструкция устанавливает в качестве заголовка окна приложения текст Отчет за 1999 год, а вторая возвращает имя окна, используемое по умолчанию, т. е. Microsoft Excel: Application. Caption = "Отчет за 1999 год" Application. Caption = Empty
	DisplayAlerts	Допустимые значения: True (отображаются встроенные предупреждения о работе программы) и False (предупреждения не отображаются)
	DisplayFormulaBar	Допустимые значения: True (строка формул выводится в окне Excel) и False (строка формул не выводится). В данном ниже примере установлен режим, при котором строка формул не будет выводиться в окне Excel: Application. DisplayFormulaBar = False
	DisplayScrollBars	Допустимые значения: True (полосы прокрутки видны в окне Excel) и False (полосы прокрутки не отображаются). Например: Application. DisplayScrollBars = False — строка формул не будет выводиться в окне Excel


	Свойства	Выполняемые действия и допустимые значения
	DisplayStatusBar	Допустимые значения: True (строка состояния видна в окне Excel) и False (строка состояния не видна). Например: Application. DisplayStatusBar = True — строка состояния не будет выводиться в окне Excel
	EnableCancelKey	Определяет действие при нажатии комбинации клавиш <Ctrl>+<Break>, используемой для прерывания выполнения процедуры. Допустимые значения: xlDisabled (прерывания программы запрещено) xllnterrupt (прерывание процедуры разрешено) XlErrorHandler (прерывание воспринимается как ошибка)
	Height	Высота окна приложения в пунктах
	Width	Ширина окна приложения в пунктах
	Left	Расстояние в пунктах от левой границы окна приложения до левого края экрана
	Right	Расстояние в пунктах от правой границы окна приложения до правого края экрана
	Top	Расстояние в пунктах от верхней границы окна приложения до верхнего края экрана
	ScreenUpdating	Допустимые значения: True (изображение обновляется во время выполнения программы) и False (изображение не обновляется). Задание False в качестве значения свойства ускоряет выполнение процедуры. В конце процедуры свойству ScreenUpdating необходимо присвоить значение True
	StatusBar	Выводит заданный текст в строке состояния. Выполнение приведенного ниже примера позволит вывести текст Ввод данных. . . в строке состояния: Application. DisplayStatusBar = True Application. StatusBar = "Ввод данных..."
	Version	Возвращает номер текущей версии Excel. Применяется для проверки того, что приложение используется в корректной версии. Например: If Application. Version о "8.0" Then Exit Sub
	WindowState	Устанавливает размер окна. Допустимые значения: xlMaximized (максимальный) xlMinimized (минимальный) xlNormal (нормальный) Например: Application. WindowState = xlMaximized — устанавливается максимальный размер окна


	Методы	Выполняемые действия
	Calculate Run Volatile Wait OnKey	Вызывает принудительное вычисление во всех открытых рабочих книгах. Например: Application. Calculate Запускает на выполнение подпрограмму или макрос. Синтаксис: Run (Macro, Argl, Arg2, ...) Macro — строка с именем макроса Arg1, Arg2, ... — аргументы передаваемые макррсу Например: Application. Run Macro:= "Расчет" - запускает макрос Расчет Вызывает перевычисление функции пользователя при изменении значений параметров. Например, функция Квадрат будет автоматически пересчитывать результат на рабочем листе при изменении значения аргумента: Function Квадрат (х) Application . Volatile Квадрат = х^2 End Function Временно приостанавливает работу приложения без остановки работы других программ. Синтаксис: Wait (Time) Time — время, в которое предполагается возобновить работу приложения В следующем примере показывается, как установить время, чтобы возобновление работы приложения началось в 17 часов: Application. Wait "17:00:00" Устанавливает выполнение специфицированной процедуры при нажатии заданной комбинации клавиш. Синтаксис: OnKey(Key, Procedure) Procedure — имя выполняемой подпрограммы при нажатии клавиш Key — строка, определяющая комбинацию клавиш, которая должна быть нажата. В этой строке можно также указывать специальные клавиши, используя следующие коды:


	Методы	Выполняемые действия
	OnRepeat и OnUndo	<Backspace> — {BACKSPACE} или (BS) <Break> — {BREAK} <Caps Lock> — {CAPSLOCK} <Delete> или <Del> — {DELETE} или {DEL} <вниз>— {DOWN} <End> — {END} <Enter> (цифровая клавиатура) — {ENTER} <ESC> — {ESCAPE}или {ESC} <Home> — {HOME} <lns>или <lnsert>— {INSERT} <<-> — {LEFT} <Num Lock> — {NUMLOCK} <Page Down> — {PGDN} <Page Up> — {PGUP} <Return> — {RETURN} <->> — {RIGHT} <Scroll Lock> — {SCROLLLOCK} <Tab>- {TAB} <вверх>- {UP} ОТ <F1> до<F15> — ОТ {F1}до{F15} Допустимо использование сочетания одновременно нажатых клавиш. С этой целью для перечисленных трех клавиш установлены следующие коды: <Shift> - + <Ctrl> ^ <Alt>-% В примере процедуре Амортизация назначена комбинация клавиш <Ctrl>+<+>, а процедуре ПроцентнаяСтавка — <Shift>+<Ctrl>+<->.>: Application. OnKey "^{+}", "Амортизация" Application. ОпКеу "+^ {RIGHT}", "ПроцентнаяСтавка" Определяет процедуру, выполняемую при выборе команды Правка, Повторить (Edit, Repeat) и Правка, Отменить (Edit, Undo) соответственно.


	Методы	Выполняемые действия
	OnTime Quit	уЙОФБЛУЙУ: OnRepeat (Text, Procedure) OnUndo (Text, Procedure) Text — УФТПЛБ, ЪБДБАЭБС ФЕЛУФ ЛПНБОДЩ рТБЧЛБ, рПЧФПТЙФШ (Edit, Repeat) Procedure — ЙНС РПДРТПЗТБННЩ, ЧЩРПМОСЕНПК РТЙ ЧЩВПТЕ ЛПНБОДЩ рТБЧЛБ, рПЧФПТЙФШ (Edit, Repeat) оБЪОБЮБЕФ ЧЩРПМОЕОЙЕ РТПГЕДХТЩ ОБ ПРТЕДЕМЕООПЕ ЧТЕНС. уЙОФБЛУЙУ: OnTime (EarliestTime, Procedure, LatestTime, Schedule) EarliestTime — НПНЕОФ ЪБРХУЛБ РТПГЕДХТЩ Procedure — ЙНС РТПГЕДХТЩ batestTime — ЕУМЙ ОБ НПНЕОФ ЪБРХУЛБ РТПГЕДХТЩ, Excel ОЕ НПЦЕФ ЕЕ ЪБРХУФЙФШ Ч УЙМХ ФПЗП, ЮФП ЧЩРПМОСЕФУС ДТХЗПЕ ДЕКУФЧЙЕ, ФП РБТБНЕФТ LatestTime ПРТЕДЕМСЕФ РПУМЕДОЕЕ ЧТЕНС ЕЕ ЪБРХУЛБ. еУМЙ ЬФПФ БТЗХНЕОФ ПРХЭЕО, ФП Excel ВХДЕФ ЦДБФШ ДП ФЕИ РПТ, РПЛБ ОЕ УНПЦЕФ ЧЩРПМОЙФШ ЬФХ РТПГЕДХТХ Schedule — ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЧЩРПМОЕОЙЕ РТПГЕДХТЩ ПФЛМБДЩЧБЕФУС ОБ УХФЛЙ) Й False (ЧП ЧУЕИ ПУФБМШОЩИ УМХЮБСИ) ч УМЕДХАЭЕН РТЙНЕТЕ ДЕНПОУФТЙТХЕФУС, ЛБЛ ЪБРХУФЙФШ РТПГЕДХТХ пЮЙУФЛБ ОБ ЧЩРПМОЕОЙЕ ЮЕТЕЪ 15 УЕЛХОД ПФ ФЕЛХЭЕЗП ЧТЕНЕОЙ: Application. OnTime Now +_ TimeValue ("00:00:15"), "пЮЙУФЛБ" ъБЛТЩЧБЕФ РТЙМПЦЕОЙЕ. оБРТЙНЕТ: Application. Quit

ч ЙЕТБТИЙЙ Excel ПВЯЕЛФ workbook (ТБВПЮБС ЛОЙЗБ) ЙДЕФ УТБЪХ РПУМЕ ПВЯЕЛФБ Application Й РТЕДУФБЧМСЕФ ЖБКМ ТБВПЮЕК ЛОЙЗЙ. тБВПЮБС ЛОЙЗБ ИТБОЙФУС МЙВП Ч ЖБКМБИ ЖПТНБФБ XLS (УФБОДБТФОБС ТБВПЮБС ЛОЙЗБ) ЙМЙ XLA (РПМОПУФША ПФЛПНРЙМЙТПЧБООПЕ РТЙМПЦЕОЙЕ). уЧПКУФЧБ Й НЕФПДЩ ТБВПЮЕК ЛОЙЗЙ РПЪЧПМСАФ ТБВПФБФШ У ЖБКМБНЙ.


	уЧПКУФЧБ	чЩРПМОСЕНЩЕ ДЕКУФЧЙС Й ДПРХУФЙНЩЕ ЪОБЮЕОЙС
	ActiveSheet	чПЪЧТБЭБЕФ БЛФЙЧОЩК МЙУФ ЛОЙЗЙ. оБРТЙНЕТ: MsgBox "йНС БЛФЙЧОПЗП МЙУФБ " & ActiveSheet . Name — ЧЩЧПДЙФ Ч ДЙБМПЗПЧПН ПЛОЕ ЙНС БЛФЙЧОПЗП ТБВПЮЕЗП МЙУФБ
	ActiveDialog	чПЪЧТБЭБЕФ БЛФЙЧОПЕ ДЙБМПЗПЧПЕ ПЛОП
	ActiveChart	чПЪЧТБЭБЕФ БЛФЙЧОХА ДЙБЗТБННХ
	Sheets	чПЪЧТБЭБЕФ УЕНЕКУФЧП ЧУЕИ МЙУФПЧ ЛОЙЗЙ
	Worksheets	чПЪЧТБЭБЕФ УЕНЕКУФЧП ЧУЕИ ТБВПЮЙИ МЙУФПЧ ЛОЙЗЙ
	Charts	чПЪЧТБЭБЕФ УЕНЕКУФЧП ЧУЕИ ДЙБЗТБНН ЛОЙЗЙ (ЛПФПТЩЕ ОЕ ЧОЕДТЕОЩ Ч ТБВПЮЙЕ МЙУФЩ)
	Count	чПЪЧТБЭБЕФ ЮЙУМП ПВЯЕЛФПЧ УЕНЕКУФЧБ workbooks
	HasPassword	дПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЕУМЙ Х ДПЛХНЕОФБ ЙНЕЕФУС РБТПМШ ЪБЭЙФЩ), False (Ч РТПФЙЧОПН УМХЮБЕ)
	WriteRe served	дПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЕУМЙ ДПЛХНЕОФ ЪБЛТЩФ ДМС ЪБРЙУЙ), False (Ч РТПФЙЧОПН УМХЮБЕ)
	Saved	дПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЕУМЙ ОЕ РТПЙЪЧПДЙМЙУШ ЙЪНЕОЕОЙС Ч ДПЛХНЕОФЕ УП ЧТЕНЕОЙ ЕЗП РПУМЕДОЕЗП УПИТБОЕОЙС), False (Ч РТПФЙЧОПН УМХЮБЕ)
	MailSystem	чПЪЧТБЭБЕФ ЙНС ЙОУФБММЙТПЧБООЩИ ОБ ЛПНРШАФЕТЕ УТЕДУФЧ ТБВПФЩ У ЬМЕЛФТПООПК РПЮФПК. дПРХУФЙНЩЕ ЪОБЮЕОЙС: xlNoMailSystem (ОЕ ХУФБОПЧМЕОБ УЙУФЕНБ ЬМЕЛФТПООПК РПЮФЩ) xlMAPi (ХУФБОПЧМЕОБ УЙУФЕНБ Microsoft Mail) xlPowerTalk (ХУФБОПЧМЕОБ УЙУФЕНБ Apple PowerTalk Mail, ОБ ЛПНРШАФЕТБИ Macintosh). ч УМЕДХАЭЕН РТЙНЕТЕ РТПЧЕТСЕФУС, ЙОУФБММЙТПЧБОБ МЙ ЬМЕЛФТПООБС РПЮФБ. еУМЙ ЬМЕЛФТПООБС РПЮФБ ОЕ ХУФБОПЧМЕОБ, ФП ПФПВТБЦБЕФУС УППФЧЕФУФЧХАЭЕЕ УППВЭЕОЙЕ: If Application. MailSystem <> xlMAPI Then MsgBox "Microsoft Mail ОЕЙОУФБММЙТПЧБО" End If


	нЕФПДЩ	чЩРПМОСЕНЩЕ ДЕКУФЧЙС
	Activate	бЛФЙЧЙЪЙТХЕФ ТБВПЮХА ЛОЙЗХ ФБЛ, ЮФП ЕЕ РЕТЧЩК ТБВПЮЙК МЙУФ УФБОПЧЙФУС БЛФЙЧОЩН. оБРТЙНЕТ: Workbook. Activate
	Add	уПЪДБЕФ ОПЧЩК ПВЯЕЛФ ДМС УЕНЕКУФЧБ Workbooks. уЙОФБЛУЙУ: Add (Template) Template — ЪБДБЕФ ЫБВМПО, ОБ ПУОПЧЕ ЛПФПТПЗП УПЪДБЕФУС ОПЧБС ТБВПЮБС ЛОЙЗБ. дПРХУФЙНЩЕ ЪОБЮЕОЙС: xlWBATChart, xlWBATExce14IntlMacroSheet, xlWBATExce14MacroSheet ЙМЙ xlWBATWorksheet. еУМЙ БТЗХНЕОФ Template ПРХЭЕО, ФП УПЪДБЕФУС ОПЧБС ТБВПЮБС ЛОЙЗБ У ЛПМЙЮЕУФЧПН МЙУФПЧ, ЪБДБООЩИ УЧПКУФЧПН SheetsInNewWorkbook
	Protect	ъБЭЙЭБЕФ ТБВПЮХА ЛОЙЗХ ПФ ЧОЕУЕОЙС Ч ОЕЕ ЙЪНЕОЕОЙК. уЙОФБЛУЙУ: Protect (Password, Structure, Windows) Password — УФТПЛБ, ЙУРПМШЪХЕНБС Ч ЛБЮЕУФЧЕ РБТПМС ДМС ЪБЭЙФЩ ЛОЙЗЙ Structure — ДПРХУФЙНЩЕ ЪОБЮЕОЙС True (ЪБЭЙЭЕОБ УФТХЛФХТБ ЛОЙЗЙ, Ф. Е. ЧЪБЙНОПЕ ТБУРПМПЦЕОЙЕ МЙУФПЧ) Й False (ОЕ ЪБЭЙЭЕОБ) windows — ДПРХУФЙНЩЕ ЪОБЮЕОЙС True (ЪБЭЙЭЕОП ПЛОП ЛОЙЗЙ) Й False (ОЕ ЪБЭЙЭЕОП) ч УМЕДХАЭЕН РТЙНЕТЕ ХУФБОБЧМЙЧБЕФУС ЪБЭЙФБ ДМС БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ: ActiveWorkbook. Protect Password:= "чЙООЙрХИ"
	Unprotect	уОСФЙЕ ЪБЭЙФЩ У ТБВПЮЕК ЛОЙЗЙ. уЙОФБЛУЙУ: Unprotect (Password) Password — УФТПЛБ, ЙУРПМШЪХЕНБС Ч ЛБЮЕУФЧЕ РБТПМС ДМС ЪБЭЙФЩ МЙУФБ ч УМЕДХАЭЕН РТЙНЕТЕ УОЙНБЕФУС ЪБЭЙФБ У БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ: ActiveWorkbook. Unprotect Password := "чЙООЙрХИ "
	Close	ъБЛТЩФЙЕ ТБВПЮЕК ЛОЙЗЙ
	Open	пФЛТЩФЙЕ УХЭЕУФЧХАЭЕК ТБВПЮЕК ЛОЙЗЙ
	OpenText	пФЛТЩФЙЕ ФЕЛУФПЧПЗП ЖБКМБ, УПДЕТЦБЭЕЗП ФБВМЙГХ ДБООЩИ
	Save	уПИТБОЕОЙЕ ТБВПЮЕК ЛОЙЗЙ
	SaveAs	уПИТБОЕОЙЕ ТБВПЮЕК ЛОЙЗЙ Ч ДТХЗПН ЖБКМЕ. уЙОФБЛУЙУ: SaveAs (Filename) Filename — УФТПЛБ, ХЛБЪЩЧБАЭБС ЙНС ЖБКМБ, Ч ЛПФПТПН ВХДЕФ УПИТБОЕОБ ТБВПЮБС ЛОЙЗБ ч УМЕДХАЭЕН РТЙНЕТЕ БЛФЙЧОБС ТБВПЮБС ЛОЙЗБ УПИТБОСЕФУС Ч ЖБКМЕ У ЙНЕОЕН оПЧБСчЕТУЙС: ActiveBook. SaveAs Filename := "оПЧБСчЕТУЙС"
	SaveAsCopy	уПИТБОЙФШ ТБВПЮХА ЛОЙЗХ Ч ДТХЗПН ЖБКМЕ, ПУФБЧМСС ТБВПЮХА ЛОЙЗХ Ч РБНСФЙ У РТЕЦОЙН ЙНЕОЕН. уЙОФБЛУЙУ: SaveAs (Filename, FileFormat) Filename — УФТПЛБ, ХЛБЪЩЧБАЭБС ЙНС ЖБКМБ, Ч ЛПФПТПН ВХДЕФ УПИТБОЕОБ ТБВПЮБС ЛОЙЗБ ч УМЕДХАЭЕН РТЙНЕТЕ БЛФЙЧОБС ТБВПЮБС ЛОЙЗБ УПИТБОСЕФУС Ч ЖБКМЕ У ЙНЕОЕН ъБРБУОБСчЕТУЙС: ActiveBook. SaveAsCopy Filename := "ъБРБУОБСчЕТУЙС"
	PrintPreview	рТЕДЧБТЙФЕМШОЩК РТПУНПФТ
	Printout	рЕЮБФШ УПДЕТЦЙНПЗП ТБВПЮЕК ЛОЙЗЙ
	SendMail	пФУЩМЛБ РПЮФЩ ЙУРПМШЪХС ЧУФТПЕООЩЕ УТЕДУФЧБ Microsoft Mail (MAPI). уЙОФБЛУЙУ: SendMail (Recipients, Subject, ReturnReceipt ) Recipients — УФТПЛБ ЙМЙ НБУУЙЧ УФТПЛ, РЕТЕЮЙУМСАЭЙИ РПМХЮБФЕМЕК Subject — УФТПЛБ, УРЕГЙЖЙГЙТХАЭБС ФЕНХ УППВЭЕОЙС Optional Variant. ReturnReceipt — ДПРХУФЙНЩЕ ЪОБЮЕОЙС True (ФТЕВХЕФУС ХЧЕДПНМЕОЙЕ П РПМХЮЕОЙЙ УППВЭЕОЙС) Й False (Ч РТПФЙЧОПН УМХЮБЕ) ч УМЕДХАЭЕН РТЙНЕТЕ ТБВПЮБС ЛОЙЗБ ПФУЩМБЕФУС РП ЬМЕЛФТПООПК РПЮФЕ РПМХЮБФЕМА рПТЖЙТЙА ъБЛПЧЩТЛЙОХ: ThisWorkbook . SendMail recipients : = " рПТЖЙТЙК ъБЛПЧЩТЛЙО"

уПВЩФЙС ПВЯЕЛФБ Workbook Й УЕНЕКУФЧБ Workbooks

уПВЩФЙЕ	лПЗДБ ЧПЪОЙЛБЕФ УПВЩФЙЕ
BeforeClose	рТЙ ЪБЛТЩФЙЙ ТБВПЮЕК ЛОЙЗЙ
BeforePrint	рЕТЕД РЕЮБФША ТБВПЮЕК ЛОЙЗЙ
BeforeSave	рЕТЕД УПИТБОЕОЙЕН ТБВПЮЕК ЛОЙЗЙ
Deactivate	лПЗДБ ТБВПЮБС ЛОЙЗБ ФЕТСЕФ ЖПЛХУ
NewSheet	рТЙ ДПВБЧМЕОЙЙ ОПЧПЗП МЙУФБ
Open	рТЙ ПФЛТЩФЙЙ ТБВПЮЕК ЛОЙЗЙ
SheetActivate	рТЙ БЛФЙЧЙЪБГЙЙ МАВПЗП ТБВПЮЕЗП МЙУФБ
Sheet Deactivate	лПЗДБ ТБВПЮЙК МЙУФ ФЕТСЕФ ЖПЛХУ

ч ЙЕТБТИЙЙ Excel ПВЯЕЛФ worksheet ЙДЕФ УТБЪХ РПУМЕ ПВЯЕЛФБ workbook Й РТЕДУФБЧМСЕФ ТБВПЮЙК МЙУФ.

рТЙЧЕДЕН ОЕУЛПМШЛП ОБЙВПМЕЕ ЮБУФП ЙУРПМШЪХЕНЩИ УЧПКУФЧ Й НЕФПДПЧ ПВЯЕЛФБ Worksheet.


	нЕФПДЩ	чЩРПМОСЕНЩЕ ДЕКУФЧЙС
	Name	чПЪЧТБЭБЕФ ЙНС ТБВПЮЕЗП МЙУФБ. ч УМЕДХАЭЕН РТЙНЕТЕ РЕТЧПНХ МЙУФХ БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ РТЙУЧБЙЧБЕФУС ЙНС йФПЗЙ ЪБ ДЕЛБВТШ : Worksheets (1) . Visible = "йФПЗЙ ЪБ ДЕЛБВТШ"
	Add	уПЪДБЕФ ОПЧЩК ТБВПЮЙК МЙУФ. уЙОФБЛУЙУ: Add (Before, After, Count, Type) Before — ХЛБЪЩЧБЕФ МЙУФ, РЕТЕД ЛПФПТЩН ВХДЕФ ТБЪНЕЭЕО ОПЧЩК ТБВПЮЙК МЙУФ After — ХЛБЪЩЧБЕФ МЙУФ, РПУМЕ ЛПФПТПЗП ВХДЕФ ТБЪНЕЭЕО ОПЧЩК ТБВПЮЙК. еУМЙ БТЗХНЕОФЩ Before Й After ПРХЭЕОЩ, ФП ОПЧЩК МЙУФ ТБЪНЕЭБЕФУС РЕТЕД БЛФЙЧОЩН МЙУФПН Count — ЮЙУМП ДПВБЧМСЕНЩИ МЙУФПЧ, РП ХНПМЮБОЙА ЙНЕЕФ ЪОБЮЕОЙЕ 1 фХТЕ — ХЛБЪЩЧБЕФ ФЙР ДПВБЧМСЕНПЗП МЙУФБ. дПРХУФЙНЩЕ ЪОБЮЕОЙС: xlWorksheet (РП ХНПМЮБОЙА), xlExce14MacroSheet Й ИlеИУЕl4 IntlMacroSheet. оБРТЙНЕТ: ActiveWorkbook . Worksheets . Add — ЧУФБЧМСЕФУС ОПЧЩК МЙУФ РЕТЕД БЛФЙЧОЩН МЙУФПН БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ
	Delete	хДБМСЕФ ТБВПЮЙК МЙУФ. оБРТЙНЕТ: Worksheets (1) . Delete - ХДБМСЕФУС РЕТЧЩК ТБВПЮЙК МЙУФ ЙЪ БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ
		ъБЭЙЭБЕФ ТБВПЮЙК МЙУФ ПФ ЧОЕУЕОЙС Ч ОЕЗП ЙЪНЕОЕОЙК уЙОФБЛУЙУ: Protect (Password, DrawingObjects, Contents, Scenarios, User Inter faceOnly) Password — УФТПЛБ, ЙУРПМШЪХЕНБС Ч ЛБЮЕУФЧЕ РБТПМС ДМС ЪБЭЙФЩ МЙУФБ DrawingObjects —ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЗТБЖЙЮЕУЛЙЕ ПВЯЕЛФЩ ЪБЭЙЭЕОЩ) Й False (ЗТБЖЙЮЕУЛЙЕ ПВЯЕЛФЩ ОЕ ЪБЭЙЭЕОЩ). рП ХНПМЮБОЙА ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ False Contents — ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (СЮЕКЛЙ ЪБЭЙЭЕОЩ) Й False (СЮЕКЛЙ ОЕ ЪБЭЙЭЕОЩ). рП ХНПМЮБОЙА ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ True scenarios —ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (УГЕОБТЙЙ ЪБЭЙЭЕОЩ) Й False (УГЕОБТЙЙ ОЕ ЪБЭЙЭЕОЩ). рП ХНПМЮБОЙА ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ True


		Userlnterf aceOnly — ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (МЙУФ ЪБЭЙЭЕО ПФ ЙЪНЕОЕОЙК УП УФПТПОЩ РПМШЪПЧБФЕМС, ОП ОЕ РПДРТПЗТБННЩ VBA) Й False (МЙУФ ЪБЭЙЭЕО ПФ ЙЪНЕОЕОЙК УП УФПТПОЩ ЛБЛ РПМШЪПЧБФЕМС, ФБЛ Й РПДРТПЗТБННЩ VBA). рП ХНПМЮБОЙА ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ False ч УМЕДХАЭЕН РТЙНЕТЕ ХУФБОПЧМЕОБ РПМОБС ЪБЭЙФБ БЛФЙЧОПЗП ТБВПЮЕЗП МЙУФБ ПФ МАВЩИ ЙЪНЕОЕОЙК УП УФПТПОЩ РПМШЪПЧБФЕМС: Active Sheet .Protect Password: =" уЕЛТЕФ" , DrawingObjects :=True, Contents :=True, Scenarios : =True
	Unprotect	уОСФЙЕ ЪБЭЙФЩ У ТБВПЮЕЗП МЙУФБ. уЙОФБЛУЙУ: Unprotect (Password) Password — УФТПЛБ, ЙУРПМШЪХЕНБС Ч ЛБЮЕУФЧЕ РБТПМС ДМС ЪБЭЙФЩ МЙУФБ ч УМЕДХАЭЕН РТЙНЕТЕ УОЙНБЕФУС ЪБЭЙФБ У БЛФЙЧОПЗП ТБВПЮЕЗП МЙУФБ: ActiveSheet . Protect Password: ="уЕЛТЕФ"
	Copy	лПРЙТПЧБОЙЕ ТБВПЮЕЗП МЙУФБ Ч ДТХЗПЕ НЕУФП ТБВПЮЕК ЛОЙЗЙ. уЙОФБЛУЙУ: Copy (Before, . After) Before — ТБВПЮЙК МЙУФ ЛОЙЗЙ, РЕТЕД ЛПФПТЩН ЧУФБЧМСЕФУС ДБООЩК After — ТБВПЮЙК МЙУФ, РПУМЕ ЛПФПТПЗП ЧУФБЧМСЕФУС ДБООЩК пДОПЧТЕНЕООП ДПРХУФЙНП ЙУРПМШЪПЧБОЙЕ ФПМШЛП ПДОПЗП ЙЪ БТЗХНЕОФПЧ. ч УМЕДХАЭЕН РТЙНЕТЕ мЙУФ1 БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ ЛПРЙТХЕФУС РПУМЕ мЙУФъ ФПК ЦЕ ТБВПЮЕК ЛОЙЗЙ: Worksheets ( "мЙУФ1") .уПТХ after :=Worksheets ("мЙУФъ"')
	Move	рЕТЕНЕЭЕОЙЕ ТБВПЮЕЗП МЙУФБ Ч ДТХЗПЕ НЕУФП ТБВПЮЕК ЛОЙЗЙ. уЙОФБЛУЙУ: Move (Before, After) Before — МЙУФ ТБВПЮЕК ЛОЙЗЙ, РЕТЕД ЛПФПТЩН ЧУФБЧМСЕФУС ДБООЩК After — МЙУФ, РПУМЕ ЛПФПТПЗП ЧУФБЧМСЕФУС ДБООЩК пДОПЧТЕНЕООП ДПРХУФЙНП ЙУРПМШЪПЧБОЙЕ ФПМШЛП ПДОПЗП ЙЪ БТЗХНЕОФПЧ. ч РТЙНЕТЕ мЙУФ1 БЛФЙЧОПК ТБВПЮЕК ЛОЙЗЙ РЕТЕНЕЭБЕФУС РЕТЕД мЙУФъ ФПК ЦЕ ТБВПЮЕК ЛОЙЗЙ: Worksheets ( "мЙУФ1" ) .Move Before : =Worksheets ("мЙУФ3")

нЕФПДЩ ПВЯЕЛФБ Worksheet Й УЕНЕКУФЧБ Worksheet

Evaluate

рТЕПВТБЪХЕФ ЧЩТБЦЕОЙЕ Ч ПВЯЕЛФ ЙМЙ ЪОБЮЕОЙЕ. йУРПМШЪХЕФУС РТЙ ЧЧПДЕ ЖПТНХМ Й СЮЕЕЛ ЙЪ ДЙБМПЗПЧЩИ ПЛПО.

ч УМЕДХАЭЕН РТЙНЕТЕ Ч РПМЕ ЧЧПДБ РЕТЧПЗП РПСЧЙЧЫЕЗПУС ) ДЙБМПЗПЧПЗП ПЛОБ ЧЧПДЙФУС УУЩМЛБ ОБ СЮЕКЛХ, ОБРТЙНЕТ A1, РТПГЕДХТБ УЮЙФЩЧБЕФ ЪОБЮЕОЙЕ ЙЪ ЬФПК СЮЕКЛЙ Й ПФПВТБЦБЕФ ЕЗП Ч ДЙБМПЗПЧПН ПЛОЕ. рПУМЕ ЬФПЗП Ч РПМЕ ЧЧПДБ УМЕДХАЭЕЗП ДЙБМПЗПЧПЗП ПЛОБ ОБДП ЧЧЕУФЙ ЛБЛПЕ-ОЙВХДШ БТЙЖНЕФЙЮЕУЛПЕ ЧЩТБЦЕОЙЕ, ОБРТЙНЕТ sin(l) ^2. рТПГЕДХТБ ЧЩЮЙУМЙФ ЪОБЮЕОЙЕ ЬФПЗП ЧЩТБЦЕОЙС Й ПФПВТБЪЙФ Ч ДЙБМПЗПЧПН ПЛОЕ:

Sub дЧБ рТЙНЕТБ дМСEvaluate ( ) '

' чЧПД БДТЕУБ СЮЕКЛЙ '

сЮЕКЛБ = InputBox ( "чЧЕДЙФЕ ЙНС СЮЕКЛЙ") '

' уЮЙФЩЧБОЙЕ ЪОБЮЕОЙС ЙЪ СЮЕКЛЙ У ХЛБЪБООЩН БДТЕУПН '

ъОБЮЕОЙЕ = Evaluate (сЮЕКЛБ) .Value '

' чЩЧПД УЮЙФБООПЗП ЪОБЮЕОЙС Ч ДЙБМПЗПЧПЕ ПЛОП

MsgBox CStr (ъОБЮЕОЙЕ) '

' чЧПД Ч ДЙБМПЗПЧПЕ ПЛОП ЖПТНХМЩ, ОБРТЙНЕТ, sin(1)^2 '

жХОЛГЙС = InputBox ( "чЧЕДЙФЕ ЖХОЛГЙА" ) '

' чЩЮЙУМЕОЙЕ ЪОБЮЕОЙС РП ЧЧЕДЕООПК ЖПТНХМЕ '

ъОБЮЕОЙЕ = Evaluate (жХОЛГЙС)

' чЩЧПД ОБКДЕООПЗП ЪОБЮЕОЙС Ч ДЙБМПЗПЧПН ПЛОЕ '

MsgBox CStr (ъОБЮЕОЙЕ) End Sub

ч ЙЕТБТИЙЙ Excel ПВЯЕЛФ Range (ДЙБРБЪПО) ЙДЕФ УТБЪХ РПУМЕ ПВЯЕЛФБ worksheet. пВЯЕЛФ Range СЧМСЕФУС ПДОЙН ЙЪ ЛМАЮЕЧЩИ ПВЯЕЛФПЧ VBA. пВЯЕЛФ Selection (ЧЩВПТ) ЧПЪОЙЛБЕФ Ч VBA ДЧПСЛП — МЙВП ЛБЛ ТЕЪХМШФБФ ТБВПФЩ НЕФПДБ Select, МЙВП РТЙ ЧЩЪПЧЕ УЧПКУФЧБ selection. фЙР РПМХЮБЕНПЗП ПВЯЕЛФБ ЪБЧЙУЙФ ПФ ФЙРБ ЧЩДЕМЕООПЗП ПВЯЕЛФБ. юБЭЕ ЧУЕЗП ПВЯЕЛФ Selection РТЙОБДМЕЦЙФ ЛМБУУХ Range Й РТЙ ТБВПФЕ У ОЙН НПЦОП ЙУРПМШЪПЧБФШ УЧПКУФЧБ Й НЕФПДЩ ПВЯЕЛФБ Range. йОФЕТЕУОПК ПУПВЕООПУФША ПВЯЕЛФПЧ Range Й selection СЧМСЕФУС ФП, ЮФП ПОЙ ОЕ СЧМСАФУС ЬМЕНЕОФБНЙ ОЙЛБЛПЗП УЕНЕКУФЧБ ПВЯЕЛФПЧ.

рТЙ ТБВПФЕ У ПВЯЕЛФПН Range ОЕПВИПДЙНП РПНОЙФШ, ЛБЛ Ч Excel УУЩМБАФУС ОБ СЮЕКЛХ ТБВПЮЕЗП МЙУФБ. йНЕАФУС ДЧБ УРПУПВБ УУЩМЛЙ ОБ СЮЕКЛЙ ТБВПЮЕЗП МЙУФБ: ПФОПУЙФЕМШОБС БДТЕУБГЙС (Ф. Е. ЛПЗДБ ОБЮБМП ЛППТДЙОБФ, ЪБДБАЭЕЕ ОХНЕТБГЙА УФТПЛ Й УФПМВГПЧ, УЧСЪЩЧБЕФУС У ПВЯЕЛФПН, ЧЩЪЧБЧЫЙН Range) Й БВУПМАФОБС БДТЕУБГЙС.

бДТЕУБГЙС СЮЕКЛЙ ТБВПЮЕЗП МЙУФБ СЧМСЕФУС МЙЫШ ЮБУФША РПМОПЗП БДТЕУБ СЮЕКЛЙ, ЛПФПТЩК Ч ПВЭЕН УМХЮБЕ ЧЛМАЮБЕФ ЙНС ТБВПЮЕЗП МЙУФБ Й БДТЕУ ЛОЙЗЙ. рТЙ ЪБДБОЙЙ РПМОПЗП БДТЕУБ ЪБ ЙНЕОЕН МЙУФБ УМЕДХЕФ ЪОБЛ "!", Б БДТЕУ ЛОЙЗЙ ЪБЛМАЮБЕФУС Ч УЛПВЛЙ. оБРТЙНЕТ,

ч РЕТЧПК УФТПЛЕ ДБООПЗП РТЙНЕТБ ДБОБ ПФОПУЙФЕМШОБС УУЩМЛБ ОБ СЮЕКЛХ AI БЛФЙЧОПЗП ТБВПЮЕЗП МЙУФБ, ЧП ЧФПТПК — ОБ СЮЕКЛХ AI ТБВПЮЕЗП МЙУФБ МЙУФБ БЛФЙЧОПК ЛОЙЗЙ, Б Ч ФТЕФШЕК ОБ СЮЕКЛХ AI ТБВПЮЕЗП МЙУФБ МЙУФ2 ЛОЙЗЙ НПСЛОЙЗБ-xls ФЕЛХЭЕЗП ТБВПЮЕЗП ЛБФБМПЗБ.

ъБДБОЙЕ ЗТХРР УФТПЛ Й УФПМВГПЧ У РПНПЭША ПВЯЕЛФБ Range

еУМЙ Ч ДЙБРБЪПОЕ ХЛБЪЩЧБАФУС ФПМШЛП ЙНЕОБ УФПМВГПЧ ЙМЙ УФТПЛ, ФП ПВЯЕЛФ Range ЪБДБЕФ ДЙБРБЪПО, УПУФПСЭЙК ЙЪ ХЛБЪБООЩИ УФПМВГПЧ ЙМЙ УФТПЛ. оБРТЙНЕТ, Range ("б: У") ЪБДБЕФ ДЙБРБЪПО, УПУФПСЭЙК ЙЪ УФПМВГПЧ б, Ч Й У, Б Range {"2: 2") - ЙЪ ЧФПТПК УФТПЛЙ. дТХЗЙН УРПУПВПН ТБВПФЩ УП УФТПЛБНЙ Й УФПМВГБНЙ СЧМСАФУС НЕФПДЩ ROWS (УФТПЛЙ) Й Columns (УФПМВГЩ), ЧПЪЧТБЭБАЭЙЕ ЛПММЕЛГЙЙ УФТПЛ Й УФПМВГПЧ. оБРТЙНЕТ, УФПМВГПН б СЧМСЕФУС columns (1), Б ЧФПТПК УФТПЛПК - ROWS (2).

фБЛ ЛБЛ СЮЕКЛБ СЧМСЕФУС ЮБУФОЩН УМХЮБЕН ДЙБРБЪПОБ, УПУФПСЭЙН ФПМШЛП ЙЪ ЕДЙОУФЧЕООПК СЮЕКЛЙ, ПВЯЕЛФ Range ФБЛЦЕ РПЪЧПМСЕФ ТБВПФБФШ У ОЕК. пВЯЕЛФ cells (СЮЕКЛЙ) — ЬФП БМШФЕТОБФЙЧОЩК УРПУПВ ТБВПФЩ У СЮЕКЛПК. оБРТЙНЕТ, СЮЕКЛБ б2 ЛБЛ ПВЯЕЛФ ПРЙУЩЧБЕФУС Range ("A2") ЙМЙ cells (1,2). ч УЧПА ПЮЕТЕДШ ПВЯЕЛФ ceils, ЧЛМБДЩЧБСУШ Ч Range, ФБЛЦЕ РПЪЧПМСЕФ ЪБРЙУЩЧБФШ ДЙБРБЪПО Ч БМШФЕТОБФЙЧОПН ЧЙДЕ, ЛПФПТЩК ЙОПЗДБ ХДПВЕО ДМС ТБВПФЩ, Б ЙНЕООП,

пВЯЕЛФ Range РПЪЧПМСЕФ УПЮЕФБФШ ЗЙВЛПУФШ VBA Й НПЭШ ТБВПЮЕЗП МЙУФБ Excel. вПМЕЕ 400 ЧУФТПЕООЩИ ЖХОЛГЙК ТБВПЮЕЗП МЙУФБ УХЭЕУФЧЕООП ХРТПЭБАФ Й ДЕМБАФ ВПМЕЕ ОБЗМСДОЩН РТПЗТБННЙТПЧБОЙЕ ОБ VBA.

дБМЕЕ РТЙЧПДСФУС ОБЙВПМЕЕ ЮБУФП ЙУРПМШЪХЕНЩЕ УЧПКУФЧБ Й НЕФПДЩ ПВЯЕЛФБ


	Value	чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ЙЪ СЮЕКЛЙ ЙМЙ Ч СЮЕКЛЙ ДЙБРБЪПОБ. ч ДБООПН РТЙНЕТЕ РЕТЕНЕООПК И РТЙУЧБЙЧБЕФУС ЪОБЮЕОЙЕ ЙЪ СЮЕКЛЙ C1 : И = Range ("C1") .Value ч УМЕДХАЭЕН РТЙНЕТЕ Ч ДЙБРБЪПО AI : ч2 ЧЧЕДЕОБ 1 : Range ("A1:B2") .Value = 1
	Name	чПЪЧТБЭБЕФ ЙНС ДЙБРБЪПОБ. ч ДБООПН РТЙНЕТЕ ДЙБРБЪПОХ б1:ч2 РТЙУЧБЙЧБЕФУС ЙНС ЙФПЗЙ: Range ( "Al :B2") .Name = "йФПЗЙ"
	Count	чПЪЧТБЭБЕФ ЮЙУМП ПВЯЕЛФПЧ Ч ОБВПТЕ. ч ДБООПН РТЙНЕТЕ РЕТЕНЕООПК И РТЙУЧБЙЧБЕФУС ЪОБЮЕОЙЕ, ТБЧОПЕ ЮЙУМХ УФТПЛ ДЙБРБЪПОБ AI : ч2 : И = Range ( "Al :B2") .Rows . Count
	CurrentRegion	чПЪЧТБЭБЕФ ЮЙУМП УФТПЛ ФЕЛХЭЕЗП ДЙБРБЪПОБ. фЕЛХЭЙН СЧМСЕФУС ДЙБРБЪПО, ПЗТБОЙЮЕООЩК РХУФЩНЙ УФТПЛБНЙ Й УФПМВГБНЙ Й УПДЕТЦБЭЙК ДБООЩК ЬМЕНЕОФ. ч УМЕДХАЭЕН РТЙНЕТЕ РЕТЕНЕООПК Х РТЙУЧБЙЧБЕФУС ЪОБЮЕОЙЕ, ТБЧОПЕ ЮЙУМХ УФТПЛ Ч ФЕЛХЭЕН ДЙБРБЪПОЕ, УПДЕТЦБЭЕН СЮЕКЛХ AI : Х = Range ( "Al" ). CurrentRegion. Rows . Count
	WrapText	рПЪЧПМСЕФ РЕТЕОПУЙФШ ФЕЛУФ РТЙ ЧЧПДЕ Ч ДЙБРБЪПО. дПРХУФЙНЩЕ ЪОБЮЕОЙС True Й False. ч УМЕДХАЭЕН РТЙНЕТЕ Ч СЮЕКЛХ ч2 ЧЧПДЙФУС ФЕЛУФ ДМЙООЩК ФЕЛУФ Й Ч ЬФПК ; СЮЕКЛЕ ХУФБОБЧМЙЧБЕФУС ТЕЦЙН ЧЧПДБ ФЕЛУФБ У РЕТЕОПУПН: With Range ("B2") .Value = "дМЙООЩК ФЕЛУФ" .WrapText = True End With


	EntireColumn, EntireRow	чПЪЧТБЭБЕФ УФПМВЕГ Й УФТПЛХ УППФЧЕФУФЧЕООП. ч ДБООПН РТЙНЕТЕ ПЮЙЭБЕФУС УПДЕТЦЙНПЕ УФТПЛЙ Й ЧЩДЕМСЕФУС УФПМВЕГ У БЛФЙЧОПК СЮЕКЛПК: ActiveCell . EntireRow. Clear ActiveCell .EntireColumn. Select
	ColumnWidth, RowHeight	чПЪЧТБЭБЕФ ЫЙТЙОХ УФПМВГПЧ Й ЧЩУПФХ УФТПЛ ДЙБРБЪПОБ УППФЧЕФУФЧЕООП
	Comment	чПЪЧТБЭБЕФ ПВЯЕЛФ comment (РТЙНЕЮБОЙЕ), ЛПФПТЩК УЧСЪБО У МЕЧЩН ЧЕТИОЙН ХЗМПН ДЙБРБЪПОБ РТЙ ПФПВТБЦЕОЙЙ ОБ ЬЛТБОЕ. пВЯЕЛФ comment СЧМСЕФУС ЬМЕНЕОФПН УЕНЕКУФЧБ comments. нЕФПД AddComment, РТЙНЕОЕООЩК Л ДЙБРБЪПОХ, УПЪДБЕФ ОПЧПЕ РТЙНЕЮБОЙЕ. уТЕДЙ НЕФПДПЧ ПВЯЕЛФБ comment ПФНЕФЙН ФПМШЛП НЕФПД Text, ЛПФПТЩК ЪБДБЕФ ФЕЛУФ, ЧЩЧПДЙНЩК Ч РТЙНЕЮБОЙЙ. уЙОФБЛУЙУ: Text (Text, Start, Overwrite) Text — УФТПЛБ, ЧЩЧПДЙНБС Ч ЛБЮЕУФЧЕ РТЙНЕЮБОЙС р start — У ЛБЛПЗП УЙНЧПМБ ЧЧПДЙФУС ФЕЛУФ Ч ХЦЕ УХЭЕУФЧХАЭЕЕ РТЙНЕЮБОЙЕ. еУМЙ БТЗХНЕОФ ПРХЭЕО, ФП ЙЪ РТЙНЕЮБОЙС ХДБМСЕФУС ЧЕУШ ТБОЕЕ ЧЧЕДЕООЩК ФЕЛУФ р overwrite — ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЧЧПДЙНЩК ФЕЛУФ ЪБРЙУЩЧБЕФУС РПЧЕТИ ХЦЕ УХЭЕУФЧХАЭЕЗП) Й False (ЧЧПДЙНЩК ФЕЛУФ ЧУФБЧМСЕФУС Ч ХЦЕ УХЭЕУФЧХАЭЙК) уТЕДЙ УЧПКУФЧ ПВЯЕЛФБ Comment ПФНЕФЙН ФПМШЛП УЧПКУФЧП visible, ХУФБОБЧМЙЧБАЭЕЕ ПФПВТБЦЕОЙЕ РТЙНЕЮБОЙС РТЙ БЛФЙЧЙЪБГЙЙ ДЙБРБЪПОБ, ЙНЕАЭЕЗП ПРТЕДЕМЕООПЕ РТЙНЕЮБОЙЕ. ч ЛБЮЕУФЧЕ РТЙНЕТБ ТБУУНПФТЙН УМЕДХАЭЙЕ ЙОУФТХЛГЙЙ, ЛПФПТЩЕ УПЪДБАФ Й ПФПВТБЦБАФ РТЙНЕЮБОЙЕ СЮЕКЛЙ ЧЪ, РПСУОСАЭЕЕ ЪБРМБОЙТПЧБООПЕ УПВЩФЙЕ (ТЙУ. 3.1): With Range ("чъ") .AddComment .Text Text:= "юТЕЪЧЩЮБКОП ЧБЦОП!" & Chr(10) & "рТП ЬФП ОЙЛБЛ ОЕМШЪС ЪБВЩФШ ! " .Visible = True End With

тЙУ. 2.1. рТЙНЕТ ПФПВТБЦЕОЙС РТЙНЕЮБОЙС ОБ ТБВПЮЕН МЙУФЕ


	Font	чПЪЧТБЭБЕФ ПВЯЕЛФ Font (ЫТЙЖФ). пВЯЕЛФ Font ЙНЕЕФ УМЕДХАЭЙЕ УЧПКУФЧБ: Name — УФТПЛБ, ХЛБЪЩЧБАЭБС ЙНС ЫТЙЖФБ, ОБРТЙНЕТ "Arial Cyr" FontStyle — уфймш, ЧПЪНПЦЕО Regular (ПВЩЮОЩК), Bold (рпмхцйтощк), Italic(ЛХТУЙЧ), Bold italic (РПМХЦЙТОЩК ЛХТУЙЧ) size - ТБЪНЕТ strikethrough — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС: True (ВХЛЧЩ ЙНЕАФ МЙОЙА РП ГЕОФТХ, ЛБЛ ВХДФП ПОЙ РЕТЕЮЕТЛОХФЩ) Й False (ОЕ ЙНЕАФ МЙОЙЙ РП ГЕОФТХ) Superscript — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС: True (ФЕЛУФ ЙУРПМШЪХЕФУС ЛБЛ ЧЕТИОЙК ЙОДЕЛУ) Й False (ОЕ ЙУРПМШЪХЕФУС ЛБЛ ЧЕТИОЙК ЙОДЕЛУ) Subscript — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС: True (ФЕЛУФ ЙУРПМШЪХЕФУС ЛБЛ ОЙЦОЙК ЙОДЕЛУ) Й False (ОЕ ЙУРПМШЪХЕФУС ЛБЛ ОЙЦОЙК ЙОДЕЛУ) Underline-ДПРХУФЙНЩНЙ СЧМСАФУС ЪОБЮЕОЙС: xlNone (ОЕФ РПДЮЕТЛЙЧБОЙС) xlSingie (ПДЙОБТОПЕ, РП ЪОБЮЕОЙА)


		xlDoubie (ДЧПКОПЕ, РП ЪОБЮЕОЙА) xlsingleAccounting (ПДЙОБТОПЕ, РП СЮЕКЛЕ) Accounting (ДЧПКОПЕ, ОП СЮЕКЛЕ) оБРТЙНЕТ, Ч УМЕДХАЭЕН РТЙНЕТЕ ХУФБОБЧМЙЧБЕФУС ДМС ДЙБРБЪПОБ AI : Ч2 РПМХЦЙТОЩК ЫТЙЖФ, ЛТБУОПЗП ГЧЕФБ Й У ЧЩУПФПК УЙНЧПМПЧ 1 4 : With Range ("A1:B2").Font .Size = 14 .FontStyle = Bold .Colorlndex = 3 End With
	Formula	чПЪЧТБЭБЕФ ЖПТНХМХ Ч ЖПТНБФЕ Al. оБРТЙНЕТ, УМЕДХАЭБС ЙОУФТХЛГЙС ЧЧПДЙФ Ч СЮЕКЛХ У2 ЖПТНХМХ =$б$4+$б$А: Range ("C2") . Formula = "=$б$4+$б$10"
	FormulaArray 1	чПЪЧТБЭБЕФ ЖПТНХМХ ДЙБРБЪПОБ Ч ЖПТНБФЕ б1. ч ПФМЙЮЙЕ ПФ ПВЩЛОПЧЕООПК ЖПТНХМЩ ТБВПЮЕЗП МЙУФБ, ЖПТНХМБ ДЙБРБЪПОБ ЧЧПДЙФУС ОБ ТБВПЮЕН МЙУФЕ ОЕ РПУТЕДУФЧПН ОБЦБФЙС ОБ ЛМБЧЙЫХ <Enter>, Б У РПНПЭША ЛПНВЙОБГЙЙ ЛМБЧЙЫ <Ctrl>+<Shift>+<Enter>. уМЕДХАЭБС ЙОУФТХЛГЙС ЧЧПДЙФ Ч ДЙБРБЪПО е!:еъ ЖПТНХМХ {=Sum(Al:A3Bl:B3) }: Range ( "El :E3") .FormulaArray = "=Sum(Al:A3Bl:B3) "
	FormulaHidden	дПРХУФЙНЩЕ ЪОБЮЕОЙС: True (ЖПТНХМБ УРТСФБОБ, ЕУМЙ ТБВПЮЙК МЙУФ ЙМЙ ЛОЙЗБ ЪБЭЙЭЕОЩ) Й False (Ч РТПФЙЧОПН УМХЮБЕ). оБРТЙНЕТ, УМЕДХАЭБС ЙОУФТХЛГЙС УЛТЩЧБЕФ ЖПТНХМЩ Ч УФПМВГЕ б: Columns ("A") . FormulaHidden = True
	FormulaLocal	чПЪЧТБЭБЕФ ОЕБОЗМПСЪЩЮОЩЕ (НЕУФОЩЕ) ЖПТНХМЩ Ч ЖПТНБФЕ б1. оБРТЙНЕТ, УМЕДХАЭБС ЙОУФТХЛГЙС ЧЧПДЙФ Ч СЮЕКЛХ ч2 ЖПТНХМХ =ухнн(у1:у4): Range("B2"). FormulaLocal = "=ухнн (у1:у4) "
	JormulaRlCl	чПЪЧТБЭБЕФ ЖПТНХМХ Ч ЖПТНБФЕ R1C1. оБРТЙНЕТ, Range ("Bl") . FormulaRlCl = "=SQRT (R3C2 ) "
	FormulaRlCl Local	чПЪЧТБЭБЕФ ОЕБОЗМПСЪЩЮОЩЕ ЖПТНХМЩ Ч ЖПТНБФЕ R1C1
	Text	чПЪЧТБЭБЕФ УПДЕТЦБОЙЕ ДЙБРБЪПОБ Ч ФЕЛУФПЧПН ЖПТНБФЕ


	HorizontalAlignment	зПТЙЪПОФБМШОПЕ ЧЩТБЧОЙЧБОЙЕ. дПРХУФЙНЩЕ ЪОБЮЕОЙС: xlceneral (ПВЩЮОПЕ ЧЩТБЧОЙЧБОЙЕ, ЪБЧЙУСЭЕЕ ПФ ФЙРБ ЧЧПДЙНЩИ ЪОБЮЕОЙК) xlcenter (ЧЩТБЧОЙЧБОЙЕ РП ГЕОФТХ) xlRight (ЧЩТБЧОЙЧБОЙЕ РП РТБЧПНХ ЛТБА) xlLeft (ЧЩТБЧОЙЧБОЙЕ РП МЕЧПНХ ЛТБА) xUustify (ЧЩТБЧОЙЧБОЙЕ РП ЫЙТЙОЕ) xlCenterAcrossSelection (ЧЩТБЧОЙЧБОЙЕ РП ГЕОФТХ Ч ЧЩДЕМЕООПН ДЙБРБЪПОЕ) xlFill (ЧЩТБЧОЙЧБОЙЕ РП ЫЙТЙОЕ
	Vertical Alignment	чЕТФЙЛБМШОПЕ ЧЩТБЧОЙЧБОЙЕ. дПРХУФЙНЩЕ ЪОБЮЕОЙС: xlBottom (ЧЩТБЧОЙЧБОЙЕ РП ОЙЦОЕНХ ЛТБА), xlcenter (ЧЩТБЧОЙЧБОЙЕ РП ГЕОФТХ), xUustify (ЧЩТБЧОЙЧБОЙЕ РП ЧЩУПФЕ), xlTop (ЧЩТБЧОЙЧБОЙЕ РП ЧЕТИОЕНХ ЛТБА)
	Orientation	пТЙЕОФБГЙС. дПРХУЛБЕФУС МЙВП ХЗПМ РПЧПТПФБ ФЕЛУФБ Ч ЗТБДХУБИ ПФ —90° ДП 90°, МЙВП ПДОП ЙЪ ДПРХУФЙНЩИ ЪОБЮЕОЙК: xlDownward (ЧЩТБЧОЙЧБОЙЕ РП МЕЧПНХ ЛТБА УЧЕТИХ ЧОЙЪ, УППФЧЕФУФЧХЕФ ХЗМХ —90°) xlHorizontal(ЧЩТБЧОЙЧБОЙЕ РП ЗПТЙЪПОФБМЙ, УППФЧЕФУФЧХЕФ ОХМЕЧПНХ ХЗМХ ) xlupward (ЧЩТБЧОЙЧБОЙЕ РП РТБЧПНХ ЛТБА УОЙЪХ ЧЧЕТИ, УППФЧЕФУФЧХЕФ ХЗМХ 90°) xlvertical (ЧЩТБЧОЙЧБОЙЕ РП ЧЕТФЙЛБМЙ, ОЕФ УППФЧЕФУФЧЙС Ч ЗТБДХУБИ)
	ShrinkToFit	дПРХУФЙНЩЕ ЪОБЮЕОЙС: True (БЧФПНБФЙЮЕУЛПЕ ЙЪНЕОЕОЙЕ ЫТЙЖФБ ФБЛ, ЮФПВЩ ФЕЛУФ РПНЕЭБМУС Ч СЮЕКЛХ) Й False (Ч РТПФЙЧОПН УМХЮБЕ)

оЙЦЕ РТЙЧЕДЕОЩ ОБЙВПМЕЕ ЮБУФП ЙУРПМШЪХЕНЩЕ НЕФПДЩ ПВЯЕЛФБ Range.

Address

чПЪЧТБЭБЕФ БДТЕУ СЮЕКЛЙ.

уЙОФБЛУЙУ:

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

бТЗХНЕОФЩ:

RowAbsoiute — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС True Й False, ЕУМЙ ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ True ЙМЙ БТЗХНЕОФ ПРХЭЕО, ФП ЧПЪЧТБЭБЕФУС БВУПМАФОБС УУЩМЛБ ОБ УФТПЛХ
ColumnAbsoiute — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС True Й False, ЕУМЙ ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ True ЙМЙ БТЗХНЕОФ ПРХЭЕО, ФП ЧПЪЧТБЭБЕФУС БВУПМАФОБС УУЩМЛБ ОБ УФПМВЕГ
ref erenceStyle — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС xlAl Й
xiR1c1, ЕУМЙ ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ X1A1 ЙМЙ БТЗХНЕОФ ПРХЭЕО, ФП ЧПЪЧТБЭБЕФУС УУЩМЛБ Ч ЧЙДЕ ЖПТНБФБ б1р external — ДПРХУФЙНЩ ДЧБ ЪОБЮЕОЙС True Й False, ЕУМЙ ЙУРПМШЪХЕФУС ЪОБЮЕОЙЕ False ЙМЙ БТЗХНЕОФ ПРХЭЕО, ФП ЧПЪЧТБЭБЕФУС ПФОПУЙФЕМШОБС УУЩМЛБ
relativeTo — ч УМХЮБЕ, ЕУМЙ rowAbsoiute Й уolumnAbsoiute ТБЧОЩ False, a referenceStyle X1R1C1, ФП ДБООЩК БТЗХНЕОФ ПРТЕДЕМСЕФ ОБЮБМШОХА СЮЕКЛХ ДЙБРБЪПОБ, ПФОПУЙФЕМШОП ЛПФПТПК РТПЙЪЧПДЙФУС БДТЕУБГЙС уМЕДХАЭЙК РТЙНЕТ РПЛБЪЩЧБЕФ ТБЪМЙЮОЩЕ ТЕЪХМШФБФЩ БДТЕУБГЙЙ.

MsgBox Cells (1, 1). Address ()

'

' ч ДЙБМПЗПЧПН ПЛОЕ ПФПВТБЦБЕФУС БДТЕУ $б$1 MsgBox Cells (1, 1) .Address (rowAbsoiute:=False)

'

' ч ДЙБМПЗПЧПН ПЛОЕ ПФПВТБЦБЕФУС БДТЕУ $б1 '

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

' ч ДЙБМПЗПЧПН ПЛОЕ ПФПВТБЦБЕФУС БДТЕУ R1C1 '


	Clear, ClearComments , Clear Contents, ClearFormats й	нЕФПД clear ПЮЙЭБЕФ ДЙБРБЪПО. ч УМЕДХАЭЕН РТЙНЕТЕ ПЮЙЭБЕФУС ДЙБРБЪПО Al :G37 . Range ("A1:G37") .Clear нЕФПДЩ ClearComments, ClearContents, ClearFormats Й ClearNotes ПЮЙЭБАФ ч ДЙБРБЪПОЕ
	AutoFit	бЧФПНБФЙЮЕУЛЙ ОБУФТБЙЧБЕФ ЫЙТЙОХ УФПМВГБ Й ЧЩУПФХ УФТПЛЙ
	ClearNotes	ЛПННЕОФБТЙЙ, УПДЕТЦБОЙЕ, ЖПТНБФЩ Й РТЙНЕЮБОЙС УППФЧЕФУФЧЕООП.
	Copy	лПРЙТХЕФ ДЙБРБЪПО Ч ДТХЗПК ДЙБРБЪПО ЙМЙ Ч ВХЖЕТ ПВНЕОБ. уЙОФБЛУЙУ: Copy (destination) бТЗХНЕОФ destination ПРТЕДЕМСЕФ ДЙБРБЪПО, ЛХДБ ЛПРЙТХЕФУС ДБООЩК ДЙБРБЪПО. еУМЙ БТЗХНЕОФ destination ПРХЫЕО, ФП ЛПРЙТПЧБОЙЕ РТПЙУИПДЙФ Ч ВХЖЕТ ПВНЕОБ. ч ДБООПН РТЙНЕТЕ ДЙБРБЪПО AI : D4 ТБВПЮЕЗП МЙУФБ мЙУФ! ЛПРЙТХЕФУС Ч ДЙБРБЪПО е5:о8 МЙУФБ МЙУФ2: Worksheets ("мЙУФ1" ) . Range ( "б1 : D4 " ) .уПТХ destination :=Worksheets ("мЙУФ2") .Range ("E5")
	Cut	лПРЙТХЕФ ДЙБРБЪПО У ХДБМЕОЙЕН Ч ХЛБЪБООЩК ДЙБРБЪПО ЙМЙ Ч ВХЖЕТ ПВНЕОБ, уЙОФБЛУЙУ: Cut (destination) бТЗХНЕОФ destination ПРТЕДЕМСЕФ ДЙБРБЪПО, Ч ЛПФПТЩК ЛПРЙТХЕФУС ДБООЩК ДЙБРБЪПО. еУМЙ БТЗХНЕОФ destination ПРХЭЕО, ФП ДЙБРБЪПМ ЛПРЙТХЕФУС Ч ВХЖЕТ ПВНЕОБ. ч ДБООПН РТЙНЕТЕ ДЙБРБЪПО AI : D4 ТБВПЮЕЗП МЙУФБ МЙУФ! ЛПРЙТХЕФУС У ХДБМЕОЙЕН Ч ВХЖЕТ ПВНЕОБ: Worksheets ( "мЙУФ1 " ) . Range ( "б1 : D4 " ) . Cut
	Delete	хДБМСЕФ ДЙБРБЪПО. ч ДБООПН РТЙНЕТЕ ХДБМСЕФУС ФТЕФШС УФТПЛБ БЛФЙЧОПК ТБВПЮЕК УФТБОЙГЩ: Rows (3) .Delete
	Columns, Rows	чПЪЧТБЭБАФ УППФЧЕФУФЧЕООП УЕНЕКУФЧБ УФПМВГПЧ Й УФТПЛ, ЙЪ ЛПФПТЩИ УПУФПЙФ ДЙБРБЪПО. ч УМЕДХАЭЕН РТЙНЕТЕ РЕТЕНЕООЩН i Й j РТЙУЧБЙЧБАФУС ЪОБЮЕОЙС, ТБЧОЩЕ ЛПМЙЮЕУФЧХ УФПМВГПЧ Й УФТПЛ Ч ЧЩДЕМЕООПН ДЙБРБЪПОЕ УППФЧЕФУФЧЕООП: i = Selection. Columns . Count j = Selection. Rows . Count
	Insert	чУФБЧЛБ СЮЕКЛЙ ЙМЙ ДЙБРБЪПОБ СЮЕЕЛ. ч УМЕДХАЭЕН РТЙНЕТЕ ЧУФБЧМСЕФУС ОПЧБС УФТПЛБ РЕТЕД ЮЕФЧЕТФПК УФТПЛПК ТБВПЮЕЗП МЙУФБ мЙУФ1: Worksheets ( "мЙУФ1" ) . Rows (4 ) .Insert
	Offset	чПЪЧТБЭБЕФ ДЙБРБЪПО, УНЕЭЕООЩК ПФОПУЙФЕМШОП ДБООПЗП ОБ ЧЕМЙЮЙОЩ, УРЕГЙЖЙГЙТПЧБООЩЕ Ч БТЗХНЕОФБИ. уЙОФБЛУЙУ: Of fset (rowOffset, columnOf f set ) бТЗХНЕОФЩ: rowOffset — ГЕМПЕ ЮЙУМП, ХЛБЪЩЧБАЭЕЕ УДЧЙЗ РП УФТПЛБН columnOf f set — ГЕМПЕ ЮЙУМП, ХЛБЪЩЧБАЭЕЕ УДЧЙЗ РП УФПМВГБН оБРТЙНЕТ, Ч УМЕДХАЭЕН РТЙНЕТЕ БЛФЙЧЙЪЙТХЕФУС СЮЕКЛБ, ТБУРПМПЦЕООБС ОБ ФТЙ УФТПЛЙ ОЙЦЕ Й ОБ ДЧБ УФПМВГБ МЕЧЕЕ ПФОПУЙФЕМШОП РТЕДЩДХЭЕК БЛФЙЧОПК СЮЕКЛЙ: ActiveCell.Offset (rowOf fset :=3, columnOf fset : =-2) .Activate

Select

чЩДЕМЕОЙЕ ДЙБРБЪПОБ

PasteSpecial

уРЕГЙБМШОБС ЧУФБЧЛБ ЙЪ ВХЖЕТБ ПВНЕОБ.

уЙОФБЛУЙУ:

BasteSpecial (paste, operation, skipBlanks, transpose)

бТЗХНЕОФЩ:

Paste — ПРТЕДЕМСЕФ ФХ ЮБУФШ УПДЕТЦЙНПЗП ВХЖЕТБ ПВНЕОБ, ЛПФПТБС ДПМЦОБ ВЩФШ ЧУФБЧМЕОБ Ч ДЙБРБЪПО. дПРХУФЙНЩЕ ЪОБЮЕОЙС:
- xlAll (ЧУЕ)
- xl Formulas (ЖПТНХМЩ)
- xlvaiues (ЪОБЮЕОЙС)
- xlFormats (ЖПТНБФЩ)
- xlNotes (РТЙНЕЮБОЙС)
- xlAllExceptBorders (ВЕЪ ТБНЛЙ)
Operation — ПРТЕДЕМСЕФ ПРЕТБГЙЙ.дПРХУФЙНЩЕ ЪОБЮЕОЙС:
- xlNone (ОЕФ)
- xlAdd (умпцйфш)
- xlSubtract (чщюйуфш)
- xlMultiply (хнопцйфш)
- xlDivide (ТБЪДЕМЙФШ)
SkipBlanks — ДПРХУФЙНЩЕ ЪОБЮЕОЙС: True (РХУФЩЕ СЮЕКЛЙ РТЙ ЧУФБЧЛЕ ОЕ ХЮЙФЩЧБАФУС) Й False (РХУФЩЕ СЮЕКЛЙ ХЮЙФЩЧБАФУС)
Transpose — ДПРХУФЙНЩЕ ЪОБЮЕОЙС True (ДЙБРБЪПО ЧЩЧПДЙФУС ФТБОУРПОЙТПЧБООЩН) Й False (ОЕ ФТБОУРПОЙТПЧБООЩН)

ч РТЙЧЕДЕООПН ОЙЦЕ РТЙНЕТЕ ДБООЩЕ ЙЪ ДЙБРБЪПОБ C1:C5 ТБВПЮЕЗП МЙУФБ МЙУФ1 ЧУФБЧМСАФУС Ч ДЙБРБЪПО D1 : D5 ФПЗП ЦЕ МЙУФБ, РТЙЮЕН ПОЙ ОЕ ЪБНЕОСАФ ХЦЕ УХЭЕУФЧХАЭЙЕ ДБООЩЕ Ч ДЙБРБЪПОЕ D1:D5, Б РТЙВБЧМСАФУС Л ОЙН ДБООЩЕ ЙЪ ДЙБРБЪПОБ C1 : у5 :

Worksheets ( "мЙУФ1 " ) . Range ( "у1 : у5 " ) . уПТХ Worksheets ("мЙУФ1") .Range ("D1: D5") . PasteSpecial operation : =xlAdd

нЕФПД PasteSpecial РТПЗТБННЙТХЕФ ЧЩРПМОЕОЙЕ ОБ ТБВПЮЕН МЙУФЕ ЛПНБОДЩ рТБЧЛБ, уРЕГЙБМШОБС ЧУФБЧЛБ (Edit, Paste Special). бТЗХНЕОФЩ НЕФПДБ PasteSpecial УППФЧЕФУФЧХАФ ХУФБОПЧЛБН ДЙБМПЗПЧПЗП ПЛОБ уРЕГЙБМШОБС ЧУФБЧЛБ (Paste Special), ПФПВТБЦБЕНПЗП У РПНПЭША ЬФПК ЛПНБОДЩ (ТЙУ. 3.2)

тЙУ. 2.2. дЙБМПЗПЧПЕ ПЛОП уРЕГЙБМШОБС ЧУФБЧЛБ


	Application . Pi ( )	Вычисление числа п
	Application. Pmt (Аргументы)	Определение постоянных периодических платежей при постоянной процентной ставке с помощью функции ППЛАТ (РМТ)
	Application . Sum (Аргументы)	Нахождение суммы значений из ячеек диапазона

уПВЩФЙЕ	лПЗДБ ЧПЪОЙЛБЕФ УПВЩФЙЕ
NewWorkbook	рТЙ УПЪДБОЙЙ ОПЧПК ТБВПЮЕК ЛОЙЗЙ
WorkbookActivate	рТЙ БЛФЙЧЙЪБГЙЙ ТБВПЮЕК ЛОЙЗЙ
WorkbookBeforeClose	рЕТЕД ЪБЛТЩФЙЕН ТБВПЮЕК ЛОЙЗЙ
WorkbookBeforePrint	рЕТЕД РЕЮБФША ТБВПЮЕК ЛОЙЗЙ
WorkbookBeforeSave	рЕТЕД УПИТБОЕОЙЕН ТБВПЮЕК ЛОЙЗЙ
WorkbookNewSheet	рТЙ ДПВБЧМЕОЙЙ ОПЧПЗП МЙУФБ Ч ТБВПЮХА ЛОЙЗХ
WorkbookOpen	рТЙ ПФЛТЩФЙЙ ТБВПЮЕК ЛОЙЗЙ
WorkbookDeactivate	лПЗДБ БЛФЙЧОБС ЛОЙЗБ ФЕТСЕФ ЖПЛХУ


	жПТНБФ б1	йНС СЮЕКЛЙ УПУФПЙФ ЙЪ ЙНЕОЙ УФПМВГБ (ЙИ 256 — б, ч, ..., Z, бч, ..., HZ, IA, ..., IV) Й ОПНЕТБ (1, ...., 16384).
		оБРТЙНЕТ, A1, C2
	жПТНБФ R1C1	бДТЕУБГЙС ЪБДБЕФУС ЙОДЕЛУПН УФТПЛЙ Й ЙОДЕЛУПН УФПМВГБ. оБРТЙНЕТ, R1C1, R2C3


	жПТНБФ б1	рТЙЪОБЛПН БВУПМАФОПК БДТЕУБГЙЙ СЧМСЕФУС ЪОБЛ "$", РТЕДЫЕУФЧХАЭЙК ЙНЕОЙ УФТПЛЙ (БВУПМАФОПК БДТЕУБГЙЙ ОБ УФТПЛХ) ЙМЙ УФПМВГБ (БВУПМАФОПК БДТЕУБГЙЙ ОБ УФПМВЕГ). оБРТЙНЕТ, $б10, б$10 Й $б$10 ЪБДБАФ БВУПМАФОХА БДТЕУБГЙА ОБ УФПМВЕГ б, УФТПЛХ 10 Й СЮЕКЛХ б10 УППФЧЕФУФЧЕООП
	жПТНБФ R1C1	хЛБЪЩЧБЕФУС УНЕЭЕОЙЕ РП ПФОПЫЕОЙА Л БЛФЙЧОПК СЮЕКЛЕ. уНЕЭЕОЙЕ РТЙЧПДЙФУС Ч ЛЧБДТБФОЩИ УЛПВЛБИ, РТЙЮЕН ЪОБЛ ХЛБЪЩЧБЕФ ОБ ОБРТБЧМЕОЙЕ УНЕЭЕОЙС. оБРТЙНЕТ, ЕУМЙ БЛФЙЧОПК СЮЕКЛПК СЧМСЕФУС ЛБУЪ, ФП R[i]C[-1] ДБЕФ УУЩМЛХ ОБ СЮЕКЛХ ЛЪУ2


	AddComment	дПВБЧМСЕФ РТЙНЕЮБОЙЕ Л ДЙБРБЪПОХ. уЙОФБЛУЙУ: AddComment (Text) Text — УФТПЛПЧПЕ ЧЩТБЦЕОЙЕ ДПВБЧМСЕНПЕ Ч ЛБЮЕУФЧЕ РТЙНЕЮБОЙС ч УМЕДХАЭЕН РТЙНЕТЕ УПЪДБЕФУС РТЙНЕЮБОЙЕ ЧОЙНБОЙЕ ! СЮЕКЛЙ AI БЛФЙЧОПЗП ТБВПЮЕЗП МЙУФБ: Range ( "б! " ) . AddComment "чОЙНБОЙЕ!"