8人循环值班

cysczhumh

8人循环值班，没编对呀！

shiruiqiang

干嘛不连续排班，按照你目前的排法，A1基本是星期日，偶有一班是周六。他不会骂吗？

yynrzwh

2024年6月份干部值班表2024.6.2 (循环).zip (44.66 KB, 下载次数: 9)

2024-6-4 11:30 上传

点击文件名下载附件

longwin

以下供参考：
Sub test()
    arr = Range("F12:F19")
    ReDim brr(1 To 32, 1 To 2) 'brr的行数要定义为8的倍数
    For i = 1 To UBound(brr) Step 8
        m = m + 1
        If m = 9 Then m = 1
        For j = m To 8
            v = v + 1
            brr(v, 1) = arr(j, 1)
        Next
        If m >= 2 Then
            For j = 1 To m - 1
                v = v + 1
                brr(v, 1) = arr(j, 1)
            Next
        End If
    Next
End Sub

半百

？？？

cysczhumh

shiruiqiang 发表于 2024-6-4 11:26
干嘛不连续排班，按照你目前的排法，A1基本是星期日，偶有一班是周六。他不会骂吗？

你的想法考虑到了，主要是比较一下顺序排班和循环排班那种更合理。

cysczhumh

longwin 发表于 2024-6-4 12:03
以下供参考：
Sub test()
    arr = Range("F12:F19")

谢谢，参照大作，修改了一下，就是8的倍数，有点难了：
Sub test()
  arr = Range("F2:J9")
  crr = [a1].CurrentRegion.Offset(1).Resize(, 2)
  ReDim brr(1 To 240, 1 To 2) 'brr的行数要定义为8的倍数
  For i = 1 To UBound(brr) Step 8
  m = m + 1
  If m = 9 Then m = 1
  For j = m To 8
    v = v + 1
    brr(v, 1) = arr(j, 1)
    brr(v, 2) = arr(j, 5)
  Next
  If m >= 2 Then
    For j = 1 To m - 1
      v = v + 1
      brr(v, 1) = arr(j, 1)
      brr(v, 2) = arr(j, 5)
    Next
  End If
  Next
   [c2].Resize(UBound(brr) - 1, 2) = brr
End Sub

cysczhumh

半百 发表于 2024-6-4 14:16
？？？

非常正确，谢谢！实在是高！！！

cysczhumh

yynrzwh 发表于 2024-6-4 11:30

谢谢，如何把电话那列也显示出来呢？

cysczhumh

yynrzwh 发表于 2024-6-4 11:30

谢谢，如何把电话那列也显示出来呢？