Модернизируем программу СлучайныеЧисла таким образом, чтобы ячейки со случайными числами были с пунктирными границами синего цвета, а сами числа были в начертании курсив. Новой программе присвоим имя СлучайныеЧислаОформление.
Этот фрагмент кода оптимально создать с помощью макрорекордера. После записи макроса и удаления строк с комментариями вы получите следующий макрос (представьте себе, сколько времени бы вам понадобилось, чтобы ввести его!):
| 1) | Sub Макрос1() |
| 2) | Range("A1:A10").Select |
| 3) | Selection.Font.Italic = True |
| 4) | Selection.Borders(xlDiagonalDown).LineStyle = xlNone |
| 5) | Selection.Borders(xlDiagonalUp).LineStyle = xlNone |
| 6) | With Selection.Borders(xlEdgeLeft) |
| 7) | .LineStyle = xlDot |
| 8) | .Weight = xlThin |
| 9) | .ColorIndex = 5 |
| 10) | End With |
| 11) | With Selection.Borders(xlEdgeTop) |
| 12) | .LineStyle = xlDot |
| 13) | .Weight = xlThin |
| 14) | .ColorIndex = 5 |
| 15) | End With |
| 16) | With Selection.Borders(xlEdgeBottom) |
| 17) | .LineStyle = xlDot |
| 18) | .Weight = xlThin |
| 19) | .ColorIndex = 5 |
| 20) | End With |
| 21) | With Selection.Borders(xlEdgeRight) |
| 22) | .LineStyle = xlDot |
| 23) | .Weight = xlThin |
| 24) | .ColorIndex = 5 |
| 25) | End With |
| 26) | With Selection.Borders(xlInsideVertical) |
| 27) | .LineStyle = xlDot |
| 28) | .Weight = xlThin |
| 29) | .ColorIndex = 5 |
| 30) | End With |
| 31) | With Selection.Borders(xlInsideHorizontal) |
| 32) | .LineStyle = xlDot |
| 33) | .Weight = xlThin |
| 34) | .ColorIndex = 5 |
| 35) | End With |
| 36) | Range("A1").Select |
| 37) | End Sub |
После работы макрорекордера желательно оставить только те строки, которые изменяют свойства объекта, установленные по умолчанию. В данном случае можно убрать 4–ю и 5-ю строки, а также строки, в которых прописана толщина границ[8] (т.е. строки 8, 13, 18, 23, 28 и 33) и внутренние вертикальные границы (строки 26 – 30).
Переименовав Макрос1 в Оформление, в результате получим следующий код:
| 1) | Sub Оформление() |
| 2) | Range("A1:A10").Select |
| 3) | Selection.Font.Italic = True |
| 4) | With Selection.Borders(xlEdgeLeft) |
| 5) | .LineStyle = xlDot |
| 6) | .ColorIndex = 5 |
| 7) | End With |
| 8) | With Selection.Borders(xlEdgeTop) |
| 9) | .LineStyle = xlDot |
| 10) | .ColorIndex = 5 |
| 11) | End With |
| 12) | With Selection.Borders(xlEdgeBottom) |
| 13) | .LineStyle = xlDot |
| 14) | .ColorIndex = 5 |
| 15) | End With |
| 16) | With Selection.Borders(xlEdgeRight) |
| 17) | .LineStyle = xlDot |
| 18) | .ColorIndex = 5 |
| 19) | End With |
| 20) | With Selection.Borders(xlInsideHorizontal) |
| 21) | .LineStyle = xlDot |
| 22) | .ColorIndex = 5 |
| 23) | End With |
| 24) | Range("A1").Select |
| 25) | End Sub |
Комментарии к программе:
1. Обратите внимание на 2-ю строку программы. В данном случае, когда границы диапазона известны, такая запись удобна. Предположим, что количество разыгрываемых чисел задает пользователь, т.е. нижняя граница известна, а верхняя – нет. Тогда эту команду можно записать, воспользовавшись свойством Cells:
Range(Cells(1,1),Cells(m,1)).Select
где m – количество разыгрываемых чисел – определяет номер последней строки.
В общем случае команда запишется так:
Range(Cells(n,q),Cells(m,p)).Select
где n и m – номера строк, а q и p – номера столбцов.
2. Предположим, что выделение блока ячеек нежелательно. Тогда вместо 2-й и 3-й строк можно записать одну команду:
Range("A1:A10").Font.Italic = True
Точно так же блок (4) – (7) можно записать в следующем виде[9]:
With Range("A1:A10").Borders(xlEdgeLeft)
.LineStyle = xlDot
.ColorIndex = 5
End With
3. Аналогично, ссылаясь на диапазон ячеек, можно указать лист, в котором он находится:
WorkSheets("Случ. числа").Range("A1:A10").Font.Italic _
= True
With WorkSheets("Случ. числа").Range("A1:A10"). _
Borders(xlEdgeLeft)
.LineStyle = xlDot
.ColorIndex = 5
End With
или книгу:
Workbooks("Случайные числа.xls"). _
WorkSheets("Случ. числа").Range("A1:A10").Font.Italic = True
With Workbooks("Случайные числа.xls"). _
WorkSheets("Случ. числа")Range("A1:A10"). _
Borders(xlEdgeLeft)
.LineStyle = xlDot
.ColorIndex = 5
End With
Задания:
1. Скопируйте программу СлучайныеЧисла и назовите её СлучайныеЧислаОформление. Вставьте строки (2) – (24) из программы Оформление после 11-й строки новой программы. Протестируйте полученный код.
2. Переименуйте Модуль2 – в Примеры. В модуле Примеры:
2.1. Напишите 2 программы (ИзменениеЗаголовкаExcel и ВозвратСтандартногоЗаголовка), одна из которых изменяет заголовок Excel на заголовок «Розыгрыш случайных чисел», а вторая возвращает его стандартное значение
2.2. Оформите в виде программы СписокФайлов следующий код (вывод в таблицу списка файлов из папки C:\St):
Path = "C:\St" 'определяет папку
Файл = Dir(Path) 'возвращает имя первого файла
i = 1
While Файл <> "" 'см. 8.3 из курса лекций
Cells(i,2).Value = Файл
Файл = Dir
i = i + 1
Wend
2.3. Оформите в виде программы ЗаменитьФайл проверку наличия файла Случайные числа.xls и выведите диалог о его замене.
| Path = "C:\St\Случайные числа.xls" |
| Filename = Dir(Path) |
| If Filename <> "" Then |
| 'В переменной Сообщение задается структура диалогового 'окна: |
| Сообщение = vbYesNo + vbQuestion + vbDefaultButton1 |
| 'Выводит сообщение: |
| Кнопка = MsgBox(("Файл " & Filename & _ " уже существует. Заменить его?"), Сообщение) |
| Select Case Кнопка |
| Case vbYes |
| MsgBox "Нажата кнопка Да!" |
| Case vbNo |
| MsgBox "Нажата кнопка Нет!" |
| End Select |
| Else |
| MsgBox "Файл " & Filename & " не найден!" |
| End If |
2.4. Напишите программу ЗапросИмени, которая запрашивает Ваше имя:
и выводит следующие сообщения:
§ 
- если имя задано ("Светлана")
§ 
- если имя не задано.
Переменные
Примеры использования переменных присутствуют во всех программах данного практикума. Здесь же мы познакомимся поближе с объектными переменными и переменными пользовательского типа.
Объектные переменные
Как вы знаете, объектная переменная используется для ссылки на объект. Они объявляются и задаются немного иначе, чем остальные переменные. Ниже представлен фрагменте кода, в котором объектная переменная сначала объявляется, а затем ей присваивается значение: Range1- это первая ячейка первого листа.
Dim Range1 As Object
Set Range1 = Worksheets(1).Range("A1")
Предположим, что в программе Оформление из параграфа 2.3 (стр. 29) нам необходимо указывать «полный» адрес диапазона ячеек A1:A10. Очевидно, что программа окажется перегруженной и трудной для восприятия.
Sub ОформлениеПолнаяСсылка()
Workbooks("Случайные числа.xls"). _
WorkSheets("Случ. числа").Range("A1:A10").Font.Italic = True
With Workbooks("Случайные числа.xls"). _
WorkSheets("Случ. числа")Range("A1:A10"). _
Borders(xlEdgeLeft)
.LineStyle = xlDot
.ColorIndex = 5
End With
...
' на досуге можете ввести остальные команды! J
End Sub
Введя объектную переменную, мы существенно сократим программу, сделаем её простой и более наглядной. В следующем коде объектная переменная MyRange – это диапазон ячеек A1:A10, расположенный в книге Случайные числа.xls на листе Случ. числа:
| 1) | Sub ОформлениеОбъектнаяПеременная() |
| 2) | Dim MyRange As Object |
| 3) | SetMyRange = Workbooks("Случайные числа.xls"). _ WorkSheets("Случ. числа").Range("A1:A10") |
| 4) | MyRange.Font.Italic = True |
| 5) | With MyRange.Borders(xlEdgeLeft) |
| 6) | .LineStyle = xlDot |
| 7) | .ColorIndex = 5 |
| 8) | End With |
| 9) | With MyRange.Borders(xlEdgeTop) |
| 10) | .LineStyle = xlDot |
| 11) | .ColorIndex = 5 |
| 12) | End With |
| 13) | With MyRange.Borders(xlEdgeBottom) |
| 14) | .LineStyle = xlDot |
| 15) | .ColorIndex = 5 |
| 16) | End With |
| 17) | With MyRange.Borders(xlEdgeRight) |
| 18) | .LineStyle = xlDot |
| 19) | .ColorIndex = 5 |
| 20) | End With |
| 21) | With MyRange.Borders(xlInsideHorizontal) |
| 22) | .LineStyle = xlDot |
| 23) | .ColorIndex = 5 |
| 24) | End With |
| 25) | Range("A1").Select |
| 26) | End Sub |
Задания:
1. В Модуль3 наберите программу ОформлениеОбъектнаяПеременная.
2. На листе Случ. числа очистите форматы, активизируйте другую книгу и запустите программу ОформлениеОбъектнаяПеременная.
