会议签到表格式(怎么样利用Excel签到)
应用介绍
要利用excel签到,这个会有点复杂,毕竟是多人使用,最后要收集签到数据,分类汇总统计。我最先想到的是利用excel VBA与mysql数据库结合做一个程序,这样子就可以做到每个员工在自己的电脑打开excel自动记录。但是考虑到这个要求比较高,就按提问者的要求利用excel做一个单机版的签到表吧。效果如下图:
1、输入签到人姓名,点击签到按钮,会自动记录姓名,日期等。
2、一天只能签到一次,第二次点击签到时,会提示不要重复签到。
3、源代码如下,喜欢的拿走不谢。
Sub qd()
rq = Now()
xm = Range("H2")
zhyh = Cells(Rows.Count, 3).End(xlUp).Row + 1
jlrq = Range("c" & zhyh - 1)
xm1 = Range("b" & zhyh - 1)
If zhyh = 3 Then
GoTo 111
End If
If Day(jlrq) = Day(rq) And xm = xm1 Then
MsgBox "请不要重复签到"
Else
111:
Range("a" & zhyh) = zhyh - 2
Range("b" & zhyh) = xm
Range("c" & zhyh) = rq
Range("d" & zhyh) = "OK"
End If
End Sub