年纪录在Excel VBA
下面我们就来看看在Excel VBA程序计数年出现的次数。
现状：
注：日期是美国格式。月第一，第二日。这种类型的格式取决于您的Windows区域设置。
1.首先，我们声明整数类型的三个变量。一个变量我们称之为yearCount，一个变量我们称之为yearAsk，和一个可变我们所说的我。
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2.我们初始化yearCount用值0和yearAsk与单元C4的值。
yearCount = 0
yearAsk = Range("C4").Value
3.我们开始为下一个循环。
For i = 1 To 16
4.我们现在检查每个日期且仅当日期的年份等于进入了一年中的细胞C4，我们按1递增yearCount我们使用年函数来获取日期的年份。
If year(Cells(i, 1).Value) = yearAsk Then yearCount = yearCount + 1 End If
5.不要忘记关闭循环。
Next i
6.最后，我们显示总年出现。我们使用＆运算符来连接（连接）两个字符串。
MsgBox yearCount & " occurrences in year " & yearAsk
7.将您的命令按钮宏并对其进行测试。
结果：
注：因为我们做了yearAsk变量，你可以简单地进入小区C4又一年，再次单击命令按钮数年出现另一年的数量。