如何在 vba 中使用工作日函数（附示例）

您可以使用 VBA 中的Weekday函数从给定日期获取星期几（作为整数）。

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

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

这个特定的宏将查找范围A2:A9中每个日期的星期几（作为整数），并显示范围B2:B9中的结果。

请注意，以下整数对应于一周中的每一天：

• 1 ：星期日
• 2 ：星期一
• 3 ：星期二
• 4 : 星期三
• 5 : 星期四
• 6 : 星期五
• 7 : 星期六

以下示例展示了如何在实践中使用Weekday函数。

注意：如果您希望返回星期几作为名称，则应使用 WeekdayName 函数。

示例：使用 VBA 中的 Weekday 函数查找星期几

假设我们在 Excel 中有以下日期列：

假设我们想要获取每个日期的星期几（作为整数）并将结果显示在 B 列中。

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

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

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

B 列显示 A 列中每个日期的星期几（作为整数）。

例如：

• 1/1/2023是星期日，因此 Weekday 函数返回1 。
• 1/4/2023是星期三，因此 Weekday 函数返回4 。
• 02/23/2023是星期四，因此 Weekday 函数返回5 。

等等。

注意：您可以在此处找到 VBA Weekday函数的完整文档。

其他资源

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

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