Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

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

Автор 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