下面我们将看一下Excel VBA中的一个程序，该程序可以计算年份的出现次数。
情况：
注意：日期采用美国格式。月数第一，天数第二。这种格式取决于您的Windows区域设置。
1.首先，我们声明三个Integer类型的变量。我们将一个变量称为yearCount，将一个变量称为yearAsk，将一个变量称为i。
Dim yearCount as Integer，yearAsk As Integer，i As Integer
2.我们用值0初始化yearCount，用单元格C4的值初始化yearAsk。
yearCount = 0
yearAsk = Range（“ C4”）。Value
yearAsk = Range（“ C4”）。Value
3.我们开始一个For Next循环。
对于 i = 1 至 16
4.现在，我们检查每个日期，并且只有当日期的年份等于在单元格C4中输入的年份时，才将yearCount递增1。我们使用Year函数来获取日期的年份。
如果 year（Cells（i，1）.Value）= yearAsk 然后
yearCount = yearCount + 1
End If
yearCount = yearCount + 1
End If
5.不要忘记闭环。
接下来我
6.最后，我们显示年份总数。我们使用＆运算符来连接（连接）两个字符串。
MsgBox yearCount和“年份中发生的次数”和yearAsk
7.将宏放在命令按钮中并进行测试。
结果：
注意：由于我们将yearAsk设置为变量，因此只需在C4单元格中输入另一年，然后再次单击命令按钮，即可计算另一年的年出现次数。