Задать последовательную цепочку чисел

Пользователь

Сообщений: 8 Регистрация: 14.11.2023

11.12.2023 12:12:50

Добрый день, форумчане! Пишу небольшую игру "Русская рулетка" и возникла небольшая сложность, необходимо чтобы каждый игрок по очереди получал "пулю", но у меня хватает мозгов только на случмежду(1;Счетз()). Есть ли какая то возможность чтобы выстрелы были по игроку 1, 2, 3, 4 и в случае когда выжили все по новой 1 2 3 4

Прикрепленные файлы

Рулетка.xlsm (18.64 КБ)

bigorq

Пользователь

Сообщений: 1496 Регистрация: 26.04.2018

11.12.2023 13:50:18

Вдруг угадал:
в H9 формула

Код
="Игрок "&ИНДЕКС($K$2:$K$6;H1)&" "&ЕСЛИ(H11=1;"УБИТ";"Выжил")

макрос1 дописать

Код
Option Explicit Sub Макрос1() ' ' Макрос1 Макрос ' ' Selection.ClearContents if [h1]=4 then [h1]=1 else [h1]=[h1]+1 end if End Sub

JIOJII Пользователь Сообщений: 8 Регистрация: 14.11.2023	#3 11.12.2023 14:00:59 Спасибо, основу взял у тебя, немного по своему написал и помогло!