求助

春播秋收

春节快到了，我们这个部门共有15个人，现在要安排节日值班，具体要求是：每天安排5个人，一共5天，每人至少值2天班，每个人具体安排在哪天不确定以后每运行一次就出现不同的安排，我想用VBA编一个小程序来解决，请各位老师不吝指教，谢谢了。

xiaoyuemt

从数学上来讲，这个要求是达不到的，15个人，每人至少2天，就是30人次，5天，那就是每天至少6人。如果只5个人肯定做不到。

mmwwdd

你这个问题实际是前三天不用随机，因为15个人，3天5个人，后两天随机，即不能一个人值2天

mmwwdd

你是2009年注册的，这么多年看也应该看会了，多百度

gwjkkkkk

mmwwdd 发表于 2022-12-29 14:26
你这个问题实际是前三天不用随机，因为15个人，3天5个人，后两天随机，即不能一个人值2天

题目无解。。。

春播秋收

谢谢各位的提醒，是我弄错了，应该是每天安排5个人，共5天，每人至少轮1天，最多轮3天

ykcbf1100

春播秋收 发表于 2022-12-29 15:25
谢谢各位的提醒，是我弄错了，应该是每天安排5个人，共5天，每人至少轮1天，最多轮3天

简单一点，按顺序排就能满足你的要求。

zlzz1971

用WPS运行

3190496160

Sub 安排()
With ActiveSheet
    ar = .Range("a3:o3")
    .Range("a5:e9") = Empty
    m = 4
    For i = 1 To 5
        For j = 1 To UBound(ar, 2) Step 5
            m = m + 1: y = 0
            If m > 9 Then End
            For s = j To j + 4
                If s > UBound(ar, 2) Then
                    j = 1
                Else
                    j = j
                End If
                y = y + 1
                gs = gs + 1
                .Cells(m, y) = ar(1, s)
            Next s
        Next j
    Next i
End With
MsgBox "ok!"
End Sub

3190496160

随机没有任何价值，直接按顺序安排即可
春节值班表.rar (12.09 KB, 下载次数: 4)

2022-12-30 12:52 上传

点击文件名下载附件