excelでアクティブセルの隣のセルを見つける方法

Question

excelでログファイルを作成したいと思います。

ボタンインタイムクリックでアクティブセルにインタイムで挿入するマクロを作成しました。同様にButtonOutTime上のアクティブセルでタイムアウトクリック...

今私は、アクティブセルの前のセル

と にButtonInTimeクリックで今日の日付を挿入する総ログの時間を計算&はに挿入しますOutTimeの次のアクティブセル。

どうすればいいですか？ 誰かが私を助けることができますか？

私はいくつかのハードコードがこの中にあります..私はそれを達成し

Answer 1

....解決策を見つけることを試みたが、適切なものを得るdidntの...事前に

おかげで.. ..

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