Ввести число vba excel

Категория: VBA

Опубликовано: 10 марта 2018

Просмотров: 18242

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

Function findArea()
   Dim Length As Double
   Dim Width As Double
   
   Length = InputBox("Введите длину ", "Введите число")
   Width = InputBox("Введите ширину", "Введите число")
   findArea = Length * Width
End Function

Подобно многим языкам программирования Visual Basic for Application (VBA) позволяет создать три типа процедур: Sub, Function, Property.

Процедура – это набор описаний и инструкций, сгруппированных для выполнения.

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

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

Процедура Property используется для ссылки на свойство объекта. Данный тип процедур применяется для установки или получения значения пользовательских свойств форм и модулей. Процедуры облегчают хранение и применение информации, если использовать их сначала для сохранения в свойстве этой информации, а затем для ее чтения.

Структура процедуры

При записи процедуры требуется соблюдать правила ее описания. Упрощенный синтаксис для процедур Sub является следующим:

Sub имя ([аргументы])
Инструкции
End Sub

Синтаксис описания функций очень похож на синтаксис описания процедуры Sub, однако, имеются некоторые отличия:

Function имя ([аргументы]) [As Тип]
Инструкции
имя = выражение
End Function

Использование операторов

Процедуры состоят из операторов – наименьших единиц программного кода. Как правило, операторы занимают по одной строке программного кода, и в каждой строке обычно содержится только один оператор, но это не обязательно. В VBA имеется четыре типа операторов: объявления, операторы присваивания, выполняемые операторы и параметры компилятора.

Объявления

Объявление – это оператор, сообщающий компилятору VBA о намерениях по по­воду использования в программе именованного объекта (переменной, константы, поль­зовательского типа данных или процедуры). Кроме того, объявление задает тип объекта и обеспечивает компилятору дополнительную информацию о том, как ис­поль­зовать данный объект. Объявив объект, можно использовать его в любом месте программы.

Переменные – это именованные значения, которые могут изменяться во время выполнения программы.

Рассмотрим пример объявления переменной.

С помощью оператора Dim объявляется переменная с именем МоеЛюбимоеЧисло и объявляется, что значение, которое она будет содержать, должно быть целым:

Dim МоеЛюбимоеЧисло As Integer

Константы представляют собой именованные значения, которые не меняются.

Оператор Constant создает строковую константу (текст) с именем НеизменныйТекст, представляющую собой набор символов Вечность:

Constant НеизменныйТекст = "Вечность"

Оператором Type объявляется пользовательский тип данных с именем Самоделкин, определяя его как структуру, включающую строковую переменную с именем Имя и переменную типа Date с именем ДеньРождения. В данном случае объявление займет несколько строк:

Type Самоделкин
Имя As String
ДеньРождения As Date
End Type

Объявление Private создает процедуру типа Sub с именем СкрытаяПроцедура, говоря о том, что эта процедура является локальной в смысле об­ласти видимости. Завершающий процедуру оператор End Sub считается частью объ­явления.

Private Sub СкрытаяПроцедура ()
инструкции
End Sub

Оператор присваивания

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

Оператор = присваивает переменной МоеЛюбимоеЧисло значение суммы переменной ДругоеЧисло и числа 12.

МоеЛюбимоеЧисло = ДругоеЧисло + 12

В следующей строке кода, записывается, что свойству Color (Цвет) объекта AGraphicShape присваивается значение Blue (Синий) в предположении, что Blue является именованной константой:

AGraphicShape.Color = Blue

В следующеей строке, чтобы задать значение переменной КвадратныйКорень, для текущего значения переменной МоеЛюбимоеЧисло вызывается функция Sqr — встроенная функция VBA вычисления квадратного корня:

КвадратныйКорень = Sqr (МоеЛюбимоеЧисло)

В VBA выражением называется любой фрагмент программного кода, задающий некоторое числовое значение, строку текста или объект. Выражение может содержать любую комбинацию чисел или символов, констант, переменных, свойств объектов, встроенных функций и процедур типа Function, связанных между собой знаками операции (например, + или *). Несколько примеров выражений:

Выполняемые операторы

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

• вызов процедуры;
• активизация метода некоторого объекта;
• управление порядком, в котором должны выполняться другие операторы, посредством организации циклов или выбором участка программного кода (из нескольких альтернатив) для последующего выполнения;
• выполнение одного из встроенных операторов VBA или функции.

