Abaixo, veremos um programa em Excel VBA que conta o número de ocorrências de ano.
Situação:
Observação: as datas estão no formato dos EUA. Primeiro os meses, depois os dias. Este tipo de formato depende das configurações regionais do Windows.
1. Primeiro, declaramos três variáveis do tipo Integer. Uma variável que chamamos yearCount, uma variável que chamamos yearAsk e uma variável que chamamos i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inicializamos yearCount com o valor 0 e yearAsk com o valor da célula C4.
yearCount = 0
yearAsk = Intervalo ("C4"). Valor
3. Iniciamos um loop For Next.
Para i = 1 a 16
4. Agora verificamos cada data e apenas se o ano da data for igual ao ano inserido na célula C4, incrementamos yearCount em 1. Usamos a função Year para obter o ano de uma data.
Se ano (Células (i, 1) .Valor) = ano Pergunte então
yearCount = yearCount + 1
Fim se
5. Não se esqueça de fechar o loop.
Proximo eu
6. Finalmente, exibimos o total de ocorrências do ano. Usamos o operador & para concatenar (juntar) duas strings.
MsgBox yearCount & "ocorrências no ano" & yearAsk
7. Coloque sua macro em um botão de comando e teste-a.
Resultado:
Observação: como criamos a variável yearAsk, você pode simplesmente contar o número de ocorrências de ano de outro ano inserindo outro ano na célula C4 e clicando no botão de comando novamente.