На бирже курсовых и дипломных проектов можно найти образцы готовых работ или получить помощь в написании уникальных курсовых работ, дипломов, лабораторных работ, контрольных работ, диссертаций, рефератов. Так же вы мажете самостоятельно повысить уникальность своей работы для прохождения проверки на плагиат всего за несколько минут.

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


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

Информация:

Тип работы: курсовая работа. Добавлен: 10.10.2012. Сдан: 2011. Страниц: 57. Уникальность по antiplagiat.ru: < 30%

Описание (план):


     Федеральное агентство по образованию
     Дальневосточный государственный технический университет
     (ДВПИ  им. В.В.Куйбышева)
     Кафедра информационных систем в экономике 
 
 
 
 
 
 
 
 
 
 

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА 

по дисциплине: «Функциональное программирование программного обеспечения» 

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

       
Руководитель:   Выполнили студенты гр. У-7141:
Белов С.Б.   Кононова Т.В. Орёл М.А.
     
     
подпись   подпись
    Допущена к  защите
    «____»______________200__г.
     
    Защищена с  оценкой
    _____________ ____________
    «____»______________200__г.
 
 
 
 
Владивосток
2010
     Федеральное агентство по образованию
     Дальневосточный государственный технический университет
     (ДВПИ  им. В.В.Куйбышева)
     Кафедра Информационные системы в экономике 

       УТВЕРЖДАЮ
       Зав. кафедрой_____________
       «___»______________2009 г. 

    ЗАДАНИЕ
    по  курсовому проектированию
       Тема  проекта: «Автоматизация работы секретариата Федерации художественной гимнастики помощью MS Excel».
Перечень  подлежащих разработке вопросов:
    Проектная часть:
1.1 Описание  предметной области
1.2 Разработка  концептуальной, логической, физической  и математической моделей предметной  области
    Реализация проекта:
2.1 Создание  листов
2.2 Создание  форм
2.3 Создание  модулей
2.4 Создание  краткой инструкции для пользователя 

Руководитель: Белов С. Б.  _____________________
Выполнили: Кононова Т.В.
             Орёл М.А.
 


       Содержание

       Введение 4
       1 Проектная часть 6
       1.1 Словесно-логическое описание предметной области 6
       1.2 Концептуальная модель 8
       1.3 Логическая модель 10
       1.4 Математическая модель 14
       1.5 Физическая модель 15
       2 Практическая реализация 17
       2.1 Разработка входного интерфейса 17
       2.2 Реализация проекта 18
       2.3 Инструкция пользователя 21
       Заключение 23
       Список использованной литературы 24
       Приложение 25 
 

 


       Введение

     Главной идеей работы является: предоставить секретарю возможность с помощью программных инструментов упростить и ускорить процесс систематизации работы соревнований, а также подсчета оценок участниц.
     Во  время проведения соревнований решение данных задач является крайне сложным и трудоемким процессом, т.к. в соревнованиях участвует большое количество гимнасток и поэтому необходимо производить большое количество расчетов.
     Выбранная тема является актуальной, потому что данная компьютерная модель позволяет вести учет проводимых соревнований, рассчитывать оценки участвующих гимнасток, а также осуществлять упорядоченное хранение необходимых данных.
     Целью курсовой работы является автоматизация работы секретариата федерации художественной гимнастики и создание компьютерной модели, позволяющей вести учет соревнований и рассчитывать оценки участниц.
     Для достижения поставленной цели решаются следующие задачи:
    описание предметной области;
    разработка концептуальной, логической, физической и математической моделей;
    реализация проекта на основании построенных моделей;
    создание краткой инструкции пользователю.
     Для достижения главной цели и решения поставленных задач необходимы следующие средства:
    Информационные источники:
      информационные интернет - источники;
      литература по программированию на VBA;
      правила судейства по художественной гимнастике.
    Программные средства:
      Операционная система Windows XP и выше;
      Пакет программ MS Office 2007 (Excel, Visio, Word), язык программирования VBA.
    Технические средства:
       Персональный  компьютер с процессором не ниже Intel Pentium 2, 1Гб ОЗУ, жесткий диск емкостью 180 гб, монитор 17 дюймов, клавиатура, мышь.
       Структура данного курсового проекта включает следующие элементы: введение, проектную  часть, содержащую описание различных  моделей, руководство пользователя, список используемой литературы и приложение, содержащее код программного продукта на языке VBA. Работа состоит из 24 листов печатного текста, 49 листов приложения.
 


       1 Проектная часть

    1.1 Словесно-логическое описание предметной области

       После вступления в силу в 2000г. новых правил судейства по художественной гимнастике работа секретариата, связанная с  подсчетом итоговых оценок и выведения  итоговых протоколов, стала весьма сложной и связанной со многими вычислениями. Секретариат является основным отделом по выведению итоговых результатов соревнований. Структура показана на рисунке 1.1.1.
         
 
 
 
 
 
 

       Рис.1.1.1 — Организационная структура предприятия 

     На  данный момент секретариат состоит  из пяти сотрудников. Двое занимаются списыванием оценок, приходящих от судей, одной гимнастки в «Личную карточку №1». Третий член секретариата занимается сведением всех оценок конкретной гимнастки в отдельную карточку — «Личная карточка №2». Четвертый сотрудник секретариата занимается проверкой правильности вычислений, так как все вычисления производятся с использованием калькулятора и не исключен человеческий фактор, который приводит к ошибкам вычисления. Пятый сотрудник секретариата занимается составлением итогового протокола в электронном виде на ПК.
     Таким образом, существует ряд проблем:
      замедленный процесс обработки оценок, в результате ручного подсчета;
      замедленный процесс обработки оценок, в результате необходимости их последовательного подсчета;
      хранение огромного количества бумаг.
     Также в задачи секретариата входит проведение жеребьевки участниц, с последующим  формированием графика соревнований. Проведение жеребьевки осуществляется на основе «Заявки на участие», в  которой подается список участвующих  гимнасток и судей. В заявках  прописываются следующие данные о гимнастке: фамилия, имя, разряд, город (область, край), год рождения.
     Во  время соревнований входными документами  являются «Индивидуальные карточки участниц», которые содержат в себе информацию о выступающей гимнастке  – фамилия, имя, год рождения и  выполняемый предмет. На этих карточках  судьи выставляют свои оценки. Следующим  входным документом являются «Сбавки», которые гимнастки получают за выступление  в случаях, описанных в Правилах судейства.
     Выходными данными являются «Личные карточки №1» и «Личные карточки №2». Результаты проведения соревнований отражаются в  «Итоговом протоколе», который составляется по каждому разряду отдельно.
     Для того чтобы автоматизировать работу секретариата, необходимо создание такой  компьютерной модели, которая могла  бы выполнять следующие задачи:
      Осуществление жеребьевки гимнасток;
      Подсчет оценок;
      Формирование итогового протокола;
      Хранение данных о проведенных соревнованиях;
      Обеспечение выдачи данных по запросу пользователя.
     С помощью такой компьютерной модели штат секретариата можно будет сократить  до одного, двух сотрудников, которые  будут единственными пользователями этой системы.

       1.2 Концептуальная модель

     Концептуальная (содержательная) модель — это абстрактная модель, определяющая структуру моделируемой системы, свойства её элементов и причинно-следственные связи, присущие системе и существенные для достижения цели моделирования.
   Для построения такой модели удобно использовать CASE – средства моделирования, такие как MS Visio (рис. 1.2.1).
     
     Рис.1.2.1 — Концептуальная модель предметной области 

