临时语法VBA

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