У наставку ћемо погледати програм у Екцел ВБА који броји број године појављивања.
Ситуација:
Напомена: Датуми су у америчком формату. Месеци први, дани други. Ова врста формата зависи од регионалних поставки вашег прозора.
1. Прво, декларишемо три променљиве типа Интегер. Једну променљиву називамо иеарЦоунт, једну променљиву називамо иеарАск, а једну променљиву називамо и.
Дим иеарЦоунт Ас Интегер, иеарАск Ас Интегер, и Ас Интегер
2. Покрећемо иеарЦоунт са вредношћу 0 и иеарАск са вредношћу ћелије Ц4.
иеарЦоунт = 0
иеарАск = Распон ("Ц4"). Вредност
3. Покрећемо петљу Фор Нект.
За и = 1 до 16
4. Сада проверавамо сваки датум и само ако је година датума једнака унетој години у ћелији Ц4, повећавамо иеарЦоунт за 1. Користимо функцију Година да добијемо годину датума.
Ако је година (Ћелије (и, 1). Вредност) = годинаПитајте тада
иеарЦоунт = иеарЦоунт + 1
Крај Ако
5. Не заборавите да затворите петљу.
Затим сам
6. На крају, приказујемо укупне године појављивања. Оператор & користимо за спајање (спајање) два низа.
МсгБок иеарЦоунт & "појављивања у години" & иеарАск
7. Поставите свој макро у командно дугме и тестирајте га.
Резултат:
Напомена: пошто смо направили променљиву иеарАск, можете једноставно избројати број година појављивања друге године тако што ћете унети другу годину у ћелију Ц4 и поново кликнути на командно дугме.