Функция MsgBox позволяет выводить информацию на экран в виде окна.

Общий вид функций:

MsgBox сообщение

[,код кнопки [,заголовок]]

сообщение – определяет значение выражения, которое будет выводиться в окне сообщения. Это выражение может быть текстом, который нужно взять в кавычки, и (или) переменной. Для вывода в одном окне текста сообщений и значения переменной, следует использовать операцию объединение строк (&).

Dim Pi As Single

MsgBox " pi=" & Pi

Результат работы макроса:

код кнопки – определяет какие кнопки и пиктограммы будут выводиться в окне сообщений. Если этот параметр не указан, в окне сообщения находится только кнопка Ок .

заголовок - содержит текст, который отображается в строке заголовка сообщения. Если этот аргумент не задан, в заголовок помещается строка Microsoft Excel .

Dim Pi As Single

MsgBox Pi,"Это число Pi"

Ввод информации в VBA можно осуществить с помощью окна ввода:

Функция InputBox создает окно ввода:

InputBox(сообщение

[,заголовок[,значе-ние]])

сообщение– строка символов или строковая переменная, содержащая текстовое сообщение пользователю;

заголовок – текст, который отображается в строке заголовка сообщения;

значение – определяет значения, отображаемые по умолчанию в текстовом поле диалогового окна.

ЗАДАЧА 2. Угол задан в радианах. Выполнить перевод в градусную меру.

Const pi = 3.14159

Dim g As Integer

Dim m As Integer

Dim s As Integer

r = InputBox("r=", "Величина угла в радианах", pi / 4)

g = Fix(r * 180 / pi)

m = Fix((r*180/pi-g)*60)

s=Fix(((r*180/pi-g)*60-m)*60)

MsgBox g & " градусов" & m & " минут" & s & " секунд"

18. Условный оператор

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

Условный оператор, соответствующий приведенной блок-схеме, имеет вид:

If выражение Then

оператор1

оператор2

В данной конструкции выражение должно иметь логический тип.

Работает оператор так. Вычисляется значение выражения. Если оно имеет значение true, выполняется оператор1, в противном случае (выражение имеет значение false) – оператор2.

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

Условный оператор в этом случае имет конструкцию:

If выражение Then

оператор

Эту запись можно назвать «пропуск оператора else».

Здесь оператор либо выполняется, либо пропускается, в зависимости от значения выражения.

Допускаются многократно вложенные операторы If...Then...Else, имеющие столько уровней вложения, сколько потребуется.

If выражение1 Then

операторы1

Elseif выражение2 then

операторы2

Elseif выражение3 then

операторы3

Elseif выражениеN then

операторыN

операторы

Для облегчения чтения программы вместо многократно вложенных операторов, иногда предпочтительнее использовать оператор Select Case

Select Case <выражение >

Case <условие выбора 1 >

<операторы 1 >

Case <условие выбора 2 >

<операторы 2 >

……………..

Case <условие выбора N >

<операторы N >

<операторы >

19. Примеры программ

ЗАДАЧА 3. Известны коэффициенты а, b и с квадратного уравнения ax 2 +bx +c =0. Вычислить корни квадратного уравнения.

Входные данные: a, b, c.

Выходные данные: х 1 , х 2 .

Sub prim7()

Dim x1 As Single

Dim x2 As Single

InputBox("A=","Коэффициенты квадратного уравнения", 2)

InputBox("B="," Коэффициенты квадратного уравнения", 3)

InputBox("C="," Коэффициенты квадратного уравнения",-2)

d = b ^ 2 - 4 * a * c

If d < 0 Then

MsgBox "Действительных решений нет", vbCritical

x1=(-b+Sqr(d))/(2*a)

x2=(-b-Sqr(d))/(2*a)

MsgBox "X1=" & x1 & Chr(13) & "X2=" & x2, vbInformation

ЗАДАЧА 4. Дано вещественное число x . Для функции, график которой приведен ниже вычислить y =f (x ).

If x <= -1 Then

ElseIf x > 1 Then

ЗАДАЧА 5. Даны вещественные числа x и y . Определить принадлежит ли точка с координатами (x ; y ) заштрихованной части плоскости.

