Ниже мы рассмотрим программу на Excel VBA который считает количество вхождения за год.
Ситуация:
Примечание. Даты указаны в американском формате. Первые месяцы, вторые дни. Этот тип формата зависит от региональных настроек Windows.
1. Сначала мы объявляем три переменные типа Integer. Одну переменную мы называем yearCount, одну переменную мы называем yearAsk, и одну переменную мы называем i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Мы инициализируем yearCount значением 0 и yearAsk значением ячейки C4.
yearCount = 0
yearAsk = Диапазон ("C4"). Значение
3. Запускаем цикл For Next.
Для i = от 1 до 16
4. Теперь мы проверяем каждую дату, и только если год даты равен году, введенному в ячейку C4, мы увеличиваем yearCount на 1. Мы используем функцию Year, чтобы получить год даты.
Если year (Cells (i, 1) .Value) = yearAsk Then
yearCount = yearCount + 1
Конец, если
5. Не забудьте замкнуть петлю.
Далее я
6. Наконец, мы отображаем общее количество вхождений за год. Мы используем оператор & для соединения (соединения) двух строк.
MsgBox yearCount & "вхождений в год" & yearAsk
7. Поместите свой макрос в командную кнопку и протестируйте его.
Результат:
Примечание: поскольку мы сделали переменную yearAsk, вы можете просто подсчитать количество повторений года в другом году, введя другой год в ячейку C4 и снова нажав кнопку команды.
