VBA 创建打卡表

Question 1

该子程序将在“日历”工作表的 E 列中查找今天的日期，如果找到，则在该行的 L 列中放置一个“X”。

Sub mark_today()
Dim ws As Worksheet
Set ws = Worksheets("Calendrier")

Dim todayCel As Range
On Error Resume Next ' if there's nothing found
Set todayCel = ws.Range("E:E").Find(what:=Date)
On Error GoTo 0

If todayCel Is Nothing Then
    ' Do something if today's date can't be found
Else
    Cells(todayCel.Row, "L").Value = "X"
End If
End Sub

只需将该宏分配给您的按钮即可。

Answer

该子程序将在“日历”工作表的 E 列中查找今天的日期，如果找到，则在该行的 L 列中放置一个“X”。

Sub mark_today()
Dim ws As Worksheet
Set ws = Worksheets("Calendrier")

Dim todayCel As Range
On Error Resume Next ' if there's nothing found
Set todayCel = ws.Range("E:E").Find(what:=Date)
On Error GoTo 0

If todayCel Is Nothing Then
    ' Do something if today's date can't be found
Else
    Cells(todayCel.Row, "L").Value = "X"
End If
End Sub

只需将该宏分配给您的按钮即可。

Question 2

这种方法将帮助你自动化，时钟/考勤表：

怎么运行的：

单元格中的公式L2：

=IF(ISBLANK($M2),"","X")

在单元格中输入此公式O2：

=IF(OR(ISBLANK($M2),ISBLANK($N2)),"",INT($N2-$M2)&" days "&TEXT($N2-$M2,"h"" hrs ""m"" mins """))
填写两个公式。

复制&粘贴此 VBA 代码作为标准模块。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 If Not Intersect(Target, Range("M2:N5")) Is Nothing Then
    Cancel = True
    Target.Formula = Format(Now(), "mm/dd/yyyy HH:mm:ss AM/PM")
End If
End Sub

注意：

mm/dd/yy hh:mm:ss AM/PM在范围内应用格式M2:N5。
双击M2:N5在您/员工姓名旁边的单元格中输入及时也时差。
在上面的 VBA 代码中，范围Range("M2:N5")和Date Time格式是可编辑的。

根据需要调整公式中的单元格引用。

Answer