Найти в Дзене
Игры в Excel
55 подписчиков

Как быстро сделать Географическую Викторину «Гео-Тык». Выпуск 2/2 (сори, 2/3)

3
1 мин
Мы остановились в прошлый раз на том, что все тайлы заняли свои места, получили свои уникальные имена и один и тот же макрос Клик. Сперва он имеет урезанные функции, потому что нам сначала необходимо заполнить справочные листы - фрагменты каких провинций попадают на каждый из тайлов и какие "адреса" занимает каждая провинция. Вставляем два новых листа. у меня есть программка Pixie. Кажется она общедоступная. Хороша тем, что показывает характеристики цвета пикселя под курсором. На картинке листа "Игра" не видно, но курсор находится в столичной области Франции - Иль-Де-Франс. Прямоугольничек Pixie в правом верхнем углу. А в окнах, расположенных ниже можно увидеть как я выбираю более-менее подходящий цвет и корректирую его до заданных величин В листе "Тайлы" у нас есть три кнопки с макросами. Две верхние нужны для того чтобы дописывать код цвета в ячейки второй строки, или убирать его, чтобы позднее написать правильный. А третья цветная стрелка нужна вот для чего: мы нажимаем на игровом

Мы остановились в прошлый раз на том, что все тайлы заняли свои места, получили свои уникальные имена и один и тот же макрос Клик. Сперва он имеет урезанные функции, потому что нам сначала необходимо заполнить справочные листы - фрагменты каких провинций попадают на каждый из тайлов и какие "адреса" занимает каждая провинция. Вставляем два новых листа.

В игровом листе мы будем нажимать на каждый из тайлов. Макрос Клик будет заносить имя нажатого тайла в именованную ячейку. Это нам понадобится для следующих листов. Листайте вправо >>
В игровом листе мы будем нажимать на каждый из тайлов. Макрос Клик будет заносить имя нажатого тайла в именованную ячейку. Это нам понадобится для следующих листов. Листайте вправо >>
Лист "Тайлы" В первую строку мы записываем названия провинций и окрашиваем их в тот же цвет, каким они обозначены на карте. А во второй строке получается четырёхзначный код каждой области, который состоит из названия столбца (если буква только одна, дополняем символом _" и кода цвета в который он окрашен.
Лист "Тайлы" В первую строку мы записываем названия провинций и окрашиваем их в тот же цвет, каким они обозначены на карте. А во второй строке получается четырёхзначный код каждой области, который состоит из названия столбца (если буква только одна, дополняем символом _" и кода цвета в который он окрашен.
Лист "Обл". Компактная, транспонированная (повернутая на 90 градусов) версия предыдущего листа. Две бледные кнопочки справа окрашивают строку в соответствии с двумя последними цифрами кода региона и проставляют имена тайлов, на которых она располагается. (если потребуете - напишу и эти макросы, но они не сложные). Два правые столбца служат для перемешивания и фиксирования последовательности заданий игрокам
Лист "Обл". Компактная, транспонированная (повернутая на 90 градусов) версия предыдущего листа. Две бледные кнопочки справа окрашивают строку в соответствии с двумя последними цифрами кода региона и проставляют имена тайлов, на которых она располагается. (если потребуете - напишу и эти макросы, но они не сложные). Два правые столбца служат для перемешивания и фиксирования последовательности заданий игрокам

у меня есть программка Pixie. Кажется она общедоступная. Хороша тем, что показывает характеристики цвета пикселя под курсором. На картинке листа "Игра" не видно, но курсор находится в столичной области Франции - Иль-Де-Франс. Прямоугольничек Pixie в правом верхнем углу. А в окнах, расположенных ниже можно увидеть как я выбираю более-менее подходящий цвет и корректирую его до заданных величин

В листе "Тайлы" у нас есть три кнопки с макросами. Две верхние нужны для того чтобы дописывать код цвета в ячейки второй строки, или убирать его, чтобы позднее написать правильный. А третья цветная стрелка нужна вот для чего: мы нажимаем на игровом поле тайл, который содержит фрагмент нужной провинции (если она не помещается на тайл полностью). Это имя, как я говорила раньше запишется в именованную ячейку "тык" в служебном листе. Если мы выделим код нужной области во второй строке и нажмем на малиновую стрелку, макрос проставит этот код области напротив имени нажатого тайла.

Sub Дописчик() 'круглая бесцветная кнопочка. Самая верхняя левая - дописывает код цвета к адресу (буквенную часть я вписывала вручную)

  • kolo = ActiveCell.Interior.ColorIndex
  • nama = ActiveCell.Value
  • nama = Left(nama, 2) & Format(kolo, "00")
  • ActiveCell.Value = nama
  • End Sub

Sub МинусЦвет() 'брусочек пониже - убирает код цвета

  • ActiveCell.Value = Left(ActiveCell.Value, 2)
  • ActiveCell.Offset(0, 1).Range("A1").Select
  • End Sub

Sub Спуск() 'малиновая стрелка

  • tc = ActiveCell.Column
  • tr = Int(Range("поплавок").Value) 'в ячейке поплавок через =поискпоз(...) вычислено в какой строке находится имя нажатого тайла
  • Cells(tr, tc).Value = Cells(3, tc).Value
  • kolo = Cells(3, tc).Interior.ColorIndex
  • Cells(tr, tc).Interior.ColorIndex = kolo
  • Cells(3, tc).Select
  • End Sub

Оказалось, что делать игру гораздо быстрее, чем описывать её изготовление, поэтому я завершу описание процесса в следующем (последнем) выпуске.

1