Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как макросом последовательно заполнить ячейки временем?, Как сделать макрос для регистрации время в определённом столбце при нажатии кнопки в следующую пустую ячейку.
 
#1
04.09.2018 15:06:37
Всем, добрый день!
Подскажите, пожалуйста, как мне сделать кнопку, чтобы при нажатии её данные фактического время вносились в нужный столбец, последовательно в пустую ячейку при каждом нажатии.
Пока у меня получилось только так:

Sub Push2()
ActiveCell.Value = TimeValue(Now)
ActiveCell.Offset(1, 0).Activate
Dim NextRow As Long
NextRow = Range("A65536").End(xlUp).Row + 1
Cells(NextRow, 1).Select
Selection.Copy
End Sub

Заранее благодарю за помощь!
 
 
 
#2
04.09.2018 15:11:55
CHITATILLO, оформите код тегами <...>
измените название темы согласно правил
Мое название: последовательное заполнение ячеек датами
Код
Private k&

public sub iAdd()
   k&=k&+1
   cells(k&,1)=vba.date
end sub
Изменено: ivanok_v2 - 04.09.2018 15:22:23
 
 
 
#3
04.09.2018 15:17:02
Название темы поменял.
CHITATILLO, код следует оформлять соответствующим тегом. Ищите такую кнопку (см. скрин) и исправьте своё сообщение.

ivanok_v2,  требуется только время, а у Вас Now: дата + время.
 
 
 
#4
04.09.2018 15:25:01
CHITATILLO, зачем столько писать, если всё делается в одну строчку?
Код
Sub Push2()

Cells(Cells(Rows.Count,1).End(xlUp).Row+1,1).Value=Time

End Sub
Изменено: StoTisteg - 04.09.2018 15:25:08
 
 
 
#5
04.09.2018 15:44:18
StoTisteg, Спасибо Вам огромное!!! всё сразу заработало)))
 
 
 
Страницы: 1
Наверх