На схеме  изображены объекты:
    Документ «Заявка на участие» представляет список участвующих в соревнованиях гимнасток;
    Блок «Данные» - есть введенные данные из заявок;
    Блоки «Архив гимнасток», «Архив соревнований», «Архив протоколов» - позволяет хранить данные о соревнованиях, участницах и итогах соревнований, а также загружать данные для облегчения ввода;
    Блок «Проведение жеребьевки» - связан с осуществлением жеребьевки участниц.
    Блок «Ввод и расчет оценок» - связан с вводом полученных оценок и их подсчетом.
    Блок «Вычитание сбавок» - связан с вычитание сбавок из суммы оценок.
    Блок «Суммирование оценок за все виды упражнений» - связан с расчетами суммы итоговой оценки.
    Блок «Определение места занимаемого гимнасткой» - связан с определением места гимнастки на основе полученных оценок.
    Блок «Создание итогового протокола» - связан с формированием итогового протокола соревнований.
    Документ «Итоговый протокол»
 
 


       1.3 Логическая модель

     IDEF0 — Function Modeling — методология функционального моделирования и графическая нотация, предназначенная для формализации и описания бизнес-процессов. Отличительной особенностью IDEF0 является её акцент на соподчинённость объектов. В IDEF0 рассматривается логические отношения между работами, все сигналы управления. Данная модель является одной из самых прогрессивных моделей и используется при организации бизнес проектов и проектов, основанных на моделировании всех процессов как административных, так и организационных.
     С помощью IDEF 0 отражаются последовательные процессы, а IDEF 3 позволяет отразить те процессы, которые могут осуществляться параллельно.
     На  рисунке 1.3.1 представлена модель всей задачи, основана на методологии IDEF0 в  виде компонент, блоков и дуг.  


       Рис.1.3.1 — Диаграмма IDEF0 

     Блок  «Провести соревнования по художественной гимнастике» - функциональный элемент, отражающий процедуру проведения соревнований. Входной информацией являются заявки на участие и личные карточки участниц, выходной – итоговый протокол. Соревнования проводятся в соответствии с правилами по художественной гимнастике. Осуществляют проведение соревнований: участницы соревнований, судейская коллегия, главная судейская коллегия и секретариат.
       На рисунке 1.3.2 представлен блок A-0, декомпозированный на несколько блоков, соединенных между собой дугами. 


       Рис.1.3.2 — IDEF 0 декомпозиция функционального блока «Провести соревнования по художественной гимнастике» 

     Блок  «Подготовить проведение соревнований»  отражает подготовку к проведению соревнований.
     Блок  «Определить победителей соревнований»  совокупность операций по расчету оценок участниц и определению победителей. Далее на рисунке 1.3.3 данный блок декомпозирован на несколько блоков.

       Рис.1.3.3 — IDEF 0 декомпозиция функционального блока «Определить победителей соревнований» 

     Далее на рисунках 1.3.4 и 1.3.5 представлены декомпозиции блоков «Оценить участницу» и «Подсчитать  итоговую оценку» соответственно.

       Рис.1.3.4 — IDEF 3 декомпозиция функционального блока «Оценить участницу» 

     Все представленные блоки выполняются  параллельно и одновременно, а  все предшествующие процессы должны быть завершены, о чем свидетельствует  знак . 


       Рис.1.3.5 — IDEF 3 декомпозиция функционального блока «Подсчитать итоговую оценку»
 


       1.4 Математическая модель

     Для расчета оценок используемых для  подведения итогов соревнований и определения  победителей производятся следующие  вычисления:
       Средняя оценка А = (А1 + А2 + А3 + А4 – minA - maxA) / 2
     Средняя оценка E = (E1 + E2 + E3 + E4 – minE - maxE) / 2
     Если  гимнастка выполняет упражнение без предмета, то:
     Средняя оценка D = (D1 + D2 + D3 + D4 – minD - maxD) / 2
     Если  гимнастка выполняет упражнение с каким-либо предметом (скакалка, обруч, мяч, булавы, лента), то вместо оценки D считаются D1 и D2 и среднее между этими оценками:
     Средняя оценка D1 = (D1.1 + D1.2) / 2
     Средняя оценка D2 = (D2.1 + D2.2) / 2
     DD = (D1 + D2) / 2
     Далее все полученные средние оценки суммируются  и из них вычитаются сбавки в соответствии с правилами. Если гимнастка выполняла упражнение без предмета, то:
     Оценка = Средняя оценка А + Средняя оценка E + Средняя оценка D – Сбавки.
     Если  гимнастка выполняла упражнение с каким-либо предметом, то:
     Оценка = Средняя оценка А + Средняя оценка E + DD – Сбавки.
     Одна  гимнастка может выполнять упражнение без предмета и с каким-либо предметом. За каждое выступление гимнастка  получает оценку. При подведении итогов соревнований подсчитывается итоговая оценка за все выступления гимнастки:
     Итого = Оценка (без предмета) + Оценка (скакалка) + Оценка (обруч) + Оценка (мяч) + Оценка (булавы)+ Оценка (лента).
     В соответствии с оценкой Итого  определяется место, занимаемое гимнасткой.
 


       1.5 Физическая модель

     Физическая  модель данных определяет – как  поставленная задача решается непосредственно  средствами программирования среды Visual Basic.
     Таблица 1.5.1 содержит список объектов и их функциональное назначение.
       
