记下点击时间的Excel按钮

Question

我想在Excel电子表格中列出时间。 我们的想法是在电子表格中有4个按钮，用于记下每个按钮的点击时间。

每个按钮代表一个不同的组，我希望有一个按下每个按钮的时间列表，以便我可以检查和研究组活动。

Answer 1

1. 在VBE中创建一个新模块并将其粘贴在那里：

   Sub capturetime()
   
     Dim timeWS As Worksheet
     Dim timeRange As Range
   
     'Change "Sheet3" to whatever worksheet is your click log
     Set timeWS = ThisWorkbook.Sheets("Sheet3")
   
     'find the last cell in column A of your log
     Set timeRange = timeWS.Range("A" & timeWS.Rows.Count).End(xlUp).Offset(1)
   
     'Write which button was clicked in column A
     timeRange.Value = Application.Caller
   
     'Write the time in column B
     timeRange.Offset(, 1).Value = Now()
   
   End Sub
   

2. 根据需要在该代码中编辑值。
3. 使用Developer＆gt;＆gt;（Controls）Insert创建一个按钮。在那里找到按钮。 ＆＃34;表格＆＃34;按钮很好。
4. 在某处画出屏幕上的按钮。并且，当它提示您指定一个宏时，选择＆＃34; capturetime＆＃34;

这一点VBA将获取按下的按钮的名称和时间，并将其写入您选择作为日志的任何工作表。这非常简单，所以不应该为了满足您的需求而烦恼。