Пример. Оператор, вызывающий для выполнения метод Rotate объекта AGraphicShape:

AGraphicShape. Rotate(90)

Запись нескольких операторов

Как правило, каждый оператор занимает одну строку программного кода, но VBA не обязывает уместить оператор в одной строке. Если оператор слишком длинный, можно разместить его в двух или более строках, добавив в конце каждой из строк (кроме последней) символ подчеркивания (_).

Можно сделать и наоборот — разместить несколько операторов в одной строке программного кода. Например,

Dim A As Integer, В As Integer: A = 3: B = 5: A = A +B

Эта строка программного кода эквивалентна следующим четырем строкам:

Dim A As Integer, В As Integer
A = 3
B = 5
А = А + В

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

В своей самой простой форме MsgBox используется как оператор с одним аргументом – сообщением, которое должно отображаться. Например, приведенный ниже макрос создаёт сообщение, показанное на рисунке.

Sub Program ()
MsgBox "Это - окно сообщений"
End Sub

MsgBox можно использовать для отображения числового значения.

Sub ShoeValue()
Amount = 10
MsgBox Amount
End Sub

Переменной Amount присваивается значение 10. На следующей строке для отображения значения Amount используется MsgBox. Вокруг Amount нет кавычек, поскольку это – значение переменной, которое нужно выдать на экран, а не слово «Amount».

Чтобы использовать вместе две отдельные строки в одном окне сообщения, следует использовать операцию конкатенации (&) — объединение.

Sub SayGoodNight()
Name = "Саша"
MsgBox "Пожелайте доброй ночи " & Name
End Sub

Переменной Name присваивается строка «Саша». В строке кода с MsgBox задаётся текстовая строка «Пожелайте доброй ночи «, за которой следует & Name, указывая MsgBox присоединить значение переменной Name к предыдущей текстовой строке.

Опции MsgBox

необязательные аргументы, например, для того, чтобы вставить значок или изменить заголовок (title).

MsgBox "Это - замечательное окно сообщений", _vbExclamation, "Персональное окно"

Существует четыре значка для окон сообщений. Каждый имеет определённое числовое значение, которое должно передаваться в качестве аргумента MsgBox. Однако вместо числа можно использовать константы со специальными именами, встроенные в VBA.

Таблица 1

Значки окна сообщений MsgBox

MsgBox как функция

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

После выбора соответствующей кнопки Excel получает информацию о том, какую кнопку выбрали.

Общий формат для функции MsgBox:

MsgBox(prompt [, buttons] [, title])

где prompt — единственный обязательный аргумент. Для окна сообщений следует задавать текстовую строку с информацией. если вы хотите изменить заголовок, появляющийся в верхней части окна, задайте для заголовка (title) текстовую строку. По умолчанию используется заголовок Microsoft Excel.

Таблица 2 Комбинации кнопок MsgBox

vbOKOnly

vbOKCancel

vbYesNo

vbYesNoCancel

vbAbortRetryIgnore

vbRetryCancel

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

Примеры решения задач

Приведем несколько примеров решения задач на VBA.

Пример 1. Вычислить значение выражения a равного

, при x = 3, y = 2.5

Решение.

Sub выражение1()
Dim A, x, y
 
x = 3
y = 2.5
 
A = 2 * x - 3 * y
 
MsgBox (A)
 
End Sub

Пояснение решения.

В строке Dim A, x, y объявляются переменные A, x, y.

Пример 2.

Пример 2. Вычислить значение выражения a равного

, при x = 3, y = 2.5

Замечание: значения x и y вводит пользователь.

Решение.

Sub выражение2()
Dim A, x, y As Double
 
x = InputBox("Введите x=")
y = InputBox("Введите y=")
 
A = 2 * x - 3 * y
 
MsgBox (A)
 
End Sub

Пояснение решения.

В строке Dim A, x, y As Double описываются переменные A, x, y как числа двойной точности.

При использовании строки

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

появиться окно

Пример 3

Пример 3. Вычислить значение выражения a равного

, при x = 3, y = 2.5

Замечание: значения x и y вводит пользователь, ответ выводится в виде «a = <значение>».

Решение.

Sub выражение3()
Dim A, x, y As Double
Dim ответ As String
 
x = InputBox("Введите x=")
y = InputBox("Введите y=")
 