Точка с координатами (x ;y ) принадлежит заштрихованной части плоскости, если:

If y <= 2 * x + 2 And

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

Для организации вывода информации используется встроенная функция MsgBox .

Рассмотрим варианты ее применения.

1. y = Sqr(16)

MsgBox y

2. S = 99

MsgBox (“ S= ” & S)

это знак конкатенации – амперсанд ;

применяется для объединения нескольких строк в одну

3. a = 5: b = 101

MsgBox ("a=" & a & " " & "b=" & b)

4. MsgBox ("a=" & a & Chr(13) & "b=" & b)

с помощью этой функции вводится символ перехода

на новую строку (преобразует число в символ)

Работа с объектами Excel

Объектная модель Excel представляет собой иерархию объектов, подчиненных одному объекту Application , который соответствует самому приложению Excel. Объектами Excel являются рабочие книги, рабочие листы, диаграммы, диапазоны ячеек, ячейки и т. д.

VBA может программно управлять любым из этих объектов.

Каждый объект обладает набором свойств , методов и событий.

Свойство – это характеристика или параметр объекта.

Метод – это действие, которое может выполнять объект.

Событие – это действие, на которое объект реагирует автоматически.

Управлять объектом в VBA можно 3 путями:

изменяя свойства объекта;

активизируя метод, связанный с объектом;

определяя процедуру, запуск которой произойдет как отклик на событие.

Вывод информации в ячейку Excel

Ячейка как объект Excel в VBA-программе обозначается Cells(i, j) , где i – номер строки, j – номер столбца электронной таблицы.

Y

Значение Y будет выведено на активный лист рабочей книги Excel в ячейку B 3

= 0.01

Cells(3, 2) = Y

С

Переменной B будет присвоено значение,

которое хранится в ячейке С5

(т. е. содержимое ячейки С5 )

читывание информации из ячейки Excel

B = Cells(5, 3)

Средство vba для ввода информации

Ввод информации от пользователя осуществляется через диалоговое окно ввода. Реализуется с помощью встроенной функции InputBox .

Dim x As Single

x= Val (InputBox ("Введите x"))

Функция InputBox возвращает последовательность символов, введенную в поле ввода (15 ) как данные типа String (строковый). Встроенная функция Val() преобразует строковое значение из поля ввода в числовое.

Линейные вычислительные процессы

Линейный алгоритм характеризуется строгой последовательностью реализации блоков в порядке их расположения в схеме – сверху – вниз. Условные блоки отсутствуют. Каждый блок выполняется однократно.

Пример 1 Вычислить значение функции

при k = 33,5 x = 17

1. Составим алгоритм решения задачи.

2. В окне редактора кода введем программный код:

Option Explicit

Sub Линейный_процесс ()

Dim k As Single, x As Single, y As Single ‘объявление переменных

x = Val (InputBox ("Введите значение x"))

y = k * Exp(Sin(x))

MsgBox "y=" & y ‘ вывод результата в диалоговое окно

End Sub

Команда Option Explicit обязывает объявлять все переменные в данной программе. Может размещаться только в разделе объявлений модуля.

Осуществляется с помощью встроенных функций InputBox, MsgBox, с помощью изменения определенных свойств определенных объектов или применения к ним соответствующих методов.

Ввод данных

Ввод значений переменных может осуществляться:

С помощью функции InputBox , которая при выполнении программы выводит на экран свое собственное окно. Возвращаемое функциейInputBoxзначение имеет типstring. Поэтому для использования введенного значения как числовой переменной необходимо дополнительно преобразовать его к числовому типу с помощью функцииVal. Например, для ввода значения числа 5,25 в переменнуюанеобходимо записать следующую строку программного кода:

a = Val(InputBox("Введите а", "Ввод данных"))

2) С помощью текстового окна TextBox . На форме должно присутствовать текстовое окно, к примеру,Text1, а в событийной процедуре, например, для щелчка по командной кнопке, должен быть записан программный код, в котором используется свойствоtextобъектаText1:

Private Sub Command1_Click()

a = Val(Text1.text)

Свойство textобъектаText1, также имеет строковое значение, поэтому необходимо его преобразование в числовое значение с помощью функцииVal.

