美文网首页
练习-使用公式进行成绩查询

练习-使用公式进行成绩查询

作者: A_rrow | 来源:发表于2019-07-21 12:43 被阅读0次
引入的新语法
'若发生错误时,跳过这次,继续执行下一次代码'
On Error Resume Next
Sub chaxun()


On Error Resume Next

Sheet1.Range("d14").ClearContents

For i = 2 To Sheets.Count
    Sheet1.Range("d14") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 5, 0)
    Sheet1.Range("d16") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 6, 0)
    Sheet1.Range("d18") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 3, 0)
    Sheet1.Range("d20") = Application.WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 8, 0)
    Sheet1.Range("d22") = Sheets(i).Name
    
    If Sheet1.Range("d14") <> "" Then
        Exit For
    End If
Next
End Sub

相关文章

网友评论

      本文标题:练习-使用公式进行成绩查询

      本文链接:https://www.haomeiwen.com/subject/fgymlctx.html