在VBA中生成星期六的数量

Question

我是编码的新手，并希望帮助编写一个宏代码，用于生成每个月的星期六数，此时每个月的第一个日期已经列为excel文件中的范围。该文件应如下所示

None

Answer 1

我不清楚你为什么需要VBA。

作为工作表公式，

=NETWORKDAYS.INTL(A2, EOMONTH(A2, 0), "1111101")

Answer 2

这会奏效。您需要在单元格前添加表格（＆＃34; SheetName＆＃34;）。

Sub CountSaturdays()

    LR = Cells(Rows.Count, 1).End(xlUp).Row

    For x = 2 To LR
        StDt = Cells(x, 1)
        EndDt = WorksheetFunction.EoMonth(Cells(x, 1), 0)
            For Dt = StDt To EndDt
                If WorksheetFunction.Weekday(Dt) = 7 Then
                    Sat = Sat + 1
                End If
            Next Dt
        Cells(x, 2) = Sat
        Sat = 0
    Next x
End Sub