Спасибо. Попробую
Форум на данный момент в стадии обновления. Если у Вас возникли проблемы со входом в свою учетную запись - просьба писать на email: info@excel-vba.ru
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Просмотр сообщенийЦитата: MCH от 31.07.2015, 22:59:23Function 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
Цитата: The_Prist от 04.12.2016, 17:39:21А возможно это же создать в гугле? Есть умельцы? )) Сказав, что я в этом плохо разбираюсь, я имел ввиду, что я вообще это вижу в первый раз...
Этот никак не внедрить, т.к. в Google-таблицах совершенно другой язык программирования.
Цитата: MCH от 31.07.2015, 22:59:23Здравствуйте, Михаил. Очень плохо разбираюсь в макросах... Подскажите, как корректно эту функцию создать в Гуглтаблицах? Выдает очень много ошибок гугл (пробовал просто скопировать и вставить в редактор скриптов. Там это видимо так называется)
Function RndUnicArr(n&, Optional m& = 0)