Developing.ru

Код: Выделить всё

Sub ПодсчётОВА()
    Dim f As String
    Dim n As Long
    Dim r As Long
    f = "ова"
    n = 0
    For r = 1 To 100 ' 1-начальная строка поиска, 100 - конечная
        If Right(Sheets("Лист1").Cells(r, 3).Value, Len(f)) = f Then n = n + 1 ' 3 - это номер столбца для поиска
    Next r
    Sheets("Лист2").Cells(1, 2).Value = n
End Sub

Код: Выделить всё

Sub ПодсчётЧисел()
    Dim p As Long
    Dim n As Long
    Dim r As Long
    p = Sheets("Лист2").Cells(1, 3).Value ' В этой ячейке должна быть указана число (дата, время и т.д.) больше которого будет вестись подсчёт
    n = 0
    For r = 1 To 100 ' 1-начальная строка поиска, 100 - конечная
        If Sheets("Лист1").Cells(r, 3).Value > p Then n = n + 1 ' 3 - это номер столбца для поиска
    Next r
    Sheets("Лист2").Cells(1, 5).Value = n ' помещаем в нужную ячейку результат поиска
End Sub

Код: Выделить всё

Sub ПодсчётЧисел()
    Dim p As Long
    Dim n As Long
    Dim r As Long
    p = Sheets("Лист2").Cells(1, 3).Value ' В этой ячейке должна быть указана число (дата, время и т.д.) больше которого будет вестись подсчёт
    n = 0
    For r = 1 To 100 ' 1-начальная строка поиска, 100 - конечная
        If Sheets("Лист1").Cells(r, 3).Value > p Then n = n + 1 ' 3 - это номер столбца для поиска
    Next r
    Sheets("Лист2").Cells(1, 5).Value = n ' помещаем в нужную ячейку результат поиска
End Sub

Код: Выделить всё

Sub ПодсчётЧисел()
    Dim p As Long
    Dim n As Long
    Dim r As Long
    p = Val(Sheets("Лист2").Cells(1, 3).Value) ' В этой ячейке должна быть указана число (дата, время и т.д.) больше которого будет вестись подсчёт
    n = 0
    For r = 1 To 200 ' 1-начальная строка поиска, 100 - конечная
        If Val(Sheets("Лист1").Cells(r, 3).Value) > p And Val(Sheets("Лист1").Cells(r, 3).Value) <>0 Then n = n + 1 ' 3 - это номер столбца для поиска
    Next r
    Sheets("Лист2").Cells(1, 5).Value = n ' помещаем в нужную ячейку результат поиска
End Sub

Код: Выделить всё

Application.WorksheetFunction.SumIf([DTime],">11:00",[Dsum])  

Код: Выделить всё

Application.WorksheetFunction.SumIf([Dова],"ова",[Dsum])

Код: Выделить всё

Application.WorksheetFunction.Sum([Dsum])

Код: Выделить всё

=СЧЁТЕСЛИ(FIO;"*ова")

Код: Выделить всё

Application.WorksheetFunction.CountIf([Dova],"*ова")