Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Открыть случайный лист
 
Здравствуйте!
Делаю программу с тестами. Собрал солянку макросов и формул с разных источников. В принципе все работает. Но не нравится как реализовал открытие случайного листа, так как сейчас сделал на 10 билетов, а планируется от 30-ти, и в случае переименования листа или сдвига ячеек надо будет переписывать макрос.
Подскажите как лучше сделать.
(скрытие ленты, листов и все такое я убрал, чтобы не мешало)
Excel 2013
 
Код
Sub БилетСлуч()
  нижн_гран = 1
  верх_гран = 6
    Randomize
    ThisWorkbook.Worksheets("Б" & Int((верх_гран - нижн_гран + 1) * Rnd + нижн_гран)).Activate
End Sub
 
Спасибо. Работает.
Изменено: Hamlook - 5 Дек 2018 09:17:44
Страницы: 1
Читают тему (гостей: 1)
Наверх