要在VBA中仅显示年份,可以使用VBA的日期和时间
函数
来提取日期的年份部分。以下是一个示例代码,演示如何仅显示当前日期的年份:
Sub ShowOnlyYear()
Dim currentYear As Integer
' 获取当前日期的年份部分
currentYear = Year(Date)
' 在消息框中显示年份
MsgBox "当前年份为:" & currentYear
End Sub
在这个示例中,我们首先声明了一个整数类型的变量currentYear用于存储年份。然后,使用VBA的Year函数来提取当前日期的年份部分,并将其赋值给currentYear变量。最后,通过使用MsgBox函数,在消息框中显示年份。
你可以将这段代码添加到你的VBA项目中,并根据需要进行调整和修改。