Tag: 周数

Excel weeknum有条件的平均值

date编号Weeknum 4-Jan-96 0.094288 2 5-Jan-96 0.092872 2 8-Jan-96 0.090431 2 9-Jan-96 0.153586 2 10-Jan-96 0.029758 3 11-Jan-96 0.052083 3 12-Jan-96 0.042797 3 15-Jan-96 0.047949 3 16-Jan-96 0.053029 3 17-Jan-96 0.051588 4 18-Jan-96 0.036755 4 19-Jan-96 0.043954 4 22-Jan-96 0.067316 4 我希望平均每周的数字是一个特定的值 – 编辑（和年份是一定的值），而不是每周手工平均。 有谁知道是否有averageif / if /其他条件可以做到这一点？ Weeknum并不总是包含5个连续的值，因为节假日阻止了这一点。

从日历date读取正确的星期编号

如下所示，我在Excel列中具有以下date。 冲刺1从10.04到21.04这意味着2个星期之间，括号之间，他们是指定的15周和16周，这是正确的，但Sprint 2，也开始于10.04但直到05.05这意味着7周，但也显示Sprint1。 "Sprint1 (CW15-16/2017) [10.04.2017 – 21.04.2017] Sprint2 (CW15-16/2017) [10.04.2017 – 05.05.2017]" 我到现在为止是： 'reading the first CW of the sprint based on the date SprintFristCW = Left(planning_wb.Worksheets(SprintPlanningTable).Cells(2, i + 1).Value, 9) 'reading the last CW of the Sprint based on the date SprintEndCW = Right(planning_wb.Worksheets(SprintPlanningTable).Cells(2, i + Sprintlength).Value, 9) SprintCW = Left(SprintFirstCW, 4) & […]

VBA统计列并复制它们

下面的代码隐藏了一定数量的行（取决于我们所处的星期数），并只显示了与当前星期编号对应的单元格以及与未来星期编号对应的单元格。 Dim test As String test = Format(Now, "yyyy", vbMonday) & KW(Now) For k = 3 To lastColumn ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k).ColumnWidth = cWidth If ThisWorkbook.Worksheets(PlanningTableNameUG).Cells(1, k).Value = test Then today = True On Error Resume Next ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k – 1).Ungroup On Error GoTo 0 ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k – 1).Group End If If Not today Then On Error Resume Next ThisWorkbook.Worksheets(PlanningTableNameUG).Columns(k).Ungroup […]