Как использовать COUNTIF в VBA? - PullRequest
Новая
       20

Как использовать COUNTIF в VBA?

2 голосов
/ 08 июля 2019

Я пытаюсь использовать VBA для подсчета количества дат в диапазоне.Мой диапазон расширяет столбцы и строки, я пытаюсь найти последнюю строку и последний столбец, но не могу получить желаемые результаты.

Как я могу использовать последнюю строку и последний столбец в моем COUNTIF функция?

Вот код, который у меня пока есть: 

Sub count_Month()
Dim ws As Worksheet
Dim LastCol As Long
Dim count As Long
Dim lastrow As Long

lastrow = Sheet3.Range("M" & Rows.count).End(xlUp).Row
Set ws = Sheets("clientmenu")

    If Application.WorksheetFunction.CountA(ws.Cells) = 0 Then
        LastCol = 1
    Else
        LastCol = ws.Cells.Find(What:="*", _
                After:=ws.Range("A8"), _
                Lookat:=xlPart, _
                LookIn:=xlFormulas, _
                SearchOrder:=xlByColumns, _
                SearchDirection:=xlPrevious, _
                MatchCase:=False).Column
    End If

    With Application.WorksheetFunction
        count = .CountIfs(Sheet2.Range("M8" & LastCol), ">=" & Sheet2.Range("R25"), Sheet2.Range("M8" & LastCol), "<=" & Sheet2.Range("R26"))

    End With
        Debug.Print count
End Sub

Снимок экрана моего диапазона Range I have so far

1 Ответ

1 голос
/ 08 июля 2019 
Sub count_Month()
Dim ws As Worksheet
Dim LastCol As Long, LastRow As Long, count as Long, rng as Range

LastRow = Sheet3.Range("M" & Sheet3.Rows.count).End(xlUp).Row
Set ws = Sheets("clientmenu")

If Application.WorksheetFunction.CountA(ws.Cells) = 0 Then
    LastCol = 1
Else
    LastCol = ws.Cells.Find(What:="*", _
            After:=ws.Range("A8"), _
            Lookat:=xlPart, _
            LookIn:=xlFormulas, _
            SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious, _
            MatchCase:=False).Column
End If

With Sheet2
    Set rng = .Range(.Cells(8, 13), .Cells(LastRow, LastCol))
End With
count = Application.WorksheetFunction.CountIfs(rng, ">=" & Sheet2.Range("R25"), _
        rng, "<=" & Sheet2.Range("R26"))
Debug.Print count

End Sub
...