Mai jos vom analiza un program în Excel VBA care contează numărul de an apariții.
Situatie:
Notă: Datele sunt în format SUA. Primele luni, Zilele a doua. Acest tip de format depinde de setările regionale Windows.
1. În primul rând, declarăm trei variabile de tip Întreg. O variabilă pe care o numim yearCount, o variabilă pe care o numim yearAsk și o variabilă pe care o numim i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inițializăm yearCount cu valoarea 0 și yearAsk cu valoarea celulei C4.
yearCount = 0
yearAsk = Range ("C4"). Valoare
3. Începem o buclă For Next.
Pentru i = 1 până la 16
4. Verificăm acum fiecare dată și numai dacă anul datei este egal cu anul introdus în celula C4, incrementăm yearCount cu 1. Folosim funcția Year pentru a obține anul unei date.
Dacă anul (celule (i, 1). Valoare) = anul Întrebați atunci
yearCount = yearCount + 1
End If
5. Nu uitați să închideți bucla.
Apoi eu
6. În cele din urmă, afișăm numărul total de apariții ale anului. Folosim operatorul & pentru a concatena (uni) două șiruri.
MsgBox yearCount & "apariții în an" & yearAsk
7. Plasați macrocomanda într-un buton de comandă și testați-o.
Rezultat:
Notă: deoarece am creat variabila yearAsk, puteți număra pur și simplu numărul de apariții ale unui alt an introducând un alt an în celula C4 și făcând clic din nou pe butonul de comandă.