Вывод результатов

Для вывода результатов в VB существуют различные способы.

Основным оператором вывода значений переменных в языке VB является оператор Print, который в терминах объектно-ориентированного программирования рассматривается какметод , действующий на объект, на который и будут выводиться значения, указанные в списке. Основными объектами, для которых имеется методPrint, являются формаForm, и графическое окноPictureBox.

Если объект, к которому применяется метод Print, не указан, то список значений выводится на активную форму. Например, после выполнения строки программного кода:

Вывести значение переменной можно с помощью функции MsgBox, которая при выполнении активизирует свое собственное окно сообщений на экране.

Private Sub Command1_Click()

Вывод можно оформить в текстовое окно TextBox, изменяя его свойствоText

Text1.text=str(a)

При этом надо помнить, что свойство Textработает со строкой символов, поэтому выводимое число преобразуется в строку символов с помощью функцииstr.

Вывод можно оформить на метку Label, изменяя ее свойствоCaption:

Label1.Caption=”Результат” & str(a)

Значок & (+) означает сцепление двух строковых переменных.

Функция Format

При выводе результатов для большей наглядности часто используется функция Format, которая возвращает значение типаVariant (String),содержащее выражение, отформатированное согласно инструкциям, заданным в описании формата.

Синтаксис

Format (Expression[, Format[, FirstDayOfWeek[, FirstWeekOfYear]]])

Expression- обязательный аргумент - любое допустимое выражение, подлежащее форматированию.

Format - необязательный аргумент - любое допустимое именованное или определяемое пользователем выражение формата (шаблон формата).

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

Примеры шаблонов форматов, применяемых для создания пользовательских форматов числовых величин

Print Format (6.789, "00.0000") " возвратит 06,7890

Print Format (6.789, "##.0000") " возвратит 6,7890

В процессе вывода знака на экран компьютера производится обратное перекодирование, т. е. преобразование двоичного кода знака в его изображение.

Любая процедура состоит из трех частей: ввода, выполнения и вывода. Ввод - это информация, необходимая для выполнения процедуры; вывод - это то, что получилось в результате выполнения процедуры.

Свойства объектов, значения ячеек и значения переменных - все это примеры ввода. Данные ввода можно получить во время выполнения процедуры от пользователя. Это называется пользовательским вводом.

Наиболее простая форма пользовательского ввода - это щелчок на кнопке в окне сообщения. Немного сложнее - это ввод одного значения в поле ввода диалогового окна.

4.1.1 Окно сообщения

С помощью окна сообщения функции MsgBox() вы можете задать вопрос, а затем, в зависимости от ответа, выполнить то или иное действие.

Функция MsgBox() имеет пять аргументов:

MsgBox(Prompt:=[, Buttons:=] [, Title:=] [, HelpFile:=, Context:=])

АргументPrompt определяет сообщение, которое появится в диалоговом окне. Наберите текст (в кавычках). Используйте переменную типа string или объединенные строковые переменные и строки со значком &, например:

“Этот экран высотой в "& AppIication.UsableHeight &" точек"

АргументButtons определяет, какие кнопки появятся в окне сообщения. Укажите их, используя такие константы, как vbExclamation или vbOK. Эти константы VBA представляет как числа. Хотя вместо констант можно применять числа для обозначения кнопок, однако рекомендуем использовать константы, поскольку при этом вы получите легко читаемый код. Параметры аргумента Button можно разделить на несколько групп. Две наиболее важные - это пиктограммы и кнопки. В окне сообщения вы можете поместить четыре типа пиктограмм и шесть типов кнопок. Другие параметры определяют, какая кнопка считается нажатой по умолчанию и работа какого приложения приостанавливается, когда появляется диалоговое окно, – только Excel или вообще всех приложений. В таблице 4.1 приведены эти параметры.

Таблица 4.1 – Значения константы аргумента Button функции MsgBox