A = 2 * x - 3 * y
ответ = "a=" + Str(A)
 
MsgBox (ответ)
 
End Sub

Пояснение решения.

В строке Dim ответ As String описывается переменная ответ как строковая.

Код Str(A) преобразует значение переменной A в строку.

Пример 4

Пример 4. Вычислить значения выражений при x = 3, y = 2.5

,

,

,

,

Решение.

Sub выражение4()
Dim A, b, c, d, a1, x, y As Double
 
x = InputBox("Введите x=")
y = InputBox("Введите y=")
 
A = 2 * x - 3 * y
b = (2 * x - 3 * y) / 2
c = (2 * x - 3 * y) / 2 * x
d = (2 * x - 3 * y) / (2 * x)
a1 = (2 * x - 3 * y) / (2 * x) + (5 - x) / (3 + y)
 
MsgBox ("a=" + Str(A))
MsgBox ("b=" + Str(b))
MsgBox ("c=" + Str(c))
MsgBox ("d=" + Str(d))
MsgBox ("a1=" + Str(a1))
 
End Sub

Пример 5

Пример 5. Выполнить пример 4, другим способом, с помощью вспомогательных переменных.

Решение.

Sub выражение5()
Dim A, b, c, d, a1, a2, b1, c1, c2, x, y As Double
 
x = InputBox("Введите x=")
y = InputBox("Введите y=")
 
A = 2 * x - 3 * y
b = (2 * x - 3 * y) / 2
c = (2 * x - 3 * y) / 2 * x
d = (2 * x - 3 * y) / (2 * x)
a1 = (2 * x - 3 * y) / (2 * x) + (5 - x) / (3 + y)
 
‘ новое решение
b1 = A / 2
c1 = b * x
c2 = b / (2 * x)
a2 = d + (5 - x) / (3 + y)
MsgBox ("a=" + Str(A))
MsgBox ("b=" + Str(b))
MsgBox ("c=" + Str(c))
MsgBox ("d=" + Str(d))
MsgBox ("a1=" + Str(a1))
MsgBox ("b1=" + Str(b1))
MsgBox ("c1=" + Str(c1))
MsgBox ("c2=" + Str(c2))
MsgBox ("a2=" + Str(a2))
 
End Sub

Пример 6

Пример 6. Вычислить площадь треугольника по трем известным сторонам. Например, a = 3, b = 4, c = 5.

Решение.

Sub Герон1()
Dim A, b, c, p, s As Double
A = 3
b = 4
c = 5
 
p = (A + b + c) / 2
s = Sqr(p * (p - A) * (p - b) * (p - c))
 
MsgBox ("s=" + Str(s))
 
End Sub

Пояснение решения.

Для решения задачи используется формула Герона.

Пример 7

Пример 7. Вычислить площадь треугольника по трем известным сторонам.

Решение.

Sub Герон2()
Dim A, b, c, p, s As Double
 
A = Val(InputBox("Введите a="))
b = Val(InputBox("Введите b="))
c = Val(InputBox("Введите c="))
 
p = (A + b + c) / 2
s = Sqr(p * (p - A) * (p - b) * (p - c))
 
MsgBox ("s=" + Str(s))
 
End Sub

Пояснение решения.

Код Val(InputBox(«Введите a=»)) преобразует введенное значение через InputBox в число, так как InputBox возвращает строку. Если такого преобразования не сделать, то программа правильно вычислять s не будет.

Пример 8

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

Решение.

Sub гипотенуза()
Dim a, b, c, p, s As Double
 
a = Val(InputBox("Введите a="))
b = Val(InputBox("Введите b="))
 
c = Sqr(a ^ 2 + b ^ 2)
 
MsgBox ("c=" + Str(c))
 
End Sub

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

См. также Экранные формы (Forms).

Диалоги

Диалоги являются абсолютно необходимым средством для повышения управляемости и гибкости макропрограмм.
Они представлены двумя командами: MsgBox (диалог с кнопками) и InputBox (для ввода значений).
Для начинающих программистов этого вполне достаточно.

Синтаксис команд:

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

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

Доступ к этим материалам предоставляется только зарегистри­рован­ным пользователям!

InputBox

Диалог предназначен для ввода единичного символьного (строкового) значения. Как видно из основного синтаксиса:

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

обязательным является только поясняющий текст (prompt).

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

