6.2.Передача данных при вызове программы
Вызывая подпрограмму, мы вправе передать в нее переменные или значения. Эта возможность еще более расширяет область применения подпрограмм, позволяя выполнять одни и те же действия с различными исходными данными.
Рассмотрим в качестве примера программу СлучайныеЧисла и подпрограмму Оформление. Сейчас разыгрывается строго 10 чисел и форматируются первые 10 ячеек столбца А. Модернизируем программу СлучайныеЧисла и введем в неё запрос о количестве разыгрываемых чисел. Получим следующий код:
|
|
Sub СлучайныеЧисла() |
|
|
Dim СлучЧисло As Integer |
|
|
Dim Листов As String |
|
|
Dim КолЧисел As Integer |
|
|
Листов = Application.SheetsInNewWorkbook |
|
|
Application.SheetsInNewWorkbook = 1 |
|
|
Workbooks.Add |
|
|
ActiveSheet.Name = "Случ. числа" |
|
|
КолЧисел = Int(InputBox("Введите количество чисел:")) |
|
|
For i = 1 To КолЧисел |
|
|
СлучЧисло = Int(100 * Rnd()) |
|
|
Cells(i, 1).Value = СлучЧисло |
|
|
Next i |
|
|
'Вызов подпрограммы Оформление: |
|
|
Оформление КолЧисел |
|
|
Sheets.Add After:=Worksheets(Worksheets.Count) |
|
|
Worksheets(1).Select |
|
|
Range("A1").Select |
|
|
Application.SheetsInNewWorkbook = Листов |
|
|
ActiveWorkbook.SaveAs Filename:="C:\St\Случайные числа.xls" |
|
|
MsgBox "Случайные числа разыграны!" |
|
|
End Sub |
Внесем изменения в программу Оформление:
|
|
Sub Оформление(КолЯчеек) |
|
|
Range(Cells(1,1),Cells(КолЯчеек,1)).Select |
|
|
Selection.Font.Italic = True |
|
|
With Selection.Borders(xlEdgeLeft) |
|
|
.LineStyle = xlDot |
|
|
.ColorIndex = 5 |
|
|
End With |
|
|
With Selection.Borders(xlEdgeTop) |
|
|
.LineStyle = xlDot |
|
|
.ColorIndex = 5 |
|
|
End With |
|
|
With Selection.Borders(xlEdgeBottom) |
|
|
.LineStyle = xlDot |
|
|
.ColorIndex = 5 |
|
|
End With |
|
|
With Selection.Borders(xlEdgeRight) |
|
|
.LineStyle = xlDot |
|
|
.ColorIndex = 5 |
|
|
End With |
|
|
With Selection.Borders(xlInsideHorizontal) |
|
|
.LineStyle = xlDot |
|
|
.ColorIndex = 5 |
|
|
End With |
|
|
Range("A1").Select |
|
|
End Sub |
Здесь есть два интересных момента. Во-первых, обращение к подпрограмме Оформление в программе СлучайныеЧисла содержит аргумент КолЧисел (15-я строка). Во-вторых, в первой строке Оформление в круглых скобках задано имя переменной КолЯчеек. Она принимает значение аргумента, который указывается в вызове подпрограммы (т.е. КолЧисел), и затем задает номер последней оформляемой строки.
Задание:
Создайте подпрограмму ОформлениеТаблицы, которая оформляет выходную таблицу (из программы МассивДоценты_СохранениеДанных_Мод) следующим образом:
Выходная таблица имеет ровно 3 столбца. Количество строк может варьироваться.
В 62-й строке программы МассивДоценты_СохранениеДанных_Мод снимете комментарий.
Протестируйте работу программы в различных режимах.