Константа	Значение	Описание
VbOKonly		Выводит кнопку ОК
VbOKCancel		Выводит кнопки ОК и Отмена
VbAbortRetryIgnore		Выводит кнопки Прекратить, Повторить и Игнорировать
VbYesNoCancel		Выводит кнопки Да, Нет и Отмена
VbYesNo		Выводит кнопки Да и Нет
VbRetryCancel		Выводит кнопки Повторить и Отмена
VbCritical		Выводит пиктограмму Critical Message (Критическое сообщение)
VbQuestion		Выводит пиктограмму Question mark (Предупреждающий запрос)
VbExclamation		Выводит пиктограмму Exclamation (Предупреждение)
VbInformation		Выводит пиктограмму Information
VbDefaultButton1		Принимает по умолчанию первую кнопку
VbDefaultButton2		Принимает по умолчанию вторую кнопку
VbDefaultButton3		Принимает по умолчанию третью кнопку
VbApplicationModal		Excel прекращает работу закрытия окна сообщения
VbSystemModal		Приостанавливается работа всех приложений до закрытия окна сообщения

Для того чтобы в окне сообщения отобразилось несколько кнопок, соедините константы знаком «плюс». Нельзя вывести в окне сообщения две пиктограммы, но можно управлять как пиктограммой, так и типом появляющихся кнопок. Окно сообщения появляется всегда только в центре экрана. Если никакая другая кнопка не указана, в окне сообщения отображается только кнопка ОК.

Аргумент Title определяет заголовок окна сообщения. Как и Prompt, этот аргумент должен быть строкой, строковой переменной или объединением строк и строковых переменных. Вы можете не указывать этого аргумента, тогда по умолчанию названием окна сообщения будет Microsoft Excel.

Для того чтобы указать текущую справку, используйте четвертый и пятый аргумент (или проигнорируйте их). Аргумент HelpFile - имя файла справки, а аргумент Context указывает раздел в нем. Если вы указали один из этих аргументов, то должны указать и второй. При этом Excel автоматически добавит кнопку справки в окно сообщения.

Следующий код отображает два окна сообщения: первое с заголовком - "Системн_информ" - содержит пиктограмму с восклицательным знаком и сообщение об используемой высоте экрана; второе с заголовком - "Системная информация" - содержит сообщение об используемой ширине экрана.

Sub ShowMessageOK()

MsgBox Prompt:=" Высота этого экрана составляет" _

& Application.UsableHeight & " точек", Buttons:=vbExclamation, Title:="Системн_информ"

MsgBox "Ширина этого экрана " & Application.UsableWidth & _

" точек", vbInformation, "Системная информация"

4.2 Принятие решения

Очень просто вывести на экран несколько кнопок: используйте константы, указанные в таблице 3.1. Вы можете вывести окна сообщения с кнопками Да и Нет, кнопками Да, Нет и Отмена, а также кнопками Прекратить, Повторить, Игнорировать. Проанализировав в коде значение, возвращенное функцией MsgBox (таблица 4.2), можно определить, какая кнопка нажата, и направить выполнение программы по нужному пути.

Таблица 4.2 – Значения, возвращаемые функцией MsgBox

Константа	Значение	Нажатая кнопка
VbOK		ОК
VbCansel		Отмена
VbAbort		Прервать
VbRetry		Повторить
VbIgnore		Пропустить
VbYes		Да
VbNo		Нет

Следующий пример кода выводит окно сообщения с кнопками Да и Нет. Если пользователь щелкнет на кнопке Да, то появится другое окно сообщения с надписью "Продолжаю. . . ". Если пользователь щелкнет на кнопке Нет, появится сообщение "Процесс прерван". Второй аргумент использует vbQuestion плюс vbYesNo: окно сообщения будет содержать знак вопроса и кнопки Да и Нет.

Sub VoprosYesNo()

Dim Indik As Integer

Indik = MsgBox("Хотите продолжать?", vbQuestion + vbYesNo, "Вопрос пользователю")

If Indik = vbYes Then

MsgBox "Продолжаю. . .", vbInformation, "Системное сообщение"

MsgBox "Процесс прерван", vbCritical, "Системное сообщение"

