摘要： 如果要用出生日期来计算年龄，可以用自定义函数来完成。在VBA编辑器中单击菜单“插入→模块”，并将下面的代码放入其中，以下两段代码都是按虚岁计算的，任选一种即可。
方法一：
Function Age(BirthDate As Date)
Select Case Month(Date)
Case Is < Month(BirthDate)
Age = Year(Date) – Year(BirthDate)
Case Is = Month(BirthDate)
If Day(Date) >= Day(BirthDate) Then
Age = Year(Date) – Year(BirthDate) 1
Else
Age = Year(Date) – Year(BirthDate)
End If
Case Is > Month(BirthDate)
Age = Year(Date) – Year(BirthDate) 1
End Select
End Function
方法二：将一年按365.25天计算，在极少数情况下可能会出错。
用VBA判断指定的excel工作簿是否打开
如果要判断一个指定的工作簿是否打开，可以将下面的VBA代码放入标准模块中，然后在子过程中进行调用。 Function IsWkbOpened(sWkbName As String) As Boolean‘如果目标工作簿已打开则返回TRUE，否则返回FALSEDim i As Long For i = Wor
Function Age(BirthDate As Date)
Age = Int((Date – BirthDate) / 365.25) 1
End Function
使用方法：假如出生日期在A1单元格中，如“1971-12-1”，在B1单元格中计算年龄，则在B1单元格中输入公式
=age(A1)
B1单元格返回计算结果为38。请确保A1单元格为日期格式，否则会出现“#VALUE!”错误。
exel单击单元格时运行一个指定的宏
我们可以用一个常规的方法来实现当单击某个单元格时运行一个指定的宏。方法如下： 1.选择一个单元格，按住Shift键的同时，单击菜单“编辑→复制图片”，在弹出的“复制图片”对话框中，“外观”选择“如屏幕所示”，&ld