Также можно указать в твипсах (1/20 часть пикселя, а не пункта, как принято в полиграфии) координаты окна (xpos, ypos).
Если соответствующие координаты опущены, то диалог центрируется относи­тельно горизонтали и опускается примерно на треть экрана по вертикали.

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

     Dim x As Single
     x = InputBox("Введите значение x для подстановки")

Результат будет выглядеть так:

Если внимательно посмотреть на текст программы, то закономерным будет вопрос: переменной x (числового типа Single) будет передаваться строковое значение, что является ошибочным?

Однако в VBA это будет обработано правильно, если пользователь введет любое число: преобразование пройдет само собой. Если же он введет буквы или нажмёт кнопку отмены (Cancel), то переменной будет присваиваться строковое значение, что породит ошибку:

Избежать подобной ситуации можно двумя способами, предоставляющими различные возможности.

Решение 1

     x = Val(InputBox("Введите значение x для подстановки"))

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

1. преобразованы в 0,
2. если в начале строки введены числа («125xyz»), то строка преобразуется в число (125).

При нажатии на кнопку Cancel будет возвращена пустая строка («»), преобразуемая в 0.

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

Решение 2

     Dim x As Single, xVal As String
     xVal = InputBox("Введите значение x для подстановки")
     If xVal = "" Then Exit Sub
     x = Val(xVal)

В данном случае создаётся дополнительная переменная (xVal), в которой хранится результат ввода. Что мы имеем в результате?

1. В строке, выделенной красным, проведен анализ результата ввода и выход из программы при пустой строке.
   Такой подход вполне приемлем и для случая, когда пользователь забыл задать значение.
   Здесь ему может быть задан вопрос о необходимости прерывания программы.
2. Значение, сохраненное в xVal, можно использовать и в дальнейшем. В том числе для детальной разборки или анализа, в том числе на предмет правильности ввода.
3. Появляется возможность ввести несколько значений, например, через запятую, которые потом можно анализировать и использовать в соответствии с замыслом программиста.
4. Занята дополнительная память, что является платой за функциональность.

InputBox в Excel VBA

К сожалению, объектная модель Word и Excel не совпадают, в связи с чем приходится говорить, что в Excel можно воспользоваться ещё одним способом:

     Dim x As Variant
     x = Application.InputBox(Prompt:="Введите значение x для подстановки", Type:=1)

В этой ситуации пользователь сможет ввести данные только указанного типа (числового). Если можно вводить несколько типов, то следует задать тип как сумму соответствующих типов: 1+2 (либо сразу 3) — можно вводить цифры и символы.

Перечень типов:
• 0 = formulas
• 1 = numbers
• 2 = strings
• 4 = logical values
• 8 = cell references
• 16 = error values
• 64 = arrays

MsgBox

Вспомним синтаксис команды:

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Атрибут buttons представляет собой сумму трех (реже — более) целых чисел, означающих: набор кнопок, картинку, кнопку по умолчанию.
Последняя довольно важна, так как многие пользователи невнимательно относятся к надписям в диалоге, и гораздо разумнее активизировать для него ту кнопку, нажатие на которую требуется чаще.
Вместо чисел можно использовать системные переменные памяти.
Подробная информация приведена в таблице.

Переменная Word	Значение	Описание
vbOKOnly	0	Вывести только кнопку OK
vbOKCancel	1	Вывести кнопки OK и Cancel
vbAbortRetryIgnore	2	Вывести кнопки Abort, Retry и Ignore
vbYesNoCancel	3	Вывести кнопки Yes, No и Cancel
vbYesNo	4	Вывести кнопки Yes и No
vbRetryCancel	5	Вывести кнопки Retry и Cancel
vbCritical	16	Вывести картинку Critical Message
vbQuestion	32	Вывести картинку Warning Query
vbExclamation	48	Вывести картинку Warning Message
vbInformation	64	Вывести картинку Information Message
vbDefaultButton1	0	По умолчанию активна 1‑я кнопка
vbDefaultButton2	256	По умолчанию активна 2‑я кнопка
vbDefaultButton3	512	По умолчанию активна 3‑я кнопка
vbDefaultButton4	768	По умолчанию активна 4‑я кнопка
vbApplicationModal	0	Диалог модален для Word: для продолжения работы в приложении и самого макроса нужно нажать на одну из кнопок
vbSystemModal	4096	Диалог модален для Windows: все приложения прекращают работу до тех пор, пока пользователь не нажмет на одну из кнопок
vbMsgBoxHelpButton	16384	Добавляет в диалог кнопку Help (Справка)
VbMsgBoxSetForeground	65536	Переводит окно диалога на передний план (практическое применение неизвестно)
vbMsgBoxRight	524288	Надписи выравниваются вправо
vbMsgBoxRtlReading	1048576	Для языков, читаемых справа налево

