用VBA在EXCEL中写了个上班签到程序

直接上代码了…~(@^_^@)~

 

Sub 求和()
Cells(2, 5) = Cells(2, 1) + Cells(2, 3)
End Sub


Sub 签到()
    '定义变量
    Dim GetTime As Date '获取当前日期
    Dim GetTodayNum As Integer '获取今天是几号
    Dim GetNowHourNum As Integer '获取现在是几点
    Dim AmOrPm As Integer '判断赋值行
    Dim CellStr As String '判断指定单元格
    Dim N As String '判断指定单元格
    '获取参数
    GetTime = Format(Time, "hh:mm:ss") 'Now()
    GetTodayNum = Day(Now())
    GetNowHourNum = Hour(Time)
    
    '判断是上午
    If GetNowHourNum < 12 Then
        AmOrPm = 1
    Else
        AmOrPm = 3
    End If
    
    '判断签到的单元格是否已经签到过了
    '判断是上午还是下午
    If GetNowHourNum < 12 Then
        N = "A" + CStr(GetTodayNum)
        CellStr = Range(N)
    Else