Страница 1 из 1
Подсчитать количество по условию и вывести результат в виде простого сообщения
Добавлено: 18 ноя 2010, 12:39
Nox
Необходимо посчитать количество рожденных после 2006 и вывести результат в виде простого сообщения.Необходимо реализовать с помощью макроса.Буду очень признателен за помощь.
Re: Подсчитать количество по условию и вывести результат в виде простого сообщения
Добавлено: 18 ноя 2010, 13:05
Asya
Код: Выделить всё
Sub People2006Count()
Dim k As Integer
Dim i As Integer
k = 0
i = 2
While Cells(i, 5) <> ""
k = k + IIf(Cells(i, 1) >= DateSerial(2006, 1, 1), 1, 0)
i = i + 1
Wend
MsgBox k
End Sub
А вообще-то макрос тут ни к чему
Re: Подсчитать количество по условию и вывести результат в виде простого сообщения
Добавлено: 19 ноя 2010, 06:26
SAS888
Можно проще:
Код: Выделить всё
MsgBox Application.CountIf([E:E], ">=" & CDbl(#1/1/2006#))