Автор: Тенгиз Куправа www.kuprava.ru

Программа розыгрыша призов ЛОТО на VBA Excel - Loto

Часто в компаниях, среди клиентов и покупателей, проводят розыгрыши призов. Обычно участники зарабывают некоторое количестиво баллов, получают шары (вес), которые должны участвовать в розыгрыше.

Розыгрыш можно провести как в настоящем барабане типа Спортлото, так и с помощью программы, отображая процесс розыгрыша на экране. Здесь приведено два варианта программы розыгрыша призов с использованием Excel.

Игровое поле первой программы (лист Game) выглядит так - на нём случайным образом разбросаны номера шаров участников, нажатием кн. Начальное заполнение. Кн. Старт розыгрыша приводит к случайному выбору одного победителя. Исходные данные участников - фамилии, веса - размещены на листе Loto.


Кнопкам Начальное заполнение и Старт розыгрыша назначены макросы, точнее программы на языке VBA (Visual Basic for Application). Скачайте программу loto1.xls. Запустите, не отключая макросы, и попробуйте с ней поработать. Просмотреть тексты программ на языке VBA можно через меню Сервис -> Макрос -> Редактор Visual Basic или Сервис -> Макрос -> Макросы -> Изменить. Для доступа к ячейкам и свойствам таблицы используется объект Cells(Row, Col). Например, команда Cells(5, 7).Value = 13 запишет в ячейку [5,7] число 13 и т.д. Количество участников и размер игрового поля задаются в виде констант.

Игровое поле второй программы (лист Game) выглядит так. Вначале следует выполнить 'Начальное заполнение'. Затем в поле 'Разыгрываются призы' следует последовательно записать число 3, затем 5, 10 и 50. Для каждого числа следует нажать кн. 'Старт розыгрыша'. Поля А Б В Г по мере розыгрыша будут заполняться фамилиями и номерами шаров победителей. На листе Loto описаны правила розыгрыша призов, разыгрываемые призы, ФИО участников, их баллы и пр.


Скачайте программу loto2.xls. Запустите, не отключая макросы, и попробуйте с ней поработать.