Range类的Sort方法失败

时间:2016-07-27 10:36:42

标签: excel vba sorting

我是VBA的新手并且很难搞清楚这个代码。我正在网上做一个课程,我按照相同的步骤,但不知何故我得到一个错误。我最近安装了Excel 2013,不知道那是不是我尝试使用.Range(“A4”),但这会给我一个错误“无效或不合格的参考”

Sub DivisionSort()
'
' Sort List by Division Ascending
'

'
    Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

Sub CategorySort()
'
' Sort List by Category Ascending
'

'
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub

Sub TotalSort()
'
' Sort List by Total Sales Ascending
'

'
    Selection.Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

End Sub


Public Sub SortList()
    Dim userinput As String
    userinput = InputBox("1=Sort by Division, 2=Sort by Category,3=Sort by Total")
    If userinput = "1" Then
    DivisionSort
    ElseIf userinput = "2" Then
    CategorySort
    ElseIf userinput = "3" Then
    TotalSort

    End If
End Sub

1 个答案:

答案 0 :(得分:1)

尽量避免使用'选择'。请尝试完整参考:

router.post('/addacc',function(req,res){
    var sljEdate = "";
    var pljEdate = "";
    var MongoClient = mongodb.MongoClient;
    var url = 'mongodb://localhost:27017/stc';
    MongoClient.connect(url,function(err,db){
        if(err){
            console.log("Connection Error");
        }else{
            console.log("connected to mongo");
            var collection = db.collection('account');
            var query = {accountID: req.body.acc_id,companyName: req.body.acc_name,companyEmail:req.body.acc_email,companyPhone:req.body.acc_phone,companyPostCode:req.body.acc_postcode,
                        photographers: {phtID:"",phtName:"",phtPhone:"",phtEmail:"",phtLoc:"",preferredContact:"",lastJob:"",pljEpoch:pljEdate,phtNotes:""},
                        schools: {schoolID:"",schoolName:"",schoolPhone:"",schoolEmail:"",schoolPostCode:"",lastJob:"",sljEpoch:sljEdate,notes:""}};
            collection.insert(query,function(err,result){
                if(err){
                    console.log("Error inserting Account record",err);
                }else{
                    console.log("Data Insert Success");
                    res.redirect("/forms");
                }
                db.close();
            });
        }
    });
});