В этом примере кода показаны два способа использования функции MsgBox. В первом случае круглые скобки ставятся сразу после слова MsgBox и после третьего аргумента. Это означает, что используется возвращаемое значение функции MsgBox. Следующие две функции не используют возвращаемого значения, поэтому круглые скобки не ставятся. Кнопки, расположенные в окне сообщения, определяют значение возвращаемой величины. Возвращаемое значение функции MsgBox является константой, которая начинается с vb и заканчивается словом, написанным на кнопке, например ОК или Отмена. Если в окне сообщения находятся кнопки Да и Нет, то функция MsgBox возвращает значение vbYes или vbNo.

В данном коде переменная Indik равна результату функции MsgBox. Команда If проверяет, равняется ли значение Indik vbYes; если да, она выполняет соответствующие действия.

4.3 Окно ввода

Функция InputBox() немного сложнее, чем MsgBox(), и позволяет ввести реальное значение или текстовую строку. Поскольку InputBox() получает значение, её бессмысленно применять, не используя введенное значение. Поэтому эта функция всегда записывается с круглыми скобками.

Функция InputBox() может иметь до семи аргументов:

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

Необходимым является только первый - Prompt, в котором указывается сообщение в окне. Вторым является Title.

Третьим – значение окна ввода, принимаемое по умолчанию. Четвертый и пятый аргументы указывают положение окна ввода. Если они пропускаются, окно будет располагаться посередине экрана.

Шестой и пятый аргументы определяют файл справки и его раздел. Если вы используете один из них, то необходимо использовать и другой. Тогда Excel добавит к окну ввода кнопку Справка.

Функция InputBox() всегда возвращает строку. Даже если пользователь введет число – в действительности это строка. В большинстве случаев VBA переводит строку в число. Однако иногда перевод осуществляется неправильно. В таком случае нужно перевести возвращаемое значение в другой тип данных. Используйте для этого одну из функций перевода, например функцию Сint (значение), которая переводит возвращаемое значение в целое число.

Щелкая на кнопке Отмена, вы ожидаете, что возвращаемой величиной будет vbCancel. Однако это неверно. Поскольку InputBox() возвращает строку, щелчок на кнопке Отмена приведет к тому, что будет возвращена пустая строка (набор кавычек - ""). Рассмотрите следующий пример, если ничего не введено (пустая строка), то происходит выход из подпрограммы.

Sub Vvod_lnputBox()

Dim s As String, sreal As Single

s = InputBox(Prompt:="Какая зарплата?:", _

Title:="Вопрос", Default: =550)

If s = "" Then Exit Sub

sreal = CSng (s)

MsgBox "Зарплата составляет" & s & " налоги " & sreal * 0.13

Иногда необходимо, чтобы пользователь ввел только конкретный тип данных. В этом случае используйте метод InputBox() вместо функции InputBox(). Поставив Application. перед InputBox(), вы укажете VBA, что необходимо использовать метод Excel InputBox(), а не функцию VBA. У метода InputBox() имеется еще и восьмой аргумент - Type. Указав тип, вы тем самым требуете (от пользователя) ввести только определенный тип данных. Чтобы разрешить ввод нескольких типов данных, добавьте значения различных типов данных. Однако если вы используете метод InputBox(), щелчок на кнопке Отмена возвращает значение False, а не пустую строку.

4.4 Ввод-вывод при помощи ячеек Excel

Для ввода исходных данных из конкретных ячеек рабочего листа Excel, а также для вывода результатов расчета в ячейки может быть эффективно применен объект ActiveCell. Объект Range используется для указания ячеек. Объект ActiveCell указывает на ячейку (или объект Range), который имеет фокус при вводе данных с клавиатуры. Для этого используется свойство Value. Например, в ячейку с адресом А5 необходимо записать значение переменной Rost:

Range(“A5”).Select

ActiveCell.Value = Rost

Обратная процедура выполняется аналогично:

Rost = ActiveCell.Value

Если есть необходимость считывать большое число данных из различных ячеек, адреса которых можно вычислить, целесообразно использование метода Offset(R,C), где R – смещение на R строк вниз относительно строки активной ячейки, C – смещение на С столбцов вправо относительно столбца активной ячейки. Например, следующая строка записывает значение переменной Rost в ячейку В7.

1. Функция InputBox

Функция InputBox имеет следующий синтаксис:

