Автоматизация работы секретариата Федерации художественной гимнастики с помощью MS Excel

   ЛичнаяКарточка.TextBox426.Text = 0

   ЛичнаяКарточка.TextBox421.Text = ""

   ЛичнаяКарточка.TextBox419.Text = ""

   ЛичнаяКарточка.TextBox420.Text = ""

   ЛичнаяКарточка.TextBox430.Text = ""

   ЛичнаяКарточка.TextBox424.Text = ""

   

   ЛичнаяКарточка.TextBox432.Text = ""

   ЛичнаяКарточка.TextBox431.Text = ""

   

   Sorevnovaniya.SpisokUchastnic

   ЛичнаяКарточка.Show

  End Sub 

  Private Sub CommandButton7_Click()

   Sorevnovaniya.SohranenieSorevnovaniy

  End Sub 

  Модуль формы «АнкетаУчастниц»

  Private Sub CommandButton1_Click()

   Sorevnovaniya.NaidennayaGimnastka

  End Sub 

  Private Sub CommandButton2_Click()

   Sorevnovaniya.ProverkaArhivaGimnastokIProtokolaUchastnic

   Sorevnovaniya.SpisokGimnastok

  End Sub 

  Private Sub CommandButton4_Click()

   АнкетаУчастниц.Hide

  End Sub 

  Private Sub CommandButton5_Click()

   Sorevnovaniya.ObnovitDannyePoGimnastke

  End Sub 

  Private Sub CommandButton6_Click()

   Sorevnovaniya.Gerebevka

  End Sub 

  Модуль формы «ЛичнаяКарточка»

  Private Sub CommandButton16_Click()

   Sorevnovaniya.OBR_Ind

   Sorevnovaniya.ItogovayaOcenka

   Sorevnovaniya.SohranenieProtokola_Ind_Ocenki_OBR

   End Sub 

  Private Sub CommandButton17_Click()

   Sorevnovaniya.MCH_Ind

   Sorevnovaniya.ItogovayaOcenka

   Sorevnovaniya.SohranenieProtokola_Ind_Ocenki_MCH

   End Sub 

  Private Sub CommandButton18_Click()

   Sorevnovaniya.BL_Ind

   Sorevnovaniya.ItogovayaOcenka

   Sorevnovaniya.SohranenieProtokola_Ind_Ocenki_BL

   End Sub 

  Private Sub CommandButton19_Click()

   Sorevnovaniya.LT_Ind

   Sorevnovaniya.ItogovayaOcenka

   Sorevnovaniya.SohranenieProtokola_Ind_Ocenki_LT

   End Sub 

  Private Sub CommandButton2_Click()

   Sorevnovaniya.NaidennayaUchastnica

   End Sub 

  Private Sub CommandButton21_Click()

   ЛичнаяКарточка.Hide

   End Sub 

  Private Sub CommandButton22_Click()

   Sheets("СписокУчастниц").Select

   DlyaProtokola.ComboBox1.RowSource = "b3:b10"

   DlyaProtokola.Show

   End Sub 

  Private Sub CommandButton23_Click()

   Sorevnovaniya.ZapolnenieOcenokIsArhivaProtokolov

   End Sub 

  Private Sub CommandButton3_Click()

   Sorevnovaniya.BP_Ind

   Sorevnovaniya.ItogovayaOcenka

   Sorevnovaniya.SohranenieProtokola_Ind_Ocenki_BP

   End Sub 

  Private Sub CommandButton9_Click()

   Sorevnovaniya.SK_Ind

   Sorevnovaniya.ItogovayaOcenka

   Sorevnovaniya.SohranenieProtokola_Ind_Ocenki_SK

   End Sub 

  Модуль  формы «ДляПротокола»

  Private Sub CommandButton1_Click()

   Sorevnovaniya.SborProtokolaIzArhiva

   DlyaProtokola.Hide

  End Sub 

  Модуль «Соревнования»

  Public i As Integer 

  Public minE As Single

  Public maxE As Single

  Public minA As Single

  Public maxA As Single

   

  Public sbavki As Single

  Public DD As Single

   

  Public E(4) As Single

  Public a(4) As Single

  Public d(5) As Single 

  Public name As String

  Public spisok() As String

  Public NomerStroki As Integer 

  Sub SohranenieSorevnovaniy() 'Сохранение соревнований

   Dim b As String

   

   FormirovanieArhivaSorevnovaniy

   NomerStroki = Application.CountA(Sheets("АрхивСоревнований").Range("A:A"))

   

   If NomerStroki = 2 Then

   Cells(3, 1).Value = 1

   Else

   Cells(NomerStroki + 1, 1).Value = NomerStroki - 1

   End If

   

   Cells(NomerStroki + 1, 2).Value = Соревнования.TextBox1.Text

   Cells(NomerStroki + 1, 3).Value = Соревнования.TextBox2.Text

   Cells(NomerStroki + 1, 4).Value = Соревнования.TextBox3.Text

   Cells(NomerStroki + 1, 5).Value = Соревнования.TextBox4.Text

   Cells(NomerStroki + 1, 6).Value = Соревнования.TextBox5.Text

   Cells(NomerStroki + 1, 7).Value = Соревнования.TextBox6.Text

   

   Columns("A:G").Select

   Columns("A:G").EntireColumn.AutoFit

   Range("A1:G1").Select

   

   b = Right(Соревнования.TextBox3.Text, 4)

   

   Cells(NomerStroki + 1, 8).Value = b

  End Sub 

  Sub FormirovanieArhivaSorevnovaniy() 'Формирование архива соревнований

   Sheets("АрхивСоревнований").Select

   If Cells(1, 1).Value = "" Then

   Cells(1, 1).Value = "Архив соревнований"

   Range("a1:g1").Select

   Selection.Merge

   

   With Selection

   .HorizontalAlignment = xlCenter

   .VerticalAlignment = xlBottom

   .WrapText = False

   .Orientation = 0

   .AddIndent = False

   .IndentLevel = 0

   .ShrinkToFit = False

   .ReadingOrder = xlContext

   .MergeCells = True

   End With

   

   Selection.Font.Bold = True

   Selection.Font.Size = 14

   

   Cells(2, 1).Value = "№"

   Cells(2, 2).Value = "Название соревнований"

   Cells(2, 3).Value = "Город проведения"

   Cells(2, 4).Value = "Дата проведения"

   Cells(2, 5).Value = "Главный судья"

   Cells(2, 6).Value = "Главный секретарь"

   Cells(2, 7).Value = "Города участники"

   Cells(3, 1).Select

   End If

   

  End Sub 

  Sub SpisokSorevnovaniy() 'Список соревнований

   Dim god As String

   god = ПоискСоревнования.TextBox1.Text

   

   Sheets("АрхивСоревнований").Select

   NomerStroki = Application.CountA(Sheets("АрхивСоревнований").Range("a:a"))

   ReDim spisok(NomerStroki)

   i = 1

   ПоискСоревнования.ListBox1.Clear

   For i = 1 To NomerStroki

   If Cells(i + 2, 8).Value = god Then

   spisok(i) = Cells(i + 2, 2).Value

   ПоискСоревнования.ListBox1.AddItem (spisok(i))

   End If

   

   Next i 

  End Sub 

  Sub NaydennoeSorevnovanie() 'Найденное соревнование

   Dim name As String

   

   name = ПоискСоревнования.ListBox1.Text

   

   Sheets("АрхивСоревнований").Select

   NomerStroki = Application.CountA(Sheets("АрхивСоревнований").Range("a:a"))

   

   Соревнования.TextBox1.Text = ""

   Соревнования.TextBox2.Text = ""

   Соревнования.TextBox3.Text = ""

   Соревнования.TextBox4.Text = ""

   Соревнования.TextBox5.Text = ""

   

   For i = 3 To NomerStroki

   If Cells(i, 2).Value = name Then

   Соревнования.TextBox1.Text = Cells(i, 2).Value

   Соревнования.TextBox2.Text = Cells(i, 3).Value

   Соревнования.TextBox3.Text = Cells(i, 4).Value

   Соревнования.TextBox4.Text = Cells(i, 5).Value

   Соревнования.TextBox5.Text = Cells(i, 6).Value

   End If

   Next i

   

  End Sub 

  Sub FormirovanieArhivaGimnastok() 'Формирование архива гимнасток

   

   Sheets("АрхивГимнасток ").Select

   If Cells(1, 1).Value = "" Then

   

   Range("A2").Select

   ActiveCell.FormulaR1C1 = "№"

   Range("B2").Select

   ActiveCell.FormulaR1C1 = "Фамилия Имя"

   Range("C2").Select

   ActiveCell.FormulaR1C1 = "Край, область"

   Range("D2").Select

   ActiveCell.FormulaR1C1 = "Город"

   Range("E2").Select

   ActiveCell.FormulaR1C1 = "Разряд"

   Range("F2").Select

   ActiveCell.FormulaR1C1 = "Год"

   Range("A1:F1").Select

   With Selection

   .HorizontalAlignment = xlCenter

   .VerticalAlignment = xlBottom

   .WrapText = False

   .Orientation = 0

   .AddIndent = False

   .IndentLevel = 0

   .ShrinkToFit = False

   .ReadingOrder = xlContext

   .MergeCells = False

   End With

   Selection.Merge

   ActiveCell.FormulaR1C1 = "Архив гимнасток"

   Selection.Font.Bold = True

   Selection.Font.Size = 14 

   End If

  End Sub 

  Sub SohranenieGimnastok() 'Сохранение гимнасток

   

   Sheets("АрхивГимнасток ").Select

   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))

   

   If NomerStroki = 2 Then

   Cells(3, 1).Value = 1

   Else

   Cells(NomerStroki + 1, 1).Value = NomerStroki - 1

   End If

   

   Cells(NomerStroki + 1, 2).Value = АнкетаУчастниц.TextBox1.Text

   Cells(NomerStroki + 1, 3).Value = АнкетаУчастниц.TextBox2.Text

   Cells(NomerStroki + 1, 4).Value = АнкетаУчастниц.TextBox3.Text

   Cells(NomerStroki + 1, 5).Value = АнкетаУчастниц.ComboBox1.Text

   Cells(NomerStroki + 1, 6).Value = АнкетаУчастниц.TextBox5.Text

   

   Columns("A:F").EntireColumn.AutoFit

   

   'сортировка

   Sheets("АрхивГимнасток ").Select

   Range("b2:f" & NomerStroki + 1).Select

   ActiveWorkbook.Worksheets("АрхивГимнасток ").Sort.SortFields.Clear

   ActiveWorkbook.Worksheets("АрхивГимнасток ").Sort.SortFields.Add Key:=Range( _