Объект Назначение
Лист  «СписокУчастниц» Формирование  списка участниц соревнований
Лист  «ПротоколСоревнований(инд)» Формирование  протокола соревнований
Лист  «АрхивСоревнований» Хранение данных о соревнованиях
Лист  «АрхивГимнасток» Хранение данных о гимнастках
Лист  «АрхивПротоколов(инд)» Хранение данных о поставленных оценках
Форма "ГлавнаяФорма" Выбор типа соревнования
Кнопка "Новые соревнования" Переход к форме «Соревнования»
Кнопка "Поиск соревнования" Переход к форме  «ПоискСоревнований»
Кнопка "Выход" Выход из программы
Форма «ПоискСоревнования» Поиск соревнования по году проведения
Поле "Год" Ввод года проведения соревнования
ListBox "Соревнования" Соревнования, проведенные в выбранном году
Кнопка "Показать" Показать соревнования, проведенные в выбранном году
Кнопка "Перейти" Переход к форме  «Соревнования»
Форма "Соревнования" Данные  о соревнованиях
Поле "Название соревнования" Ввод названия соревнования
Поле "Год проведения" Ввод года проведения соревнования
Поле "Дата" Ввод даты проведения соревнования
Поле "Главный судья" Ввод ФИО  главного судьи
Поле "Главный секретарь" Ввод ФИО  главного секретаря
Кнопка "Участницы" Переход к форме  «АнкетаУчастниц»
Кнопка "Сохранить" Сохранение  данных на листе «АрхивСоревнований»
Кнопка "Личная карточка" Переход к форме  «ЛичнаяКарточка»
Кнопка "Выход" Переход к форме  «ГлавнаяФорма»
Форма "АнкетаУчастниц" Данные  об участнице соревнований
ListBox1 Выбор участницы  соревнований
Поле "ФИО" Ввод ФИО  участницы
Поле "Край, область" Ввод края или  области участницы
Поле "Город" Ввод города участницы
ComboBox "Разряд" Выбор разряда  участницы
Поле "Год рождения" Ввод года рождения участницы
Кнопка "Заполнить" Заполнение  полей на основе выбранной фамилии  участницы в ListBox1
Кнопка "Сохранить" Сохранение  введенных данных об участнице
Кнопка "Обновить" Обновление  данных об участнице соревнований
Кнопка "Жеребьевка" Проведение  жеребьевки
Кнопка "Выход" Переход к форме  «ГлавнаяФорма»
Форма "ЛичнаяКарточка" Данные  об оценке участницы
Поле "Соревнования" Вывод названия соревнования
Поле "Дата проведения" Вывод даты проведения соревнования
ListBox "Фамилия Имя" Выбор ФИО участницы
Поле "Край, область" Вывод края или  области участницы
Поле "Город" Вывод города участницы
Поле "Разряд" Вывод разряда  участницы
Поле "Год рождения" Вывод года рождения участницы
TextBoxs в строке Е Ввод оценок судей категории Е
TextBoxs в строке А Ввод оценок судей категории А
TextBoxs в строке D Ввод оценок судей категории D
TextBoxs в столбце «Средняя оценка» Расчет средней  оценки
TextBoxs в столбце «(D1+D2)/2» Расчет средней  оценки D
TextBoxs в столбце «Сбавки» Ввод начисленных  сбавок
TextBoxs в столбце «Итоговая оценка» Расчет итоговой оценки
Поле  «Итоговая сумма» Расчет итоговой суммы
Поле  «Место» Определение занимаемого  места
Кнопка "Заполнить анкету" Заполнение  полей на основе выбранной фамилии  участницы в ListBox1
Кнопка "Заполнить оценки" Заполнение  полей оценок на основе АрхиваПротоколов
Кнопка "Просмотр протокола" Формирование  протокола соревнований
Кнопка "Без предмета" Заполнение  полей на основе выбранной фамилии  участницы в ListBox1
Кнопка "Скакалка" Заполнение  полей оценок на основе АрхиваПротоколов
Кнопка "Обруч" Формирование  протокола соревнований
Кнопка "Мяч" Переход к форме  «Соревнования»
Кнопка "Булавы" Формирование  протокола соревнований
Кнопка "Лента" Переход к форме  «Соревнования»
Кнопка "Выход" Переход к форме  «Соревнования»
Форма "ДляПротокола" Ввод  данных для формирования протокола
ComboBox «Разряд» Выбор разряда
Поле  «Год рождения с» Ввод начального года рождения
Поле  «по» Ввод конечного  года рождения
Кнопка  «Собрать протокол» Формирование  протокола
     Табл.1.5.1 — Список объектов

       2 Практическая реализация

       2.1 Разработка входного интерфейса

     Средства  VBA позволяют реализовать процесс выполнения задач в составе программного комплекса. Для начала работы с приложением необходимо запустить макрос «Запуск». Для того, чтобы это можно было сделать непосредственно из рабочей книги, на панели быстрого доступа размещается кнопка, для этого необходимо:
      Кликнуть левой кнопкой мыши по цветному кружку в левом верхнем углу Excel 2007;
      Нажать кнопку "Параметры Excel", выбрать пункт "Настройка";
      В списке "Выбрать команды из" выбрать "Макросы";
      В левом окошке выбрать нужный макрос, нажать кнопку "Добавить", макрос появится в правом окошке;
      Выбрать его, нажать кнопку "Изменить" и выбрать нужный значок;
      Нажать кнопку "Ок". Затем ещё раз "Ок".
     В этом случае кнопка появиться в панели быстрого доступа.
     

     Рис. 2.1.1 — Выбор команды
 


       2.2 Реализация проекта

     Данный  курсовой проект состоит из следующих  частей:
      8 форм (ГлавнаяФорма, ПоискСоревнования, Соревнования, АнкетаУчастниц, ЛичнаяКарточка, ДляПротокола)
      2 модулей (Module1, Sorevnovaniya)
      8 модулей форм
      5 листов (СписокУчастниц, ПротоколСоревнований(инд), АрхивСоревнований, АрхивГимнасток, АрхивПротоколов(инд))
 
     

     Рис. 2.2.1 — Форма ГлавнаяФорма
     Это главная кнопочная форма. С помощью  нее производится вызов форм для  ввода данных и вызов процедур для обработки соответствующих  листов.
     

     Рис. 2.2.2 — Форма ПоискСоревнования
     С помощью данной формы вводится значение года проведения соревнований и выбираются нужные соревнования из списка представленных.
     

     Рис.2.2.3 — Форма Соревнования
     С помощью данной формы вводятся новые  или уже предоставляются имеющиеся  данные о соревнованиях.
     

     Рис. 2.2.4 — Форма АнкетаУчастниц
     Данная  форма помогает вводить, обновлять, сохранять и получать данные об участницах соревнований.
     

     Рис. 2.2.5 — Форма ЛичнаяКарточка
     С помощью данной формы вводятся и  подсчитываются оценки за упражнения каждой гимнастки, а также подсчитываются итоговая оценка за упражнение и итоговая сумма за все соревнование и в  соответствии с ней определяется место участницы.
     

     Рис. 2.2.6 — Форма ДляПротокола
     Данная  форма помогает сформировать протокол в соответствии с заполненными полями.
 


       2.3 Инструкция пользователя

     Для запуска программы необходим  исходный файл «GymRytm.xlsm», на дополнительной ленте устанавливается кнопка «Запуск» по алгоритму, описанному в пункте 2.1., если таковая, лента, отсутствует. Для запуска необходимо нажать на эту кнопку.
    Если соревнования новые и в архиве нет о них информации, то нажмите кнопку «Новые соревнования» и введите информацию в текстовые поля и нажмите кнопку «Сохранить».
    Нажмите кнопку «Участницы» и введите информацию о каждой участнице соревнований и нажмите кнопку «Сохранить».
    Если гимнастка уже участвовала в каких-либо соревнованиях, то введите её фамилию в самое верхнее поле и нажмите кнопку «Заполнить».
    Если какие-либо данные гимнастки изменились, то внесите изменения и нажмите кнопку «Обновить».
    После ввода всех участниц соревнований нажмите кнопку «Жеребьевка».
    Нажмите кнопку «Выход», чтобы вернуться к форме «Соревнования».
    Нажмите кнопку «Личная карточка».
    Выберите фамилию участницы соревнований и нажмите кнопку «Заполнить анкету».
    Заполните необходимые поля оценками и нажмите кнопку с соответствующей картинкой.
    Если гимнастка выполняет не первое упражнение, то нажмите кнопку «Заполнить оценки».
    Для просмотра распределения мест нажмите кнопку «Просмотр протокола».
    Выберите разряд и введите год рождения, а затем нажмите кнопку «Собрать протокол».
    Для продолжения ввода оценок гимнасток повторить шаги 8-10.
    Для выхода из формы «Личная карточка» нажмите кнопку «Выход».
    Если соревнования уже занесены в архив, то нажмите на главной форме кнопку «Поиск соревнования».
    Введите год проведения соревнования и нажмите кнопку «Показать».
    Выберите необходимое соревнование и нажмите кнопку «Перейти» и повторите шаги 2-13.
 
 
 
 
 
 
 
 
 

     

       Заключение

 
     При создании системы была проделана  работа, результатом которой является приложение «GymRytm». Оно запускается при помощи кнопки на панели инструментов.
     В результате проделанной работы создано  приложение, позволяющее производить  автоматизацию работы секретариата федерации художественной гимнастики, а также вести учет соревнований и рассчитывать оценки участниц.
     Для создания приложения были решены следующие  задачи:
      Описана предметная область
      Созданы концептуальная, логическая, математическая и физическая модели.
      На основании моделей создано приложение, автоматизирующее процесс подсчета оценок участниц соревнований.
      Написана краткая инструкция пользователя для правильной работы с приложением.
     С помощью разработанного приложения предпринята попытка оптимизации работы секретариата. Данное приложение позволит отказаться от большого количества бумаг, остающихся после проведения соревнований, также, благодаря автоматическому подсчету оценок исключается человеческий фактор, и на порядок снижается количество ошибок.
     На  основании вышесказанного, понятно, что использование приложения намного упрощает работу с данными и делает ее эффективной.
     Введение  компьютерной модели в работу Секретариата позволит:
      повысить качество и оперативность подсчета оценок;
      повысить оперативность формирования «Итогового протокола»;
      снизить уровень ошибок связанных с человеческим фактором.
 


       Список  использованной литературы

    Самоучитель VBA, 2е издание. А. Ю. Гарнаев; изд. «БХВ- С-П.» 2004
    Пол Мак – Федрис Моя первая книга о VBA: М: Эксмо, 2005
    Cтив Каммингс - VBA для чайников — М. Издательский дом «Вильямс», 2001. — 448 с.
    Пауэре, Л. Microsoft Visual Studio 2008 / Л. Пауэре, М. Снелл: Пер. с англ. — СПб.: БХВ-Петербург, 2009. — 1200 с:
 
 


 

       

       Приложение

  Модуль  формы «ГлавнаяФорма»
  Private Sub CommandButton1_Click()
   ГлавнаяФорма.Hide
   Sorevnovaniya.OchistitListProtokolaSorevnovaniy
   
   Соревнования.TextBox1.Text = ""
   Соревнования.TextBox2.Text = ""
   Соревнования.TextBox3.Text = ""
   Соревнования.TextBox4.Text = ""
   Соревнования.TextBox5.Text = ""
   Соревнования.TextBox6.Text = ""
   Соревнования.Show
  End Sub 

  Private Sub CommandButton2_Click()
   ГлавнаяФорма.Hide
   ПоискСоревнования.TextBox1.Text = ""
   ПоискСоревнования.ListBox1.Clear
   ПоискСоревнования.Show
  End Sub 

  Private Sub CommandButton3_Click()
   ГлавнаяФорма.Hide
  End Sub 

  Модуль  формы «ПоискСоревнования»
  Private Sub CommandButton1_Click()
   ПоискСоревнования.Hide
   Sorevnovaniya.NaydennoeSorevnovanie
   Соревнования.Show
   End Sub 

  Private Sub CommandButton2_Click()
   Sorevnovaniya.SpisokSorevnovaniy
  End Sub 

  Модуль  формы «Соревнования»
  Private Sub CommandButton3_Click()
   Соревнования.Hide
   ГлавнаяФорма.Show
  End Sub
  Private Sub CommandButton4_Click()
   Sheets("СписокУчастниц ").Select
   АнкетаУчастниц.TextBox1.Text = ""
   АнкетаУчастниц.TextBox2.Text = ""
   АнкетаУчастниц.TextBox3.Text = ""
   АнкетаУчастниц.TextBox5.Text = ""
   АнкетаУчастниц.ComboBox1.RowSource = "b3:b10"
   Sorevnovaniya.FormirovanieArhivaGimnastok
   Sorevnovaniya.SpisokGimnastok
   АнкетаУчастниц.Show
  End Sub 

  Private Sub CommandButton5_Click()
   ЛичнаяКарточка.TextBox1.Text = Соревнования.TextBox3.Text
   ЛичнаяКарточка.TextBox2.Text = Соревнования.TextBox1.Text
   ЛичнаяКарточка.TextBox3.Text = ""
   ЛичнаяКарточка.TextBox4.Text = ""
   ЛичнаяКарточка.TextBox5.Text = ""
   ЛичнаяКарточка.TextBox6.Text = ""
   
   'без предмета
   ЛичнаяКарточка.TextBox7.Text = 0
   ЛичнаяКарточка.TextBox8.Text = 0
   ЛичнаяКарточка.TextBox9.Text = 0
   ЛичнаяКарточка.TextBox10.Text = 0
   ЛичнаяКарточка.TextBox12.Text = 0
   ЛичнаяКарточка.TextBox13.Text = 0
   ЛичнаяКарточка.TextBox14.Text = 0
   ЛичнаяКарточка.TextBox15.Text = 0
   ЛичнаяКарточка.TextBox17.Text = 0
   ЛичнаяКарточка.TextBox18.Text = 0
   ЛичнаяКарточка.TextBox19.Text = 0
   ЛичнаяКарточка.TextBox20.Text = 0
   ЛичнаяКарточка.TextBox22.Text = 0
   ЛичнаяКарточка.TextBox23.Text = 0
   ЛичнаяКарточка.TextBox11.Text = ""
   ЛичнаяКарточка.TextBox16.Text = ""
   ЛичнаяКарточка.TextBox21.Text = ""
   
   'скакалка
   ЛичнаяКарточка.TextBox24.Text = 0
   ЛичнаяКарточка.TextBox25.Text = 0
   ЛичнаяКарточка.TextBox26.Text = 0
   ЛичнаяКарточка.TextBox27.Text = 0
   ЛичнаяКарточка.TextBox28.Text = 0
   ЛичнаяКарточка.TextBox6123.Text = 0
   ЛичнаяКарточка.TextBox6127.Text = 0
   ЛичнаяКарточка.TextBox6125.Text = 0
   ЛичнаяКарточка.TextBox158.Text = 0
   ЛичнаяКарточка.TextBox6124.Text = 0
   ЛичнаяКарточка.TextBox178.Text = 0
   ЛичнаяКарточка.TextBox6121.Text = 0
   ЛичнаяКарточка.TextBox175.Text = 0
   ЛичнаяКарточка.TextBox176.Text = 0
   ЛичнаяКарточка.TextBox171.Text = ""
   ЛичнаяКарточка.TextBox169.Text = ""
   ЛичнаяКарточка.TextBox170.Text = ""
   ЛичнаяКарточка.TextBox180.Text = ""
   ЛичнаяКарточка.TextBox174.Text = ""
   
   'обруч
   ЛичнаяКарточка.TextBox6130.Text = 0
   ЛичнаяКарточка.TextBox6135.Text = 0
   ЛичнаяКарточка.TextBox6138.Text = 0
   ЛичнаяКарточка.TextBox6140.Text = 0
   ЛичнаяКарточка.TextBox6131.Text = 0
   ЛичнаяКарточка.TextBox6136.Text = 0
   ЛичнаяКарточка.TextBox6139.Text = 0
   ЛичнаяКарточка.TextBox6129.Text = 0
   ЛичнаяКарточка.TextBox6132.Text = 0
   ЛичнаяКарточка.TextBox6137.Text = 0
   ЛичнаяКарточка.TextBox6133.Text = 0
   ЛичнаяКарточка.TextBox6134.Text = 0
   ЛичнаяКарточка.TextBox350.Text = 0
   ЛичнаяКарточка.TextBox351.Text = 0
   ЛичнаяКарточка.TextBox346.Text = ""
   ЛичнаяКарточка.TextBox344.Text = ""
   ЛичнаяКарточка.TextBox345.Text = ""
   ЛичнаяКарточка.TextBox355.Text = ""
   ЛичнаяКарточка.TextBox349.Text = ""
   
   'мяч
   ЛичнаяКарточка.TextBox6142.Text = 0
   ЛичнаяКарточка.TextBox6147.Text = 0
   ЛичнаяКарточка.TextBox6150.Text = 0
   ЛичнаяКарточка.TextBox6152.Text = 0
   ЛичнаяКарточка.TextBox6143.Text = 0
   ЛичнаяКарточка.TextBox6148.Text = 0
   ЛичнаяКарточка.TextBox6151.Text = 0
   ЛичнаяКарточка.TextBox6141.Text = 0
   ЛичнаяКарточка.TextBox6144.Text = 0
   ЛичнаяКарточка.TextBox6149.Text = 0
   ЛичнаяКарточка.TextBox6145.Text = 0
   ЛичнаяКарточка.TextBox6146.Text = 0
   ЛичнаяКарточка.TextBox375.Text = 0
   ЛичнаяКарточка.TextBox376.Text = 0
   ЛичнаяКарточка.TextBox371.Text = ""
   ЛичнаяКарточка.TextBox369.Text = ""
   ЛичнаяКарточка.TextBox370.Text = ""
   ЛичнаяКарточка.TextBox380.Text = ""
   ЛичнаяКарточка.TextBox374.Text = ""
   
   'булавы
   ЛичнаяКарточка.TextBox6154.Text = 0
   ЛичнаяКарточка.TextBox6159.Text = 0
   ЛичнаяКарточка.TextBox6162.Text = 0
   ЛичнаяКарточка.TextBox6164.Text = 0
   ЛичнаяКарточка.TextBox6155.Text = 0
   ЛичнаяКарточка.TextBox6160.Text = 0
   ЛичнаяКарточка.TextBox6163.Text = 0
   ЛичнаяКарточка.TextBox6153.Text = 0
   ЛичнаяКарточка.TextBox6156.Text = 0
   ЛичнаяКарточка.TextBox6161.Text = 0
   ЛичнаяКарточка.TextBox6157.Text = 0
   ЛичнаяКарточка.TextBox6158.Text = 0
   ЛичнаяКарточка.TextBox400.Text = 0
   ЛичнаяКарточка.TextBox401.Text = 0
   ЛичнаяКарточка.TextBox396.Text = ""
   ЛичнаяКарточка.TextBox394.Text = ""
   ЛичнаяКарточка.TextBox395.Text = ""
   ЛичнаяКарточка.TextBox405.Text = ""
   ЛичнаяКарточка.TextBox399.Text = ""
   
   'лента
   ЛичнаяКарточка.TextBox6166.Text = 0
   ЛичнаяКарточка.TextBox6171.Text = 0
   ЛичнаяКарточка.TextBox6174.Text = 0
   ЛичнаяКарточка.TextBox6176.Text = 0
   ЛичнаяКарточка.TextBox6167.Text = 0
   ЛичнаяКарточка.TextBox6172.Text = 0
   ЛичнаяКарточка.TextBox6175.Text = 0
   ЛичнаяКарточка.TextBox6165.Text = 0
   ЛичнаяКарточка.TextBox6168.Text = 0
   ЛичнаяКарточка.TextBox6173.Text = 0
   ЛичнаяКарточка.TextBox6170.Text = 0
   ЛичнаяКарточка.TextBox6169.Text = 0
   ЛичнаяКарточка.TextBox425.Text = 0
   ЛичнаяКарточка.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( _
   "b2:b" & NomerStroki + 1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
   xlSortNormal
   With ActiveWorkbook.Worksheets("АрхивГимнасток ").Sort
   .SetRange Range("b2:f" & NomerStroki + 1)
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
   End With 

   Range("A1:F1").Select
  End Sub 

  Sub NaidennayaGimnastka() 'Найденная гимнастка
   Dim name As String
   
   name = АнкетаУчастниц.ListBox1.Text
   
   Sheets("АрхивГимнасток ").Select
   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))
   
   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
   АнкетаУчастниц.ComboBox1.Text = Cells(i, 5).Value
   АнкетаУчастниц.TextBox5.Text = Cells(i, 6).Value
   End If
   Next i
  End Sub 

  Sub SpisokGimnastok() 'Список гимнасток
   
   Sheets("АрхивГимнасток ").Select
   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))
   ReDim spisok(NomerStroki - 2)
   i = 1
   АнкетаУчастниц.ListBox1.Clear
   For i = 1 To NomerStroki - 2
   spisok(i) = Cells(i + 2, 2).Value
   АнкетаУчастниц.ListBox1.AddItem (spisok(i))
   Next i
   
  End Sub 

  Sub ObnovitDannyePoGimnastke() 'Обновить данные по гимнастке
   Dim name As String
   
   name = АнкетаУчастниц.ListBox1.Text
   
   Sheets("АрхивГимнасток ").Select
   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))
   
   For i = 3 To NomerStroki
   If Cells(i, 2).Value = name Then
   Cells(i, 2).Value = АнкетаУчастниц.TextBox1.Text
   Cells(i, 3).Value = АнкетаУчастниц.TextBox2.Text
   Cells(i, 4).Value = АнкетаУчастниц.TextBox3.Text
   Cells(i, 5).Value = АнкетаУчастниц.ComboBox1.Text
   Cells(i, 6).Value = АнкетаУчастниц.TextBox5.Text
   End If
   Next i
  End Sub 

  Sub FormirovanieProtokolaSorevnovaniy() 'Формирование протокола соревнований 

   Sheets("ПротоколСоревнований(инд)").Select
   
   If Cells(1, 1).Value = "" Then
   
   Range("A3").Select
   ActiveCell.FormulaR1C1 = "№"
   Range("B3").Select
   ActiveCell.FormulaR1C1 = "Фамилия Имя"
   Range("C3").Select
   ActiveCell.FormulaR1C1 = "Область, край"
   Range("D3").Select
   ActiveCell.FormulaR1C1 = "Город"
   Range("E3").Select
   ActiveCell.FormulaR1C1 = "Разряд"
   Range("F3").Select
   ActiveCell.FormulaR1C1 = "Год"
   
   Range("M3").Select
   ActiveCell.FormulaR1C1 = "Сумма" & Chr(10) & "баллов"
   Range("N3").Select
   ActiveCell.FormulaR1C1 = "Место"
   
   Range("A1:N1").Select
   
   Selection.Merge
   ActiveCell.FormulaR1C1 = "ФЕДЕРАЦИЯ ХУДОЖЕСТВЕННОЙ ГИМНАСТИКИ" & Chr(10) & Соревнования.TextBox1.Text
   
   Range("A2:N2").Select
   
   Selection.Merge
   Range("A2:N2").Select
   ActiveCell.FormulaR1C1 = "г. " & Соревнования.TextBox2.Text & " " & Соревнования.TextBox3.Text
   Selection.Font.Italic = True
   Rows("1:1").Select
   Application.WindowState = xlMinimized
   Selection.RowHeight = 80
   Range("A1:N1").Select
   
   
   Range("A1:N1").Select
   Selection.Font.Italic = True
   
   Range("A1:N3").Select
   With Selection.Font
   .name = "Arial Cyr"
   .Size = 14
   .Strikethrough = False
   .Superscript = False
   .Subscript = False
   .OutlineFont = False
   .Shadow = False
   .Underline = xlUnderlineStyleNone
   .ThemeColor = xlThemeColorLight1
   .TintAndShade = 0
   .ThemeFont = xlThemeFontNone
   End With
   Rows("3:3").EntireRow.AutoFit
   With Selection
   .VerticalAlignment = xlCenter
   .Orientation = 0
   .AddIndent = False
   .IndentLevel = 0
   .ShrinkToFit = False
   .ReadingOrder = xlContext
   End With
   With Selection
   .VerticalAlignment = xlBottom
   .Orientation = 0
   .AddIndent = False
   .IndentLevel = 0
   .ShrinkToFit = False
   .ReadingOrder = xlContext
   End With
   With Selection
   .VerticalAlignment = xlCenter
   .Orientation = 0
   .AddIndent = False
   .IndentLevel = 0
   .ShrinkToFit = False
   .ReadingOrder = xlContext
   End With
   With Selection
   .HorizontalAlignment = xlGeneral
   .VerticalAlignment = xlCenter
   .Orientation = 0
   .AddIndent = False
   .IndentLevel = 0
   .ShrinkToFit = False
   .ReadingOrder = xlContext
   End With
   With Selection
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
   .Orientation = 0
   .AddIndent = False
   .IndentLevel = 0
   .ShrinkToFit = False
   .ReadingOrder = xlContext
   End With
   Columns("A:M").EntireColumn.AutoFit
   
   Range("A3:N3").Select
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   With Selection.Borders(xlEdgeLeft)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeTop)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
   End With
   With Selection.Borders(xlEdgeRight)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
   End With
   With Selection.Borders(xlInsideVertical)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
   End With
   With Selection.Borders(xlInsideHorizontal)
   .LineStyle = xlContinuous
   .ColorIndex = 0
   .TintAndShade = 0
   .Weight = xlThin
   End With
   
   Range("A4").Select
   End If
  End Sub 

  Sub SohranenieGimnastkiVProtokol() 'Сохранение гимнастки в протокол 

   Sheets("СписокУчастниц").Select
   NomerStroki = Application.CountA(Sheets("СписокУчастниц").Range("d:d")) + 11
   
   If NomerStroki = 11 Then
   Cells(12, 4).Value = 1
   Else
   Cells(NomerStroki + 1, 4).Value = NomerStroki - 10
   End If
   
   Cells(NomerStroki + 1, 5).Value = АнкетаУчастниц.TextBox1.Text
   Cells(NomerStroki + 1, 6).Value = АнкетаУчастниц.TextBox2.Text
   Cells(NomerStroki + 1, 7).Value = АнкетаУчастниц.TextBox3.Text
   Cells(NomerStroki + 1, 8).Value = АнкетаУчастниц.ComboBox1.Text
   Cells(NomerStroki + 1, 9).Value = АнкетаУчастниц.TextBox5.Text
   
   Range(Cells(12, 4), Cells(NomerStroki + 1, 9)).Select 

  Range("A4").Select
   
  End Sub 

  Sub SpisokUchastnic() 'Список участниц
   
   Sheets("АрхивГимнасток ").Select
   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))
   ReDim spisok(NomerStroki - 2)
   i = 1
   ЛичнаяКарточка.ListBox1.Clear
   For i = 1 To NomerStroki - 2
   spisok(i) = Cells(i + 2, 2).Value
   ЛичнаяКарточка.ListBox1.AddItem (spisok(i))
   Next i
   
  End Sub 

  Sub NaidennayaUchastnica() 'Найденная участница
   Dim name As String
   
   name = ЛичнаяКарточка.ListBox1.Text
   
   Sheets("АрхивГимнасток ").Select
   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))
   
   For i = 3 To NomerStroki
   If Cells(i, 2).Value = name Then
   ЛичнаяКарточка.TextBox3.Text = Cells(i, 3).Value
   ЛичнаяКарточка.TextBox4.Text = Cells(i, 4).Value
   ЛичнаяКарточка.TextBox5.Text = Cells(i, 5).Value
   ЛичнаяКарточка.TextBox6.Text = Cells(i, 6).Value
   End If
   Next i
  End Sub 

  Sub ItogovayaOcenka() 'Итоговая оценка
   Dim BP As Single
   Dim Sk As Single
   Dim Obr As Single
   Dim Myach As Single
   Dim Bul As Single
   Dim Lent As Single
   
   BP = CSng(ЛичнаяКарточка.TextBox23.Text)
   Sk = CSng(ЛичнаяКарточка.TextBox176.Text)
   Obr = CSng(ЛичнаяКарточка.TextBox351.Text)
   Myach = CSng(ЛичнаяКарточка.TextBox376.Text)
   Bul = CSng(ЛичнаяКарточка.TextBox401.Text)
   Lent = CSng(ЛичнаяКарточка.TextBox426.Text)
   
   ЛичнаяКарточка.TextBox432.Text = BP + Sk + Obr + Myach + Bul + Lent
   
  End Sub 

  Sub ProverkaArhivaGimnastokIProtokolaUchastnic() 'Проверка архива гимнасток и протокола участниц 

   Dim k As Integer
   
   Sheets("АрхивГимнасток ").Select
   NomerStroki = Application.CountA(Sheets("АрхивГимнасток ").Range("a:a"))
   
   k = 0
   
   For i = 3 To NomerStroki
   If АнкетаУчастниц.TextBox1.Text = Cells(i, 2).Value And АнкетаУчастниц.TextBox2.Text = Cells(i, 3).Value And АнкетаУчастниц.TextBox3.Text = Cells(i, 4).Value And АнкетаУчастниц.ComboBox1.Text = Cells(i, 5).Value And АнкетаУчастниц.TextBox5.Text = Cells(i, 6).Value Then
   k = k + 1
   End If
   Next i
   
   If k = 0 Then
   SohranenieGimnastok
   End If
   
   Sheets("СписокУчастниц").Select
   NomerStroki = Application.CountA(Sheets("СписокУчастниц").Range("d:d"))
   
   k = 0
   
   For i = 12 To NomerStroki + 12
   If АнкетаУчастниц.TextBox1.Text = Cells(i, 5).Value And АнкетаУчастниц.TextBox2.Text = Cells(i, 6).Value And АнкетаУчастниц.TextBox3.Text = Cells(i, 7).Value And АнкетаУчастниц.ComboBox1.Text = Cells(i, 8).Value And АнкетаУчастниц.TextBox5.Text = Cells(i, 9).Value Then
   k = k + 1
   End If
   Next i
   
   If k = 0 Then
   SohranenieGimnastkiVProtokol
   End If 

   Sheets("АрхивПротоколов(инд)").Select
   NomerStroki = Application.CountA(Sheets("АрхивПротоколов(инд)").Range("a:a"))
   
   k = 0
   
   For i = 3 To NomerStroki Step 4
   If Соревнования.TextBox3.Text = Cells(i, 1).Value And АнкетаУчастниц.TextBox1.Text = Cells(i, 2).Value And АнкетаУчастниц.TextBox2.Text = Cells(i, 3).Value And АнкетаУчастниц.TextBox3.Text = Cells(i, 4).Value And АнкетаУчастниц.ComboBox1.Text = Cells(i, 5).Value And АнкетаУчастниц.TextBox5.Text = Cells(i, 6).Value Then
   k = k + 1
   End If
   Next i
   
и т.д.................


Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть полный текст работы бесплатно


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.