文本框的VBA excel问题

Question

我的任务是为访问者创建简单的签到和签出簿，但是我不确定corect代码可用于获得超时时间来链接正确的名称， 我想知道的是，访问者何时注销输入他们的姓名，并且从他们登录时起将时间添加到他们的数据中。  例如，访问者的姓名在A列第2列中，我希望有时间转到G列第2列，依此类推，以决定有多少人登录。

谢谢

Answer 1

以下内容将根据该列的最后使用行将当前日期时间插入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

您将只需要一个TextBox和一个命令按钮即可：