Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

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

Автор higet, 20.04.2016, 12:07

« назад - далее »

higet

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

kuklp1

В модуль листа.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
    If Target.Offset(, 6) = "" And targe <> "" Then Target.Offset(, 6) = Round(Rnd, 0)
End Sub
Я, как всегда, чертовски адекватен... Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771