Как найти ячейку рядом с активной ячейкой в ​​Excel

Question

Я хочу создать файл журнала в Excel.

Я создал макрос, который будет вставлять вовремя в активную ячейку по нажатию ButtonInTime. Аналогичным образом время в активной ячейке при нажатии кнопки ButtonOutTime...

Теперь я хочу вставить сегодняшнюю дату по нажатию ButtonInTime в предыдущей ячейке активной ячейки.

и рассчитать общее количество часов в журнале и вставить его в следующую активную ячейку OutTime.

Как я могу достичь этого? Может кто-нибудь мне помочь???

Я пытался найти решение, но не нашел подходящего...

Заранее спасибо....

Answer 1

Я добился этого.. В этом есть несколько жестких кодов....

Sub ButtonInTime_Click()
Range("A1").End(xlDown).Select

activecell.Offset(1, 0).Select
activecell.Value = Date
activecell.Offset(0, 1).Value = Time()
activecell.Offset(0, 3).Interior.Color = RGB(255, 0, 0)
activecell.Offset(0, 3).Value = "Log Not Closed!!!"


Range("A" & activecell.Row & ":E" & activecell.Row).Borders(xlEdgeTop).LineStyle = xlContinuous
Range("A" & activecell.Row & ":E" & activecell.Row).Borders(xlEdgeRight).LineStyle = xlContinuous
Range("A" & activecell.Row & ":E" & activecell.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("A" & activecell.Row & ":E" & activecell.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous

Range("B" & activecell.Row).Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C" & activecell.Row).Borders(xlEdgeRight).LineStyle = xlContinuous
Range("D" & activecell.Row).Borders(xlEdgeRight).LineStyle = xlContinuous
Range("E" & activecell.Row).Borders(xlEdgeRight).LineStyle = xlContinuous

End Sub


Sub ButtonOutTime_Click()
Range("C1").End(xlDown).Select
activecell.Offset(1, 0).Select

activecell.Value = Time()
activecell.Offset(0, 1).Value = activecell.Value - activecell.Offset(0, -1).Value
activecell.Offset(0, 1).Interior.Color = RGB(255, 255, 255)


End Sub