如何在VBA中仅显示年份？

要在VBA中仅显示年份，可以使用VBA的日期和时间函数来提取日期的年份部分。以下是一个示例代码，演示如何仅显示当前日期的年份：

Sub ShowOnlyYear()
    Dim currentYear As Integer
    
    ' 获取当前日期的年份部分
    currentYear = Year(Date)
    
    ' 在消息框中显示年份
    MsgBox "当前年份为：" & currentYear
End Sub

在这个示例中，我们首先声明了一个整数类型的变量currentYear用于存储年份。然后，使用VBA的Year函数来提取当前日期的年份部分，并将其赋值给currentYear变量。最后，通过使用MsgBox函数，在消息框中显示年份。

你可以将这段代码添加到你的VBA项目中，并根据需要进行调整和修改。