VBA成绩录入

Option Explicit
Dim endColumnNum As Integer, firstColumnNum As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim temp As Variant
    temp = Application.InputBox("请输入：", Type:=1)
    Debug.Print temp
    If CStr(temp) = CStr(False) Then
        MsgBox "输入结束！"
        Application.EnableEvents = False
    Else
        Cells(Target.Row, Target.Column) = temp
        If Target.Column >= firstColumnNum And Target.Column < endColumnNum Then
            Target.Offset(0, 1).Select
        Else
            Cells(Target.Row, Target.Column + 1).Value = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, firstColumnNum), Cells(Target.Row, endColumnNum)))
            Target.Offset(1, -1 * (endColumnNum - firstColumnNum)).Select
        End If
    End If
End Sub
Sub 开始录入()
    Application.EnableEvents = True
End Sub
Sub 参数设置()
    firstColumnNum = Application.InputBox("请点击第一个单元格：", "参数设置", Type:=8).Column
    endColumnNum = Application.InputBox("请点击最后一个单元格：", "参数设置", Type:=8).Column
End Sub