Каков ваш ожидаемый результат?Текущее время и дата?
Если это так, вы можете просто использовать
Now()
. Это возвращает дд.мм.гггг чч: мм из системной даты / времени.
Включите его в другое утверждение, например,
Dim rng, rng2 as range
Set rng = ActiveSheet.Range("A1")
Set rng2 = ActiveSheet.Range("A2")
rng = Now()
Чтобы получить часы здесь, простой вариант может быть
rng2 = Right(rng, 5)
Конечно, есть и другие способы безпри записи на лист попробуйте сохранить в переменной, например.Однако это иллюстрирует точку. Обрабатывая дату в виде строки, вы можете редактировать ее с помощью левой / правой функций и т. Д.