Как видно, если не задавать для кнопок ничего, то получится диалог с кнопкой ОК и без пиктограммы.
Кстати, он является одним из наиболее часто используемых вариантов для вывода информации о результатах работы программы как в процессе её отладки, так и при обычном режиме работы.

Пример: MsgBox «Значение х достигло » & x

Диалог будет выглядеть так:

Следует отметить, что кнопка ОК обладает интересным свойством: её можно нажать как мышкой, так и клавишами Enter, Space и Esc.

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

Ниже приведен список значений, возвращаемых функцией MsgBox() в зависимости от нажатой в диалоге кнопки.

Пример:

Dim RunMacro As Byte 'Задать целочисленную переменную минимального размера
RunMacro = MsgBox("Заменить дефисы в документе?", 4 + 48, "Замена дефисов")
	'Запустить диалог с кнопками Yes+No и картинкой "Внимание!"
	'Целое число, соответствующее нажатой кнопке, запомнить в RunMacro
If RunMacro = 6 Then 'Нажато Yes (вместо 6 можно записать vbYes)
	Selection.HomeKey Unit:=wdStory
	'Перейти на начало документа и продолжить программу после End If
Else 'Нажато не Yes (No для нашего примера)
	Exit Sub 'Выйти из программы, не делая ничего
End If
... Основная программа

Диалог будет выглядеть так:

Можно сказать, что в нем допущена интерфейсная ошибка, так как нажатие клавиши Esc не позволит закрыть диалог.
Для комфортности лучше использовать одновременно кнопки Yes, No и Cancel.
Для доработки понадобится только заменить в тексте программы 4 на 3: ведь нажатие на Cancel обработается также, как и No (выход из программы).

Обратите внимание! Вместо 4+48, можно было бы записать сразу результат сложения (52).
Программа выполнилась бы чуточку быстрее, но редактирование человеком стало бы сложнее.
Также можно заменить эту форму сложением программных констант: vbYesNo+vbExclamation, что легче понять при чтении.

Идеальным(?) решением было бы добавление кнопки Cancel, как показано ниже.

   RunMacro = MsgBox("Заменить дефисы в документе?", 3 + 48, "Замена дефисов")

См. также Экранные формы (Forms).

Функция MsgBox хороша, когда от
пользователя надо получить простые
данные — ответы типа Да-Нет или
ОК-Отмена. Если необходимо ввести
число или текст, то применяется функция
InputBox. Эта функция отображает
диалоговое окно ввода, содержащее поле
ввода и поясняющий текст. Функция
InputBox имеет следующий синтаксис:

InputBox
приглашение[,
заголовок]
[, по_умолчанию]
[, хпоз]
[, yпоз]
[, файл_справки,
содержание])

Эта функция требует обязательного
задания только аргумента приглашение.
Так же, как и в функции MsgBox, значением
аргумента приглашение служит
текстовая строка, которая отображается
в диалоговом окне ввода в качестве
сообщения.

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

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

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

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

1. Вставьте новую подпрограмму в текущий
   модуль и назовите ее ПримерВвода.

2. Введите следующий код:

Dim
iResult As Integer

iResult
= InputBox(“Введите число:”)

MsgBox
iResult

ActiveCell.Value
= iResult

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

1. Нажмите клавишу <F5> для выполнения
   процедуры. Отобразится окно ввода (рис.
   5.3).

2. Введите число и нажмите клавишу <Enter>.
   Открывшееся окно сообщения покажет
   введенное вами число.

3. Щелкните на кнопке ОК. Окно сообщения
   закроется.

4. Перейдите в рабочую книгу. В активной
   ячейке рабочего листа вы увидите
   введенное число.

Если вы заглянете в справочную систему
VBA, то прочитаете, что функция InputBox
возвращает строковое (текстовое)
значение. Это не совсем точно. В последней
версии Visual Basic (и, следовательно, VBA) тип
возвращаемого значения определен как
Variant, т.е. тип определяется введенным
значением. Иначе как бы сработала наша
процедура, где переменная iResult
объявлена как Integer? Если пользователь
щелкнет на кнопке Отмена, то в этом
случае функция InputBox возвращает
строку нулевой длины (“ ”).

