Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

   If doCalc Then counter = counter + 1

 Next curRow

 count = counter

End Function

sortForm

Private Sub UserForm_Activate()

  OKButton.SetFocus

End Sub

Private Sub CancelButton_Click()

  sortForm.Hide

End Sub

Private Sub OKButton_Click()

Dim sht As Worksheet

Dim rng As Range

  Set sht = ThisWorkbook.ActiveSheet

  Set rng = sht.Range(sht.Cells(5, 1), sht.Cells(65536, 1).End(xlUp).Offset(, 7))

  If NameOption.Value Then

    ' сортировать по ФИО

    rng.sort Key1:=sht.Columns("A"), Order1:=xlAscending, Key2:=sht.Columns("B"), Order2:=xlAscending, Key3:=sht.Columns("C"), Order3:=xlAscending, Header:=xlNo

  Else

   If AddressOption.Value Then

    ' сортировать по адресу

    rng.sort Key1:=sht.Columns("D"), Order1:=xlAscending, Key2:=sht.Columns("E"), Order2:=xlAscending, Key3:=sht.Columns("F"), Order3:=xlAscending, Header:=xlNo

   Else

    ' сортировать по телефону

Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки