Примеры
-
Заполнение произвольного интервала ячеек введенным числом.
Sub
fill_range()
Dim
num As Single, cell_1 As Variant, cell_2 As Variant
num
= Val(Application.InputBox("Введи
число"))
Worksheets("Лист1").Activate
Set
cell_1 = Application.InputBox(prompt:="Введи
начало
интервала",
Type:=8)
Set
cell_2 = Application.InputBox(prompt:=" Введи
конец
интервала
", Type:=8)
Range(cell_1,
cell_2).Value = num
End Sub
|
Процедура
запрашивает начальный и конечный адреса
интервала ячеек и число, которым
необходимо заполнить заданный интервал.
Функция Val преобразует
введенное значение в число.
Адреса
интервалов вводятся как ссылки на
ячейки, например, B12.
Оператор Set устанавливает
ссылку на первую cell_1 и
последнюю cell_2
ячейки интервала. Запись Range(cell_1,
cell_2).Value
означает обращение к свойству Value
каждой ячейки интервала.
-
Процедура запрашивает ввод числа, выводит его квадрат и, в зависимости от выбранной командной кнопки, продолжает выполнение или заканчивает работу.
Sub
numbers()
Dim
p As Single, reply As Integer
Do
p
=Val(InputBox("Введите
число"))
If
p=0 Then Exit Sub
reply
= MsgBox("кв.корень
= " & Sqr(p) & "Продолжить?",
vbYesNo)
Loop
Until reply = vbNo
End
Sub
|
Введенное значение
в преобразованном виде сохраняется в
переменной
p. Если
нажата кнопка
Cancel, то
значение
p равно
0 и происходит немедленный выход из
процедуры.
В
процедуре используется цикл типа Do...
Loop Until
для ввода чисел до тех пор, пока
пользователь не нажмет кнопку No.
Цикл выполняется, по
крайней мере, один раз.