Dim inf(1 To 10) As Abonent
Dim i, n As Integer
Dim n1 As String
n = Val(InputBox("Введите количество абонентов"))
For i = 1 To n Step 1
With inf(i)
.fam = InputBox("Введите фамилию")
.name = InputBox("Введите имя")
.namber = Val(InputBox("Введите номер телефона"))
.adr = InputBox("Введите адрес")
End With
Next i
n1 = InputBox("Введите фамилию абонента")
For i = 1 To n Step 1
If n1 = inf(i).fam Then
MsgBox inf(i).fam & Chr(13) & _
inf(i).name & Chr(13) & _
inf(i).namber & Chr(13) & _
Inf(i).adr
End If
Next i
End Sub
№23 Иерархические объекты Visual Basic for Application в Microsoft Office Excel.
Существуют сотни самых разнообразных объектов VBA, многие из которых объединяются в семейства объектов.
Объект Application ( объект "Приложение") Этот объект представляет собой само приложение Excel в целом. Он включает в себя глобальные устанавливаемые параметры, такие, например, как используемый стиль ссылок на ячейки или режим проведения вычислений. Кроме того, он включает в себя встроенные функции Excel.
Windows ( семейство "Окна")Объекты этого семейства используются при свертке или развертке окна, разбиении его на части и фиксировании подокон. Принадлежащий к этому семейству объект ActiveWindow представляет собой активное в настоящий момент окно.
Workbooks ( семейство "Рабочие книги") Объекты этого семейства определяют состояние рабочей книги, например: не является ли она доступной только для чтения; или какой из листов рабочей книги активен в настоящий момент. Принадлежащий к этому семейству объект ActiveWorkbook — это объект, который представляет собой активную в настоящий момент рабочую книгу.
Worksheets (семейство "Рабочие листы") Объекты этого семейства используются при копировании или удалении рабочих листов, их скрытии или показе, проведении вычислений для формул рабочего листа. Принадлежащий к этому семейству объект ActiveWorksheet - это объект, который представляет собой активный в настоящий момент рабочий лист.
Range (объект "Диапазон")Этот объект позволяет изменять свойства диапазона ячеек, например, используемый шрифт, проверять или изменять содержимое ячеек, вырезать или копировать указанный диапазон, и многое другое. Это наиболее часто используемый в Excel объект. Принадлежащий к этому же классу объектов объект ActiveCell - представляет собой активную в настоящий момент ячейку. Обратите внимание на то, что не существует такого объекта, какCell — отдельно взятая ячейка представляет собой частный случай объекта Range.
При ссылке на объект в программе иногда приходится для уточнения задавать все объекты, лежащие на иерархическом пути к нужному объекту, при этом имена объектов отделяются друг от друга точкой. Например, чтобы присвоить значение 1 первой ячейке первого листа первой рабочей книги Excel, можно использовать следующий оператор VBA:
Application.Workbooks(1).Worksheets(1).Range("A1").Value = 1
В этом примере используются не только простые объекты, а также объекты, являющиеся семействами (Collections) — Workbooks и Worksheets (во встроенной справке на иерархическом дереве объектов простые объекты окрашены бирюзовым цветом, а объекты, являющиеся также и семействами — желтым). В таком случае в скобках после имени семейства указывается имя или индекс конкретного элемента семейства.
Sub pr()
Dim s, s1, s2, s3, s4, s5, s6, s7, s8 As String
s = InputBox("Введите строку")
s1 = Right(s, 8)
s2 = Left(s, 7)
s3 = Mid(s, 10, 1)
s4 = s2 & s3
s5 = Mid(s, 4, 1)
s6 = Mid(s, 6, 2)
s7 = Mid(s, 10, 2)
s8 = s5 & s6 & s7
MsgBox s1 & Chr(13) & _
s4 & Chr(13) & _
S8
End Sub
№ 24 Свойства иерархических объектов Visual Basic for Application в Microsoft Office Excel.
В VBA, как и в реальной жизни, всякий объект обладает определенными свойствами (Properties), описывающими этот объект или его состояние. Свойства и методы предназначены для доступа к содержимому и функциональности объектов. Например, свойство Value объекта Range используется для просмотра значения в ячейке B3 на рабочем листе Sales из рабочей книги Current.xls :Workbooks("current.xls").Worksheet("sales").Range("B3").Value=3
Свойство Bold объекта Font позволяет изменить начертания шрифта в ячейке B3 рабочего листа Sales на полужирное: Workbooks("current.xls").Worksheet("sales").Range("B3").Font.Bold =true
Приведем еще один пример — в приложении Excel объект Range (диапазон ячеек рабочего листа) имеет такие свойства, как:
1.Font — используемый шрифт;
2.Formula — определяет содержимое ячейки или диапазона ячеек;
3.Value — определяет значение ячейки;
и многие, многие другие свойства.
При ссылке на свойство объекта используется тот же самый синтаксис, что и при уточнении иерархического соподчинения объектов. Сначала указывается объект, затем ставится точка, за которой следует свойство: объект.свойство
Например, для ссылки на значение активной ячейки используется следующая запись: ActiveCell.Value
Более всего новичка может запутать тот факт, что некоторые свойства объектов сами в свою очередь могут выступать в качестве объектов. Так, например, объект Application имеет свойство ActiveWindow, которое показывает, какое окно является активным в настоящий момент. В то же время ActiveWindow, как уже упоминалось, является объектом семейства Windows, который может иметь свойство ActiveCell, в свою очередь являющееся объектом класса Range. Далее, ActiveCell имеет свойство Font, также являющееся объектом, имеющим такие свойства, как Name,
Size или Bold. Таким образом, возникает иерархия свойств-объектов, аналогичная иерархии "чистых" объектов. При ссылке на свойства нижних уровней могут использоваться иерархические ссылки вроде следующей: ActiveWindow.ActiveCell.Font.Size
Обычно при обращении к свойству или объекту не требуется полностью задавать весь иерархический путь, часто годится действующий по умолчанию путь, а может использоваться и специальный оператор With для уточнения пути сразу для группы операторов. Свойства объектов Excel
Объект Application
1.ActiveWindow – Активное окно
2.ActiveWorkbook – Активная рабочая книга
3.ScreenUpdating – Режим обновления экрана (при выполнении процедуры для ускорения работы можно приостановить обновление отображаемых данных, и снова включить обновление перед выходом из процедуры)
4.StandardFont – Имя стандартного шрифта для новых рабочих листов