Question

请问这excel VBA代码出错在哪？

Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending,
　　Header:=xlGuess

　　Sheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending,

　　Header:=xlGuess

　　Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending,
　　Header:=xlGuess

Answer 1

因为没有实际文件在手，不太好测试查找故障，仅做提示如下：

1. 以下是一段对数据进行排序的代码：

    ActiveWorkbook.Worksheets("测试").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("测试").Sort.SortFields.Add Key:=Range("A2:A13"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("测试").Sort
        .SetRange Range("A1:F13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

2. 建议你可以先用宏录制一下操作，再参照生成的代码，进行相应的修改。

追问

提示 编译错误：

无效外部工程

Answer 2

好像没有错误。

Sub a()
Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
End Sub

追问

　得分 = MsgBox("最终得分" & Range("成绩记录!D2").Value& "其中:单选题" & Range("成绩记录!E2").Value & "多选题" & Range("成绩记录!F2").Value &"、判断题" & Range("成绩记录!G2").Value &, , "评分结果")
这个有错吗？

追答

MSGBOX的值。应该只有1，2，3之类的数值。你参见一下它的用法。
赋值给得分应该是不正确的。