Реферат: Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов

Call - Вызывает процедуру или функцию. Оператор Call может быть опущен.

Далее…

Sub ButtonOK_Click()

If Sheet1.OptionButton1.Value = True Then

'Ввод матрицы с клавиатуры в файл

Met1:

inp = InputBox "Введите размерность матрицы А", "Ввод размерности", "testfile" - выводит окно с запросом на ввод значения. Параметры такие же, как и у функции MsgBox.

n = Val(inp)- Превращает строку в число

If (n > 0) And (n <= 15) And (n - Int(n) = 0) Then

Sheet2.Visible = xlSheetVisible

Sheet2.Activate

Sheet2.Range("L2") = Str(n) + "*" + Str(n)

Sheet2.Range("R2") = n

InitS

Sheet2.Range("H3") = "Введите элементы матрицы, начиная с активной ячейки A4"

Else

If inp <> "" Then

MsgBox "Ошибка ввода размерности"- - Выводит на экран окно сообщения (Message Box) которое будет ждать клика на одной из кнопок. Возвращает число Integer, по которому можно определить какую кнопку нажал пользователь.

GoTo Met1- оператор для перехода на определённую метку

End If

End If

End If

If Sheet1.OptionButton2.Value = True Then

' Ввод матрицы из файла

Open "C:\file1" For Input As #2 - открывает файл для чтения, записи или для произвольного доступа.

Input #2, n

Sheet3.Visible = xlSheetVisible