Случайный выбор времени из ограниченного диапазона

[Павел-812]

Ну вот, форум тут дружелюбный, народ откликается. Наверняка, и этот эта задачка для вас пустяк. Надеюсь, что поможете.

Суть такова. Надо, чтобы каждый раз при кликаньи мышкой в ячейку, имеющую формат времени, случайным образом вписывалось время в диапазоне от 9 минут до 15 минут. Т.е. вот список всех возможных значений:
0:09
0:10
0:11
0:12
0:13
0:14
0:15

Т. е. сгенерировалось время 0:12, например. Кликаем повторно по ячейке - генерируется дальше одно из возможных значений.

[SAS888]

Не совсем ясно, в любую ячейку листа, имеющую формат времени? или в каком-то конкретном диапазоне? или в конкретной ячейке?
Пусть рабочий диапазон ячеек "A1:A10". И пусть ячейки имеют требуемый формат времени. Тогда можно, например, так: вставьте в модуль нужного листа код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [A1:A10]) Is Nothing Then Target = TimeSerial(0, Int(7 * Rnd + 9), 0)
End Sub

Если, например, только для ячейки "A1", то так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = [A1].Address Then Target = TimeSerial(0, Int(7 * Rnd + 9), 0)
End Sub