楊老師課堂之Excel VBA 程序開發第八講使用工作表函數

  課件下載 ：           

方式1：本節課件下載地址： https://pan.baidu.com/s/1D-MvbRcJRoyiA456xsTvMQ 密碼：rzlr

方式2：或點擊此處下載

    效果圖：

代碼示例：

Sub tongji()
Dim i, k, l, m As Integer

For i = 2 To Sheets.Count
    k = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1'不算表頭
    l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")
    m = m + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "女")
Next

Sheet1.Range("d26") = k
Sheet1.Range("d27") = l
Sheet1.Range("d28") = m


End Sub

-------------------------------------------------------------------------------------------------------------

Sub chaxun()


On Error Resume Next'錯誤迴避（遇到錯誤，跳過，繼續執行下一行）

Sheet1.Range("d14").ClearContents'對Sheet1表中D14單元格進行清除內容



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