Рис. 5.3. Окно ввода готово к вводу числа

Метод InputBox

Excel предлагает еще один путь получения
данных от пользователя, который называется
методом InputBox. Метод InputBox на
первый взгляд имеет только пару
незначительных отличий от функции
InputBox. Чтобы разобраться в этих
отличиях, рассмотрим сначала синтаксис
метода InputBox.

Application.InputBox(приглашение,
[заголовок],
[по_умолчанию],
[слева],
[сверху),
[файл_справки],
[содержание],
[тип])

Синтаксис очень похож на синтаксис
функции InputBox. Отметим, что оператор
начинается со слова Application. Excel
является собственником метода InputBox,
поэтому здесь присутствует слово
Application (приложение). Более подробно
суть методов рассмотрена в 8-м часе.

Большинство аргументов вам знакомы.
Аргументы слева и сверху играют
ту же роль, что и аргументы хпоз и
yпоз в функции InputBox.

Основное отличие синтаксиса метода
InputBox от синтаксиса одноименной
функции заключается в последнем аргументе
тип (type). Необязательный аргумент
тип позволяет явно указать тип
возвращаемого значения. В табл. 5.3
содержатся значения, которые может
принимать этот аргумент.

Таблица 5.3. Значения аргумента тип

Обратите внимание, что в последовательности
чисел, задающих значение аргумента тип,
есть пропуски, например между числами
4 и 8 или между 16 и 64. Это сделано потому,
что можно суммировать значения данного
аргумента. Например, если вы хотите,
чтобы метод мог возвращать как текст,
так и числа, сделайте аргумент тип
равным 3 (1 + 2). Если аргумент тип не
задан, то метод InputBox по умолчанию
возвращает текст. Для демонстрации
метода InputBox выполните следующие
действия.

1. Выполните процедуру ПримерВвода.

2. Введите букву в поле ввода и нажмите
   <Enter>. Посмотрим, что получится. Так
   как вы ввели текст, а не число, то
   процедура отказывается работать (рис.
   5.4), — произошла так называемая ошибка
   выполнения.

3. Щелкните на кнопке End (Конец), чтобы
   закрыть окно сообщения и вернуться в
   редактор Visual Basic.

4. Создайте новую процедуру с названием
   МетодВвод. Эта процедура будет
   использовать метод InputBox.

5. В новую процедуру введите следующий
   код:

Dim
iResult As Integer

iResult
= Application.InputBox _

 («Введите
число:»,
, , , , , , 1)

MsgBox
iResult

ActiveCell.Value
= iResult

Запятые в выражении Application.InputBox
бронируют» места для тех аргументов,
которые мы опустили. Последний аргумент,
тип, имеет значение 1. Это показывает,
что допустимыми вводимыми значениями
являются только числа. Отметьте, что
единственное отличие кода этой процедуры
от кода процедуры ПримерВвода
заключается в операторе Application.InputBox.

1. Поместите курсор внутри кода процедуры
   МетодВвод и нажмите <F5> для
   выполнения процедуры. Появится окно
   ввода.

2. Введите букву А и нажмите <Enter>.
   В отличие от процедуры ПримерВвода
   теперь не будет сообщения об ошибке
   выполнения, а появится окно с сообщением
   о причине возникшей проблемы — Неверное
   число (рис. 5.5).

3. Для закрытия окна сообщения нажмите
   клавишу <Enter>.

4. Введите число 7 и нажмите <Enter>.
   Отобразится окно сообщения с числом
   7. Щелкните на кнопке ОК, чтобы
   закрыть это окно.

Рис. 5.4. Это окно сообщения указывает
на ошибку выполнения процедуры. Нельзя
допустить, чтобы пользователи вашего
приложения получали такие окна сообщений!

Вы видели, что одним из преимуществ
метода InputBox является возможность
внутренней обработки ошибок. Другое
отличие метола от функции заключается
в значении, которое они возвращают,
когда пользователь щелкает на кнопке
Отмена. В этом случае функция InputBox
возвращает строку нулевой длины, а метод
InputBox — значение False (Ложь).

Рис. 5.5. Пользователю деликатно сообщают,
что введено неверное число.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #