Question

我是 VBA 新手，需要一些帮助。到目前为止，我已经能够创建一个用户窗体来保存每次单击按钮时的时间戳。这是工作表上的格式：

<头>

时间	用户	样品	属性
"hh:mm:ss"	名称	000	甜的

该表还会在“属性”列下单击“开始”按钮时存储。按钮可以被点击，也可以不被点击，它们可以被多次点击。我想使用“开始”的时间戳作为参考来计算按钮点击的时间差，控制每个用户和样本组合。我知道有一个 DateDiff 函数，但不确定在这种情况下如何使用它。这就是我想要的： Data setup

这是开始按钮的代码：

    Private Sub CmmdBtnStart_Click()
    'Close form after 30 seconds from clicking Start
    countdown = Now + TimeValue("00:00:30")
    Application.OnTime countdown, "UnloadIt"
   
    'Add timestamp of Start Button
    Dim wsData As Worksheet
    Dim BtnStart As String
    Dim lastrow As Long
    Set wsData = Worksheets("Data")

    With wsData
    lastrow = wsData.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    BtnStart = CmmdBtnStart.Caption
    End With

    With wsData
    'Add time it was clicked
        With .Cells(lastrow, 1)
             .Value = Now
             .NumberFormat = "hh:mm:ss"
        End With
        'Add user name
        .Cells(lastrow, 2).Value = txtboxuser.Value
        'Add sample code
        .Cells(lastrow, 3).Value = txtboxsample.Value
        'Get button caption or text and add to worksheet
        .Cells(lastrow, 4).Value = BtnStart
    End With

    End Sub

每个按钮都有一个类似的代码来向工作表添加数据。我需要用户表单中的代码，还是可以在工作表中完成？我将不胜感激。

VBA-每次在同一行中单击按钮时添加时间戳

0 个答案: