По -долу ще разгледаме програма в 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, можете просто да преброите броя на настъпването на година в друга година, като въведете друга година в клетка C4 и щракнете отново върху командния бутон.
