Visual Basic for Applications. Практика. Нагина Е.К - 79 стр.

   В общей области необходимо объявить вспомогательные переменные:

    Option Explicit
    Dim Фамилия As String
    Dim ТипВклада As String
    Dim СуммаВклада As Double
    Dim Отделение As String
    Dim Примечание As String
    Dim Количество As Integer
    Dim Номер As Integer

   Для активных элементов формы записывается соответствующий код.
   Код процедуры обработки события Click кнопки «Найти»:

Private Sub Найти_Click()
    Worksheets("База").Activate
    Количество = Application.CountA(Active- _
                  Sheet.Columns(1))
    Фамилия = Фам.Text
    ТипВклада = Тип.Value
    If Сев.Value = True Then Отделение = _
                  "Северное"
    If Центр.Value = True Then Отделение = _
                  "Центральное"
    If Вост.Value = True Then Отделение = _
                  "Восточное"
    With ActiveSheet
        For Номер = 1 To Количество
           If .Cells(Номер, 1) = Фамилия And _
            .Cells(Номер, 2) = ТипВклада And _
            .Cells(Номер, 4) = Отделение Then _
            Exit For
        Next
        Остаток.Text = .Cells(Номер, 3)
    End With
    If Номер = Количество + 1 Then
        MsgBox "Такого счета в базе нет", _
                 vbInformation
    End If
    Дата.Text = Date
End Sub



                               79