Таблица 4.2. Допустимые значения переменной кнопки

• заголовок - задает заголовок окна; по умолчанию используется заголовок MS Excel.

Функция InputBox осуществляет ввод значений с помощью окна ввода. Синтаксис:

InputBox (текстовая строка, заголовок), где

• текстовая строка - это обязательный аргумент; он задает в окне информационное сообщение, обычно поясняющее смысл вводимой величины;

• заголовок - задает заголовок окна; по умолчанию используется заголовок Ввод.

Более подробная форма записи функции MsgBox имеет вид:

Msg(Prompt,

[Buttons As VbMsgBoxStyle-=VbOkOnly] , [Title], [HelpFile], [Context]) As VbMsgBoxResult

Более подробная форма записи функции InputBox имеет вид:

40 Программирование в среде Visual Basic for Applications

InputBox(Prompt,

[Title], [Default], [Xpos], [Ypos],

[HelpFile], [Context]) As String При этом

• Prompt - сообщение, которое выводится из диалогового окна;

• Title - заголовок диалогового окна;

• Buttons - кнопки, которые выводятся в диалоговом окне;

• Xpos, Ypos - координаты верхнего левого угла диалогового окна;

• Default - символ, который выводится в поле ввода (для функции InputBox), например «пробел»;

• HelpFile - файл-справка;

• Context - описание.

В табл. 4.3 приведены значения, возвращаемые функцией MsgBox.

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

Рассмотрим простейшую процедуру, в которой используются функции MsgBox и InputBox.

Sub Main О Const N=5 Dim I As Integer Dim С As Integer Dim D As Integer

C=InputBox("Введите С", "Ввод данных", " ") D=0

For 1=1 То N D=D+C*I Next I

MsgBox("Результат равен D="&D) End Sub

Диалоговое окно, заданное функцией InputBox, имеет заголовок «Ввод данных», а в самом диалоговом окне содержится приглашение «Введите С». В окне вывода, заданном функцией MsgBox, выводится сообщение «Результат равен D=30», если С=2.

Отметим, что в приложении VBA многие инструкции могут восприниматься и как функции и как операторы. Например, в записи функции MsgBox можно опустить круглые скобки и тогда такая запись будет восприниматься как оператор. Сказанное выше справедливо для MsgBox, InputBox, Open, Print, Close и некоторых других конструкций.

Если есть необходимость вывода результата вычислений не в ячейки рабочей книги приложения MS Excel, а в активный документ приложения MS Word, то можно использовать оператор (метод) TypeText.

В рассмотренной ниже процедуре результат вычисления элементов матрицы G выводится в документ приложения MS Word. Ввод данных осуществляется с помощью функции InputBox.

Sub Макро() Dim G(2,2) As Double Dim С(2) As Double Dim I As Integer Dim J As Integer Dim S As String

For 1=0 To 2 Ввод данных

5="Введите С ("&Str$(I)&")" С(I)=InputBox(S,"Ввод массива"," ")

Next I S="MaccHB G"

Selection.TypeText S вывод текста

"Массив G"