Нижче ми розглянемо програму в 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, щоб отримати рік дати.
Якщо рік (Клітинки (i, 1). Значення) = рікЗапитайте Тоді
yearCount = yearCount + 1
Закінчити Якщо
5. Не забудьте закрити цикл.
Далі i
6. Нарешті, ми відображаємо загальну кількість випадків за рік. Ми використовуємо оператор & для об'єднання (з'єднання) двох рядків.
MsgBox yearCount & "входження в рік" & yearAsk
7. Помістіть свій макрос у командну кнопку та протестуйте його.
Результат:
Примітка: оскільки ми зробили змінну yearAsk, ви можете просто підрахувати кількість повторів року іншого року, ввівши ще один рік у клітинку С4 і знову натиснувши на кнопку команди.