如何在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