Страницы: 1
RSS
Случайным образом в пустые ячейки поставить определённое количество выходных
 

Подскажите, пожалуйста..
Вводные данные: есть таблица условно на 100   фамилий (первый столбец), затем идут 7 столбцов по дням недели.   Некоторые из ячеек заполнены буквами "о" и "Работа".Задача: случайным   образом в пустые ячейки поставить определённое количество выходных
Решение: пишу код VBA:

Код
Sub Выходные()k = Cells(1, 1)  
i = 0
Do While (i < k)
randomize
    If Cells(3 + Rnd * 43, 3).Value = "" Then Cells(3 + Rnd * 43, 3).Value = "Выходной"
i = i + 1
Loop
End Sub

(1,1) - ячейка, в которой отмечается нужное количество выходных

Проблема в том, что он ставит Выходной даже в заполненные ячейки. Подскажите, пожалуйста, в чём может быть ошибка?
В загруженном файле за выполнение отвечает "Кнопка".
 
ошибка в том, что проверяется одна случайная ячейка, а заполняется другая случайная ячейка!
Неужелии не понятно! что надо работать с одной ячейкой?
Код
t=3 + Rnd * 43
If Cells(t, 3).Value = "" Then Cells(t, 3).Value = "Выходной"
Изменено: Александр Моторин - 15.06.2018 13:35:05
 
Спасибо большое за помощь! Моя ошибка.. я думал, что random в одном цикле один и тот же, а потом уже меняется с помощью randomize
Страницы: 1
Наверх