Question

我有一张Excel表格，它借助登录用户表格记录员工登录详细信息。我希望Excel做的是当员工点击登录按钮时， Excel应该在工作表上搜索日期coulmn并检查其旁边的单元格以验证该员工是否已经登录。如果是，则显示一个消息框并结束程序，否则运行我的代码来存储登录详细信息。您可以在下面看到我的员工登录详细信息如何记录在我的登录详细信息表中。

NAME OF EMPLOYEE    DATE        TIME

Employee 1          02-02-15    09:05
Employee 2          02-02-15    09:10

Sub finddate()
With Worksheets("Sheet1").Range("b1:b500")
    Set c = .Find(Date, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
           MsgBox c.Offset(0, -1).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
    
End With

End Sub

我使用了以上代码。它为我提供了今天在消息框中登录的员工的姓名。请告诉我如何将此流程与我的用户表单集成，以检查员工是否已经登录。

Answer 1

在您的表单中双击登录按钮，您应该能够看到代码的位置。然后调用函数

Private Sub LoginButton_Click()
   Call finddate
End Sub

查找重复的条目并显示通知

1 个答案: