Подскажите, пожалуйста..
Вводные данные: есть таблица условно на 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 |
Проблема в том, что он ставит Выходной даже в заполненные ячейки. Подскажите, пожалуйста, в чём может быть ошибка?
В загруженном файле за выполнение отвечает "Кнопка".