Vba：如何从日期获取月份名称

您可以使用 VBA 中的MonthName函数从 Excel 中的日期获取月份名称。

以下是在实践中使用此功能的常见方法：

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

此特定宏查找A2:A11范围内每个日期的月份名称，并将这些名称显示在C2:C11范围内的相应单元格中。

以下示例展示了如何在实践中使用此语法。

示例：如何使用 VBA 从日期获取月份名称

假设我们在 Excel 中有以下数据集，其中包含有关公司在不同日期的销售额的信息：

假设我们想要获取“日期”列中每个单元格的月份名称。

我们可以创建以下宏来执行此操作：

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，C 列包含 A 列中每个相应日期的月份名称。

如果您想返回缩写的月份名称，则可以在MonthName函数中使用可选的True参数，如下所示：

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

当我们运行这个宏时，我们会收到以下输出：

C 列现在包含 A 列中每个匹配日期的缩写月份名称。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中比较日期
如何在VBA中将字符串转换为日期
如何在VBA中计算两个日期之间的天数