使用 VBA 从另一个工作簿引用时出现问题，因为我想做计数

Question

我刚开始学习VBA，这是我的作业问题。它要求我使用名为 17067513_Excel 的工作簿中的一系列数据。我必须使用 COUNTIF 来找出有多少单元格包含超过 40 个标记。你能看看我的代码并帮助我吗

Sub Test()
    Dim iVal As Integer
    iVal = Application.WorksheetFunction.CountIf(Workbooks("17067513_Excel.xlsx").Worksheets("17067513").Range("N2:N296"), ">40%")
Sheets("VBA").[B1] = iVal
End Sub

Answer 1

如果你想写一个代码来计算COUNTIF和两个数据（计算所需的范围）和代码包含在同一个工作簿中，你可以尝试以下操作：

Option Explicit
Sub Countif()
    Dim Result As Long
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets("1706751").Range("N2:N296")
    Result = Application.WorksheetFunction.Countif(rng, ">40%")
End Sub

注意：将工作簿另存为启用宏的Excel工作簿（*.xlsm）