Sub dy()
'Dim str$
'startname:
'str = InputBox("输入用户名")
'InputBox ("dddd")
'If str <> "admin" Then GoTo startname
'Dim dt As Date
'dt = Now
'Range("A1").Value = dt
'Dim rng As Range
'For Each rng In Sheet1.Range("a2:a10")
'If rng = "good" Then rng.Interior.ColorIndex = 3
'Next
'
'
'Dim wsh As Worksheet
'On Error Resume Next
'For Each wsh In Worksheets
'n = n + 1
' Sheet1.Cells(n, 2) = wsh.Name
'
'Next
'-----------------
Dim aa
On Error GoTo 0
aa = Range("g8").Value
bb = Range("g7").Value
'If aa = "--" Then
'Range("A8").Value = aa - bb
On Error GoTo 100
Range("A9").Value = aa - bb
100:
Range("A9").Value = "未打卡"
'dds:
Exit Sub
'End If
End Sub