忙于学习宏观课程。处理此类问题的最佳方法是什么：
a) 每天都会在数据表中插入一个每日值
b) 一周从星期一到星期日
c) 在任何给定时刻，如果 宏运行时，每周平均需要单独输出 床单。因此，如果今天是星期四，则周一至周三的平均值需要为 拉。
d) 我附上了一个示例数据集，但我会扩展它 稍后当我弄清楚哪些工具将是真实数据时 合适。
【问题讨论】：
我使用了以下 VBA 代码，我相信它会适合你
它将在另一张工作表上为您提供当前一周内日期的平均值。我按照你的要求更新了月份功能
Sub Test()
Dim LR As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("E1").Value = "=Weeknum(Today())"
Range("F1").Value = "=Month(Today())"
For i = 1 To LR
Range("C" & i).Value = WorksheetFunction.WeekNum(Range("A" & i))
Range("D" & i).Formula = "=Month(A" & i & ")"
Next i
Worksheets("Planilha2").Range("A1").Value = WorksheetFunction.AverageIf(Worksheets("Planilha1").Range("C:C"), Worksheets("Planilha1").Range("E1").Value, Worksheets("Planilha1").Range("B:B"))
Worksheets("Planilha2").Range("B1").Value = WorksheetFunction.AverageIf(Worksheets("Planilha1").Range("D:D"), Worksheets("Planilha1").Range("F1").Value, Worksheets("Planilha1").Range("B:B"))
End Sub
【讨论】：
Month 函数在Worksheets.Function 上不可用，这就是为什么我使用另一种方法的原因，请查看链接以查看https://docs.microsoft.com/en-us/office/vba/excel/concepts/events-worksheetfunctions-shapes/list-of-worksheet-functions-available-to-visual-basic 上可用的所有公式
Worksheets("Consolidation report").Range("D66").Value = WorksheetFunction.AverageIf(Worksheets("Sheet1").Range("C2:C"), Worksheets("Sheet1").Range("E1").Value, Worksheets("Sheet1").Range("B2:B"))
使用 adodb 会很好。标题是 MYDay，数量。
Sub exeSQLgetdata()
Dim Rs As Object
Dim strConn As String
Dim i As Integer
Dim Fn As String
Dim Ws As Worksheet, toWs As Worksheet
Dim strSQL As String, sWsname As String
Dim vDB As Variant
Dim rngWeek As Range
Dim st, et
st = Timer
Set Ws = Sheets(1) '<~~ data Sheet
Set toWs = Sheets(2) '<~~ Report Sheet
sWsname = "[" & Ws.Name & "$]"
Fn = ThisWorkbook.Path & "\" & "Database9.accdb"
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=Excel 12.0;"
Set Rs = CreateObject("ADODB.Recordset")
strSQL = "SELECT DATEPART('W', MYDay, 1) as WeekDay, AVG(Quantity) AS AVERAGE FROM " & sWsname & " GROUP BY DATEPART('W', MYDay,1) "
Rs.Open strSQL, strConn
If Not Rs.EOF Then
With toWs
For i = 0 To Rs.Fields.Count - 1
.Cells(1, i + 1) = Rs.Fields(i).Name
Next i
.UsedRange.Offset(1).Clear
.Range("a2").CopyFromRecordset Rs
Set rngWeek = .Range("a2", .Range("a" & Rows.Count).End(xlUp))
vDB = rngWeek
For i = 1 To UBound(vDB, 1)
vDB(i, 1) = Format(vDB(i, 1), "ddd", vbSunday)
Next i
rngWeek = vDB
End With
End If
Rs.Close
Set Rs = Nothing
et = Timer
Debug.Print "Get Data time : " & et - st & " seconds"
End Sub
上面的代码是按工作日平均的。每周平均值如下。
Sub exeSQLgetdata2()
Dim Rs As Object
Dim strConn As String
Dim i As Integer
Dim Fn As String
Dim Ws As Worksheet, toWs As Worksheet
Dim strSQL As String, sWsname As String
Dim vDB As Variant
Dim rngWeek As Range
Dim st, et
st = Timer
Set Ws = Sheets(1) '<~~ data Sheet
Set toWs = Sheets(2) '<~~ Report Sheet
sWsname = "[" & Ws.Name & "$]"
Fn = ThisWorkbook.Path & "\" & "Database9.accdb"
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=Excel 12.0;"
Set Rs = CreateObject("ADODB.Recordset")
'2 : Monday to Sunday, 1: Sunday to Saturday
strSQL = "SELECT DATEPART('WW', MYDay, 2) as WeekNum, AVG(Quantity) AS AVERAGE FROM " & sWsname & " GROUP BY DATEPART('WW', MYDay,2) "
Rs.Open strSQL, strConn
If Not Rs.EOF Then
With toWs
For i = 0 To Rs.Fields.Count - 1
.Cells(1, i + 1) = Rs.Fields(i).Name
Next i
.UsedRange.Offset(1).Clear
.Range("a2").CopyFromRecordset Rs
' Set rngWeek = .Range("a2", .Range("a" & Rows.Count).End(xlUp))
' vDB = rngWeek
' For i = 1 To UBound(vDB, 1)
' vDB(i, 1) = Format(vDB(i, 1), "ddd", vbSunday)
' Next i
' rngWeek = vDB
End With
End If
Rs.Close
Set Rs = Nothing
et = Timer
Debug.Print "Get Data time : " & et - st & " seconds"
End Sub
【讨论】：