vba countif在多张床单上

Question

请在下面找到以下代码和注释

Sub Test()

Dim wSheet As Worksheet
Dim myempid As Variant

For Each wSheet In Worksheets

    Select Case (wSheet.Name)

        Case "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"

        empid2 = Worksheets("DB").Range("C13").Value2

        With Worksheets(wSheet.Name)

           'locate the row for the value
            myempid = Application.Match(empid2, .Columns("D"), 0)

            If IsError(myvalueRow) Then
                Debug.Print "empid not found in column D"
                Exit Sub
            End If

            If myempid >= 0 Then
                MsgBox ("Hi")

            '***

'（而不是消息框，我需要从（“F5：AJ500”）计算值“PL”，例如，如果myempid位于表单j的_ col范围（“D8”），我们需要计算（ F8：AJ8）。同样明智的是，myempid的所有值都应该计入每张纸中._'匹配myempid的所有纸张中的总数（PL）应该显示在msgbox中。

---

            End If
      End With

      Case Else

    End Select

Next wSheet

End Sub

Answer 1

您可以使用qazxsw poi qazxsw poi qazxsw poi从范围对象返回单元格的列号。您还可以使用Range来计算包含特定值的范围内的单元格。

我不是100％清楚你要做什么，但根据你的例子，如果你有一个特定的单元格引用（例如，在下面的.这样的对象中），你可以调整它：

Column

这里有关于Application.WorksheetFunction.CountIf的更多信息。