Текущее время

[Greyglass]

Есть такая задача, что-бы на листе была кнопка и по нажатию этой кнопки в ячейку A1 вставлялось текущее время (h:m:s) при повторном нажатии на кнопку всавлялось текущее время в B1, потом в С1 и т.д.

Возможно ли вообще такое? И как реализовать? Спасибо!

[Pavel55]

Точно не знаю, но посмотрите

Private Sub CommandButton1_Click()
Dim iLastCol&
    iLastCol = Cells(1, 256).End(xlToLeft).Column
    If iLastCol = 1 And Cells(1, iLastCol) = "" Then
        Cells(1, iLastCol) = Format(Time, "h:mm:ss")
    Else
        Cells(1, iLastCol + 1) = Format(Time, "h:mm:ss")
    End If
End Sub

[Greyglass]

Спасибо! Работает. А как кнопку вызова макроса встроить в лист Excel?

[Greyglass]

И еще, не сложно будет обьяснить что мы присваиваем этой строкой?

iLastCol = Cells(1, 256).End(xlToLeft).Column

Простите за такие ламерские вопросы.

[Pavel55]

Этой строкой я начиная справа ищу последний заполненый столбец в первом ряду. Т.е. в процессе заполенния сперва будет столбец 1, потом 2, потом 3 и т.д.

А вот так можно найти последний заполненный ряд в первом столбце

iLastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Т.е. если ваша любая таблица заканчивается, например, в 10 строке, то переменная iLastRow будет присвоенно значение 10. Так мы находим границы заполненных ячеек