Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Рандомный выбор теста. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Рандомный выбор теста. (Макросы/Sub)
Рандомный выбор теста.
zhuravel Дата: Воскресенье, 28.02.2016, 12:56 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Возможно ли сделать рандомный (случайный) выбор теста?
Т.е. при нажатии на кнопку " Билет " появлялся случайный.
Билетов будет 10.
К сообщению приложен файл: Test_2.2.rar(28Kb)
 
Ответить
СообщениеДобрый день.
Возможно ли сделать рандомный (случайный) выбор теста?
Т.е. при нажатии на кнопку " Билет " появлялся случайный.
Билетов будет 10.

Автор - zhuravel
Дата добавления - 28.02.2016 в 12:56
Апострофф Дата: Воскресенье, 28.02.2016, 13:50 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 26 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
msgbox int(rnd*10+1) & "-й билет"
[/vba] - без проверки на повторы.
 
Ответить
Сообщение[vba]
Код
msgbox int(rnd*10+1) & "-й билет"
[/vba] - без проверки на повторы.

Автор - Апострофф
Дата добавления - 28.02.2016 в 13:50
RAN Дата: Воскресенье, 28.02.2016, 15:20 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4277
Репутация: 829 ±
Замечаний: 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]
К сообщению приложен файл: Test_2.2.xlsm(44Kb)


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 28.02.2016, 15:25
 
Ответить
СообщениеМощный файл.
Выкинул лишнее. :)

По теме
[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]

Автор - RAN
Дата добавления - 28.02.2016 в 15:20
pechkin Дата: Воскресенье, 28.02.2016, 16:22 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 206
Репутация: 27 ±
Замечаний: 0% ±

2003
Здравствуйте! Тоже попробовал
К сообщению приложен файл: Test_21.21.rar(40Kb)
 
Ответить
СообщениеЗдравствуйте! Тоже попробовал

Автор - pechkin
Дата добавления - 28.02.2016 в 16:22
zhuravel Дата: Воскресенье, 28.02.2016, 16:24 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо за помощь.
Сильно Вы файл, точнее код почистили.
Работает как необходимо.
Это для того, чтобы тестируемые не отвечали на один и тот же билет.
 
Ответить
СообщениеСпасибо за помощь.
Сильно Вы файл, точнее код почистили.
Работает как необходимо.
Это для того, чтобы тестируемые не отвечали на один и тот же билет.

Автор - zhuravel
Дата добавления - 28.02.2016 в 16:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Рандомный выбор теста. (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!