Переменная = InputBox (Приглашение[, Заголовок] [, по_умолчанию] [, Xпоз] [, Yпоз] [, файл_справки, содержание] )

Эта функция требует обязательного задания только аргумента Приглашение Значение аргумента Приглашение – единственный обязательный аргумент этой функции, служит текстовая строка, которая отображается в диалогом окне ввода в качестве сообщения. Этот текст должен быть заключен в двойных кавычках.

Аргумент Заголовок

Аргумент по_умолчанию задает значение, которое отображается по умолчанию в поле ввода, пока пользователь не введет свое значение. Если этот аргумент опустить, то поле ввода отображается пустым.

Необязательные аргументы Xпоз и Yпоз задают положение окна ввода на экране. Аргументы файл_справки и содержание

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

2. Функция MsgBox

Окно сообщения создаётся функцией MsgBox, которая имеет следующий синтаксис:

Переменная = MsgBox (Приглашение[, Кнопки] [, Заголовок [, файл_справки, содержание] )

Значение аргумента Приглашение – единственный обязательный аргумент этой функции, служит текстовая строка, которая отображается как сообщение в диалогом окне. Этот текст должен быть заключен в двойных кавычках. Отметим использование круглых скобок в синтаксисе MsgBox – они указывают на то, что в данном случае MsgBox является функцией, возвращающей какое-либо значение. Если скобки опущены, то для VBA это признак того, что данное выражение значение не возвращает. Если Вы хотите возвращать значение, надо использовать код, подобный следующему:

Dim i As Integer

Результатом работы такого кода в VBA будет диалоговое окно с тремя кнопками «Да», «Нет», «Отмена» и с пиктограммой восклицательный знак в желтом треугольнике.

Если не указан аргумент Кнопки , то VBA предлагает только одну кнопку «OK». Аргумент Кнопки позволяет управлять следующими параметрами окна сообщения:

¨ Количеством кнопок в окне.

¨ Типы кнопок и и х размещение в окне.

¨ Пиктограммы, отображаемые в окне.

¨ Какая кнопка назначается по умолчания.

¨ Режим (модальность) окна сообщения.

В табл.1 показаны возможные установки для этого аргумента. Первая группа значений устанавливает число и тип кнопок. Вторая позволяет выбрать пиктограмму, отображаемую в окне. Третья назначает кнопку по умолчанию. Четвертая группа устанавливает режим окна сообщения. Для создания конечного значении аргумента Кнопки можно использовать только одно значение из каждой группы, объединив их значком «плюс».

Группа	Константа	Значение	Описание
Группа 1	vbOKOnly		Отображает только кнопку OK (установка по умолчанию)
VbOKCancel		Отображает кнопки OK и Отмена
VbAbortRetryIgnore		Отображает кнопки Стоп, Повтор и Пропустить.
VbYesNoCancel		Отображает кнопки Да, Нет и Отмена
vbYesNo		Отображает кнопки Да и Нет
VbRetryCancel		Отображает кнопки Повтор и Отмена
Группа 2	VbCritical		Отображает запрещающую пиктограмму
VbQuestion
VbExclamation		Отображает предупреждающую пиктограмму
VbInformation		Отображает информационную пиктограмму
Группа 3	VbDefaultButton1		Первая кнопка – кнопка по умолчанию
VbDefaultButton2		Вторая кнопка – кнопка по умолчанию
VbDefaultButton3		Третья кнопка – кнопка по умолчанию
VbDefaultButton4		Четвертая кнопка – кнопка по умолчанию
Группа 4	VbApplicationModal		Режим приложения: пользователь должен закрыть окно сообщения перед продолжением работы в текущем приложении
VbSystemModal		Системный режим: все приложения недоступны, пока пользователь не закроет окно сообщения
Дополнительная группа	vbMsgBoxHelpButton		Отображает кнопку Справка
	vbMsgBoxSetForeground		Делает окно сообщения окном переднего плана
	vbMsgBoxRight		Отображает окно сообщения, выровненным по правому краю окна приложения
	vbMsgBoxRtlReading		Для иврита и арабского языка указывает, что текст должен выводиться справа налево.

Табл. 1. Установки для аргумента Кнопки функции MsgBox

Чтобы не ошибаться при вводе значений аргумента Кнопки , используйте список констант, который появляется после ввода знака «+». Знак «+» используется для объединения нескольких констант при задании сложного аргумента Кнопки.

Аргумент Заголовок используется для задания текста, который помещается в строке заголовка окна ввода. Если этот аргумент не задан, то в строке заголовка отображается Microsoft Excel.

Аргументы файл_справки и содержание используются в том случае, если вы создаете для своего приложения собственную систему справок.

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

Возвращаемое значение	Кнопка
	OK
	Отмена
	Стоп
	Повтор
	Пропустить
	Да
	Нет

Табл. 2. Значения, возвращаемые функцией MsgBox

Наилучший тип Переменной возвращаемой функцией MsgBox является Integer.

Объекты Range и Cells

В VBA ячейки рабочего листа трактуются как объект Range. Это наиболее часто используемый объект.

Объект Range при работе с ячейками использует формат А1.

Формат А1. Ссылка состоит из имени столбца (обозначаются буквами от А до IV, 256 столбцов максимально) и номера строки (от 1 до 65536). Например, А77. Для ссылки на диапазон ячей указываются адреса левой верхней и правой нижней ячейки диапазона, разделенных двоеточием. Например, В10:В20, 7:7 (все ячейки в 7-й строке), 5:10 (все ячейки между 5-й и 10-й строками включительно), D:D (все ячейки в столбце D), H:J (все ячейки между столбцами H и J включительно). Признаком абсолютной ссылки является знак доллара перед именем строки или столбца

Объект Cells при работе с ячейками использует формат R1C1.

Формат R1C1 . В формате R1C1, после буквы «R» указывается номер строки ячейки, после буквы «С» -- номер столбца. Например, абсолютная ссылка R1C1 эквивалентна абсолютной ссылке $A$1 для формата А1. Для задания относительной ссылки указывается смешение по отношению к активной ячейке. Смешение указывается в квадратных скобках. Знак указывает направление смещения. Например, R[-3]С (относительная ссылка на ячейку, расположенную на три строки выше в том же столбце). RС (относительная ссылка на ячейку, расположенную на две строки ниже и на два столбца правее). R2С2 (абсолютная ссылка на ячейку, расположенную во второй строке и во втором столбце). R[-1] (относительная ссылка на строку, расположенную выше текущей ячейки), R (абсолютная ссылка на текущую строку).

Полный адрес ячейки может содержать также имя рабочего и адрес книги. После имени листа ставится знак «!», а адрес книги заключается в квадратные скобки. Например: [Книга1.xls]Лист5!D$2.

В качестве объекта Range и могут выступать:

§ отдельная ячейка;

§ выделенный диапазон ячеек;

§ несколько выделенных диапазонов ячеек (т.е. совокупность несмежных диапазонов);

§ строка и столбец;

§ трехмерный диапазон (т.е. состоящий из диапазонов, расположенных на разных рабочих листах).

Свойства объекта Range и Cells

Свойства	Описание и допустимые значения
Value	Возвращает значение из ячейки или диапазона (в ячейку или диапазон): X=Range(“A1”).Value Range(“A1”).Value=10
Name	Возвращает имя диапазона: Range(“B1:B4”).Name=”Приложение”
Address	Возвращает текущее положение диапазона
Count	Возвращает количество ячеек в диапазоне
Offset	Возвращает величину смещения одного диапазона относительно другого
Resize	Позволяет изменять текущее выделение диапазона
CurrentRegion	Возвращает текущий диапазон, содержащий указанную ячейку и ограниченный пустыми строкой и столбцом.
WrapText	True (False) – разрешает (не разрешает) перенос текста при вводе в диапазон.
EntireColumn, EntireRow	Возвращает строку и столбец.
ColumnWidth, RowHeight	Возвращает ширину столбцов и высоту строк диапазона.
Font	Возвращает объект Font (шрифт). Например: With Worksheets(“Z3”).Range(“F10”).Font .Size=22 .Bold=True .Italic=True End With
Formula	Формула в формате А1. Например, так можно ввести формулу в ячейку C2: Range(“C2”).Formula=”=$B$2+$A$2”
FormulaLocal	Формула в формате А1 с учетом языка пользователя (для неанглоязычных версий Excel). Например: Range(“C1”).FormulaR1C1= “=ПИ ()”
FormulaR1C1	Формула в формате R1C1. Например, Range(“C1”).FormulaR1C1= “=R1C1+2”
FormulaR1C1Local	Формула в формате R1C1 с учетом языка пользователя (для неанглоязычных версий Excel).
HorizontalAlignment	Горизонтальное выравнивание. Возможные значения: xlHAlignGeneral (обычное), xlHAlignCenter (по центру), xlHAlignCenterAcrossSelection (по центру выделения), xlHAlignJustify (по ширине), xlHAlignRight (по правому краю), xlHAlignLeft (по левому краю) и другие.
VerticalAlignment	Вертикальное выравнивание. Возможные значения: xlVAlignBottom (по нижнему краю), xlVAlignCenter (по центру), xlVAlignTop (по верхнему краю) и другие.

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

Методы	Действия
Address	Возвращает адрес ячейки.
AutoFit	Автоматически настраивает ширину столбца и высоту строки. Например: Range(“B1:B3”).Columns.AutoFit Использование свойства Columns или Rows в данном случае необходимо, так как значением диапазона должны быть строки или столбцы, иначе будет выдаваться ошибка.
Clear	Очищает диапазон. Например: Range(“В1:В20”).Clear
Copy	Копирует диапазон в другой диапазон или буфер обмена (если параметр Destination не задан). Например, так можно скопировать значения диапазона с одного листа (Л1) на другой (Л2): Worksheets(“З1”).Range(“D1:D5”).Copy Destination:=Worksheets(“P2”).Range(“D5”)
Cut	Копирует диапазон с удалением (вырезает) в другой диапазон или буфер обмена (если параметр Destination не задан). Например, скопируем диапазон ячеек с удалением в буфер обмена: Worksheets(“Лист1”).Range(“D1:E5”).Cut
Delete	Удаляет диапазон. Параметр Shift определяет направление сдвига ячеек при удалении. Например: Range(“B6:D6”).Delete Shift:=xlShiftToLeft
Insert	Вставляет ячейку или диапазон ячеек. Например, так можно вставить строку перед шестой строкой на листе «Лист2»: Worksheets(“Лист2”).Rows(6).Insert
Select	Выделяет диапазон: Range(“A1:C7”).Select

Методы объекта Range и Cells, реализующие команды Excel

Методы	Действия
DataSeries	Создает прогрессию. DataSeries(rowcol,date,step,stop,trend) Вручную метод выполняется с помощью команды Правка\Заполнить\Прогрессия
AutoFill	Автозаполнение. Автоматически заполняет ячейки диапазона элементами последовательности: Объект(Диапазон, Тип).
AutoFilter	Автофильтр. Реализует запрос на фильтрацию данных на рабочем листе: Объект.AutoFilter(Поле, Условие1, Оператор, Условие2) Соответствует команде Данные\Фильтр\Автофильтр.
AdvancedFilter	Расширенный фильтр. Соответствует команде Данные\Фильтр\Расширенный фильтр.
Consolidate	Объединение данных из нескольких диапазонов в одну итоговую таблицу. Соответствует команде Данные\Консолидация.
Find	Поиск данных. Вручную вызывается командой Правка\Найти.
TblGoalSeek	Подбор параметра. Вручную выполняется с помощью команды Сервис\Подбор параметра.
Sort	Сортировка данных. Вручную выполняется с помощью команды Данные\Сортировка
Subtotal	Добавляет промежуточные итоги. Вручную вызывается командой Данные\Промежуточные итоги.

Примечание . Следует особо отметить, что в VBA (в отличие от Excel) операция присваивания выполняется независимо от статуса ячейки и не меняет его. Т.е. для присвоение значения ячейке (или для получения её значения) совсем не обязательно, чтобы эта ячейка была активной (вспомните, что в Excel перед вводом в ячейку её необходимо активизировать), не станет она активной (если до этого не была таковой) и после присвоения ей какого-либо значения.