Функция, которая возвращает случайный аргумент из списка

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Функция, которая возвращает случайный аргумент из списка (Макросы/Sub)

Junk

Дата: Воскресенье, 10.01.2016, 13:27 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Здравствуйте, напишите кто-нибудь функцию RANDFROM(arg1;arg2;...;argN) которая возвращает случайный аргумент из списка или подскажите вариант с встроенными функциями
Пример: =RANDFROM(2,4,5,12) возвращает 5
[moder]А с какого перепугу тема в разделе "Готовые решения"?
Давайте так - я тему перенесу, а Вы прочитайте Правила форума и выполните п.3 в части приложения примера. Нужно видеть, откуда берутся аргументы

Сообщение отредактировал Junk - Воскресенье, 10.01.2016, 14:50

Ответить

Junk

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

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

У меня нет примера, это просьба написать функцию на языке которым я не владею. В EXCEL есть встроенная функция RANDBETWEEN(start,finish) она подходит для частного случая, например RANDFROM(4,5,6,7,8,9) == RANDBETWEEN(4,9)

ПРИМЕР РЕШЕНИЯ НА JavaScript:

function randfrom() {
return arguments[Math.floor(Math.random()*arguments.length)]
}
randfrom(1,4,5,8) // возвратит, например, 4
[moder]Тема, кстати, тоже не по правилам названа. Переименуйте во что-то более конкретное.[/moder]

Сообщение отредактировал Manyasha - Воскресенье, 10.01.2016, 13:59

Ответить

Manyasha

Дата: Воскресенье, 10.01.2016, 14:22 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Junk, плохо переименовали...

Цитата

давайте теме название, отражающее суть Вашей проблемы

Используйте фразу из тела поста

Цитата Junk, 10.01.2016 в 13:55, в сообщении № 2

функцию... которая возвращает случайный аргумент из списка

ЯД: 410013299366744 WM: R193491431804

Ответить

Manyasha

Дата: Воскресенье, 10.01.2016, 14:54 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Junk, udf:
[vba]

Код

Function randfrom(args)
    Dim ind As Integer
    Randomize
    ind = Int((UBound(args) + 1) * Rnd)
    randfrom = args(ind)
End Function
Sub primer()
    Debug.Print randfrom(Array(1, 9, 5, 4, 2))
End Sub

[/vba]
можно формулой, как-то так

Код

=ИНДЕКС(A1:A6;СЛУЧМЕЖДУ(1;6))

К сообщению приложен файл: randfrom.xlsm (14.3 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Воскресенье, 10.01.2016, 15:03 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

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

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

2003; 2007; 2010; 2013 RUS

Для произвольно расположенных аргументов формулой можно так

Код

=ИНДЕКС((A1;A5;D4;C7;F11);;;СЛУЧМЕЖДУ(1;СЧЁТЗ(A1;A5;D4;C7;F11)))

я потому и написал

Цитата Junk, 10.01.2016 в 13:27, в сообщении № 1

Нужно видеть, откуда берутся аргументы

К сообщению приложен файл: 68179871.xlsx (8.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Udik

Дата: Воскресенье, 10.01.2016, 15:03 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

нечто такое
[vba]

Код

Public Sub test()
Dim arrSet(1 To 5) As Integer
Dim i As Integer

For i = 1 To 5
arrSet(i) = i
Next i
Randomize
i = arrSet(Int((5 * Rnd) + 1))
Debug.Print i 'отладка выводится в окошко Immediate
End Sub

[/vba]

К сообщению приложен файл: 6387650.xlsm (17.0 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

Nic70y

Дата: Воскресенье, 10.01.2016, 15:11 | Сообщение № 7

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

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

Сообщений: 8757

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

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

Excel 2010

Цитата Junk, 10.01.2016 в 13:27, в сообщении № 1

откуда берутся аргументы

я подумал, что отсюда:

Цитата Junk, 10.01.2016 в 13:27, в сообщении № 1

FROM

Код

=ИНДЕКС({4;5;6;7;8;9};СЛУЧМЕЖДУ(1;6))

ну может ошибаюсь конечно

ЮMoney 41001841029809

Ответить

Junk

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

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Manyasha, спасибо, но когда я пишу в excel =randfrom(1;2;3) или =randfrom(array(1,2,3)) выскакивает ошибка, простите, за глупые на ваш взгляд, вопросы, но что мне вписать в ячейку чтобы пользоваться вашей функцией

P.S. Вариант с индексом вполне меня устраивает, но данная функция была бы пределом совершенства )

Ответить

Junk

Дата: Воскресенье, 10.01.2016, 15:26 | Сообщение № 9

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

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Nic70y, вот то что я хотел

Код

=INDEX({4;5;6;7;8;9};RANDBETWEEN(1;6))

Спасибо всем что помогли мне

Ответить

Manyasha

Дата: Воскресенье, 10.01.2016, 15:44 | Сообщение № 10

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Цитата Junk, 10.01.2016 в 15:20, в сообщении № 8

что мне вписать в ячейку

Код

=randfrom({4;5;6;7;8;9})

Саму функцию поправила
[vba]

Код

Function randfrom(args)
    Dim ind As Integer
    Randomize
    ind = Int((UBound(args) - LBound(args) + 1) * Rnd + LBound(args))
    randfrom = args(ind)
End Function

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Воскресенье, 10.01.2016, 15:48 | Сообщение № 11

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

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

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

2003; 2007; 2010; 2013 RUS

Такой вариант
[vba]

Код

Function Proizvol(ParamArray Mas())
Application.Volatile
Proizvol = Mas(Fix((UBound(Mas) + 1) * Rnd))
End Function

[/vba]

К сообщению приложен файл: 68179871_1.xlsm (12.9 Kb)

Ответить

Gustav

Дата: Воскресенье, 10.01.2016, 16:53 | Сообщение № 12

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

Ранг: Участник клуба

Сообщений: 2730

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

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

начинал с Excel 4.0, видел 2.1

А ещё можно прямо Жаву ввинтить в макрос:
[vba]

Код

Function randfrom(ParamArray Mas())
    With CreateObject("ScriptControl")
        .Language = "JScript"
        .AddCode "function randfrom() {return arguments[Math.floor(Math.random()*arguments.length)]} " & _
                 "function x() {return randfrom(" & Join(Mas, ",") & ")}"
        randfrom = .Run("x")
    End With
End Function

[/vba]
Вызов в коде:
[vba]

Код

randfrom(1,4,5,8)

[/vba]
Вызов в ячейке:

Код

=randfrom(1;4;5;8)

или

Код

=randfrom(A1;B1;C1;D1)

МОИ: Ник, Tip box: 41001663842605

Ответить

МВТ

Дата: Воскресенье, 10.01.2016, 17:05 | Сообщение № 13

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

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

Сообщений: 476

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

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

Excel 2007

Мне кажется, удобнее диапазоном передавать
UPD вариант для одно- и двумерных диапазонов
[vba]

Код

Function tt(Rng As Range) As Double
    Dim arr: arr = Rng.Value
    Dim i As Long, j As Long
    i = Application.WorksheetFunction.RandBetween(1, UBound(arr))
    j = Application.WorksheetFunction.RandBetween(1, UBound(arr, 2))
    tt = arr(i, j)
End Function

[/vba]

Сообщение отредактировал МВТ - Воскресенье, 10.01.2016, 17:23

Ответить

Страница 1 из 1
1