РЕКОМЕНДУЕМ!

Вышла в свет книга "Как выиграть миллион" (Системы игры в числовые лотереи типа "M из N" / Суперлото, Мегалот, Спортлото, Олимпион, Евромиллион, Кено и т.п./). Книгу можно заказать наложенным платежом через интернет. Подробнее...

ЧАСТЬ 7

СТАТИСТИКА ПАР

Перейдем к статистике пар. Тут уже есть некоторые элементы программирования. Потому, если у вас нет опыта в программировании просто повторяйте все описанные действия. Ничего сложного нет, думаю более-менее опытные пользователи даже не читают этот раздел

1) Откроем лист 1 и переименуем его в "pary"
2) В строку 1 в ячейки В1,В2,В3……… внесем номера шаров
3) В столбец А в ячейки А2, А3, А4 …….. так же внесем номера шаров
4) Необходимо включить меню Visual Basic и меню Формы
Рис. 7.1

Рис. 7.2

5) Далее пишем программу. Создаем и сразу закрываем макрос.
Рис. 7.3

6) Открываем визуал бейсик
Рис. 7.4

7) В редакторе открываем Модуль1
Рис. 7.5

Рис. 7.6

8) Удаляем ВСЕ строки листинга
9) Вставляем на место удаленных строк следующий код. Просто копируя его отсюда.

' **************************************************************
' **************************************************************
'модуль сбора статистики выпадения пар для формулы 6 из N **********
' **************************************************************
' **************************************************************
Sub Тест_пар()
Sheets("pary").Range("B2:AX50").ClearContents
For i = Sheets("karta").Range("b1") To Sheets("karta").Range("a1")
For ii = 1 To 6
For iii = 1 To 6
sd1 = Sheets("karta").Range("a1").Offset(i, ii + 3)
sd2 = Sheets("karta").Range("a1").Offset(i, iii + 3)
Sheets("pary").Range("a1").Offset(sd1, sd2) = 1 + Sheets("pary").Range("a1").Offset(sd1, sd2)
Next iii
Next ii
Next i
End Sub

10) в ячейку А1 листа "pary" вставляем формулу определения максимального количества шаров  =МАКС(B1:AX1)
 или просто заносим туда данные того, сколько шаров в нашей лотерее.
11) в ячейку А1 листа "karta" вставляем формулу определения максимального количества шаров  =МАКС(A2:A5000)
или просто заносим туда данные того, сколько тиражей прошло в нашей лотерее
12) в ячейку A2 листа "karta" вносим данные, с какого тиража надо начинать сбор статистики

Все!
 
Нажимаем зеленый треугольничек и выбираем макрос Тест_пар() Выполнить.
Рис. 7.7

Рис. 7.8

Можно вывести в любом месте книги кнопочку и назначить ей этот макрос. Но это попозже.
Рис. 7.9

Далее...