Простая рандомизация на две группы

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

Простая рандомизация на две группы (Формулы/Formulas)

higet

Дата: Среда, 20.04.2016, 11:09 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 15

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

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

Excel 2013

Помогите сделать такую вещь пожалуйста. Если например A1 пустая, то ничего не делать. Если В A1 что-то появляется, то поставить в G1 случайным образом 0 или 1. Однажды записанная G1 меняться более при обновлении документа не должна. И все это растянуть для всех ячеек Аn Gn. Получится простейшая рандомизация на две группы, но я осилить не могу (

Ответить

_Boroda_

Дата: Среда, 20.04.2016, 11:27 | Сообщение № 2

Группа: Админы

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

Сообщений: 16881

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Можно в модуль листа написать вот так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column > 1 Then Exit Sub
    If Target.Offset(, 1) <> "" Then Exit Sub
    Target.Offset(, 1) = Int(Rnd() + 0.5)
End Sub

[/vba]

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

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

Ответить

higet

Дата: Среда, 20.04.2016, 12:18 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 15

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

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

Excel 2013

О! Очень здорово. А как поменять колонку В например на H?

Ответить

_Boroda_

Дата: Среда, 20.04.2016, 12:22 | Сообщение № 4

Группа: Админы

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

Сообщений: 16881

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

Offset(, 1)

[/vba]1 - количество столбцов вправо от столбца А
Сам столбец А задается здесь (1- это его номер, он первый)
[vba]

Код

If Target.Column > 1 Then Exit Sub

[/vba]Только > перепишите на <>, тогда можно будет задать не только первый столбец, а, например, третий
[vba]

Код

If Target.Column <> 3 Then Exit Sub

[/vba]

Ответить

higet

Дата: Среда, 20.04.2016, 19:20 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 15

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

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

Excel 2013

Эх, так хорошо это локально работает. А в excel online оказывается макросы не работают( Хотел сделать онлайн форму, в которую можно забивать инфо по кейсам, а они бы рандомизировались..

Ответить

higet

Дата: Среда, 20.04.2016, 19:25 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 15

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

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

Excel 2013

Может в гуглотаблицах такое же есть? Там вроде скрипты работают.
[moder]Для вопросов по гугл-таблицам свой раздел форума есть[/moder]

Сообщение отредактировал Manyasha - Среда, 20.04.2016, 21:35

Ответить

Простая рандомизация на две группы (Формулы/Formulas)

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