Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 11:30:30

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по работе в Google-таблицах
| | |-+  Генерация случайных чисел без повторений
Страниц: [1]   Вниз
Печать
Автор Тема: Генерация случайных чисел без повторений  (Прочитано 12073 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Chertyozhnik
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 5


Просмотр профиля E-mail
« : 04.12.2016, 20:04:49 »

Добрый день.

Прошу помощи в написании макроса в гугл таблице. В теме по ссылке http://www.excel-vba.ru/forum/index.php?topic=3990.msg21587#msg21587 есть данные о макросе, которые отлично работает в обычном экселе. Может кто-то сможет создать то же самое, только для Гуглтаблиц? Дело в том, что сам абсолютно не разбираюсь в этом... Но очень-очень надо....

Код: (vb)
Function RndUnicArr(n&, Optional m& = 0)  
'функция генерации случайных уникальных целых чисел от 1 до n 
'возвращает горизонтальный массив из m элементов 
    Dim i&, j&, a&() 
    If n < 1 Or n > 10000000 Then Exit Function 
    If m > n Or m < 1 Then m = n 
    ReDim a&(1 To n) 
    Randomize 
    For i = 1 To n 
        j = Int(Rnd * i + 1) 
        If i <> j Then a(i) = a(j) 
        a(j) = i 
    Next i 
    ReDim Preserve a&(1 To m) 
    RndUnicArr = a 
End Function

Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru