带文本框的VBA excel问题

我的任务是为访客创建一个simpple登录和注销手册，但我不确定要使用什么corect代码来获得与正确姓名链接的时间， 如果可能的话，我想要的是当访问者退出时，输入他们的姓名，以及从他们登录时起添加到他们数据中的时间。 例如，访客姓名在A列第2行，我想查看G列第2行，依此类推，查看有多少人登录

---

谢谢，下面将根据G列最后使用的行将当前日期时间插入该列：

Sub InsertTime()

Dim lRow As Long
lRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Cells(lRow, 7).Value = Now()

End Sub

编辑：

要通过按下按钮的命令执行此操作，您可以执行以下操作：

Private Sub CommandButton1_Click()

Dim Name As String
Dim lRow As Long

Name = TextBox1.Value
lRow = Cells(Rows.Count, 7).End(xlUp).Row + 1
Cells(lRow, 7).Value = Now()
Cells(lRow, 1).Value = Name

'Reset TextBox For Next Entry
TextBox1.Value = ""

End Sub

您只需要在表单上设置一个文本框和一个命令按钮：

---

我相信您正在寻找的功能会根据您想要录制的信息的范围随时调用。听起来您也想要一个表单（虽然可能是您的文本框所在的位置）-如果2016年，可能是内置功能。谢谢您的快速帮助，我有两个表格，一个是他们在其中输入姓名时间和其他我已经做过的信息，另一个表格是供他们注销的，我想要的是，如果文本框中输入的姓名与第A列中的姓名匹配，那么第G列中的日期-希望这是有意义的我感谢，现在添加了日期，有没有办法将此代码链接起来，以便在文本框中键入的名称与Column a中的名称匹配时，将其添加到Column G谢谢