Рандомный выбор теста.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Рандомный выбор теста. (Макросы/Sub)

zhuravel

Дата: Воскресенье, 28.02.2016, 12:56 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Возможно ли сделать рандомный (случайный) выбор теста?
Т.е. при нажатии на кнопку " Билет " появлялся случайный.
Билетов будет 10.

К сообщению приложен файл: Test_2.2.rar (27.6 Kb)

Ответить

Апострофф

Дата: Воскресенье, 28.02.2016, 13:50 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 448

Репутация: 124 ±

Замечаний: 0% ±

Excel 1997

[vba]

Код

msgbox int(rnd*10+1) & "-й билет"

[/vba] - без проверки на повторы.

Ответить

RAN

Дата: Воскресенье, 28.02.2016, 15:20 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мощный файл.
Выкинул лишнее.

По теме
[vba]

Код

Sub Билет()
    Dim i&
    On Error Resume Next
    Randomize
    Do
        i = Int(Sheets.Count * Rnd) + 1
        If Sheets(i).Name Like "Билет*" Then
            UserForm1.Show
            Exit Do
        End If
        DoEvents
    Loop
End Sub

[/vba]