Excel中使用VBA自动生成排班表

2025/3/9 16:26:03 来源：https://blog.csdn.net/m0_62979475/article/details/146115166 浏览: 次关键词：Excel中使用VBA自动生成排班表

Excel中使用VBA自动生成排班表

1. 背景
2. 代码
2. 代码使用
4. 其他文章
5. 更多素材
快来试试吧🥰

1. 背景

在我们排班过程中，会有很多的问题，比如我们的有多少个人，从什么时候开始排班，节假日是否要进行排班等等一系列问题，手动排班的话会有很多的这样那样的问题，那我们为什么不能直接使用VBA代码进行排班呢，所以我们本篇文章就是基于这样的目的来展开的。

2. 代码

以下就是我们的自动排班的代码了，让我们来使用一下吧

Sub GenerateSchedule()Dim startDate As DateDim numPeople As IntegerDim peopleNames() As StringDim includeHolidays As BooleanDim includeWeekends As Boolean' 1. 自定义起始排班日期startDate = InputBox("请输入起始排班日期（格式：yyyy-mm-dd）：")' 2. 自定义排班人员数量和姓名numPeople = InputBox("请输入排班人员数量：")ReDim peopleNames(1 To numPeople)For i = 1 To numPeoplepeopleNames(i) = InputBox("请输入第 " & i & " 个人员的姓名：")Next i' 3. 自定义选择是否要在节假日排班includeHolidays = MsgBox("是否包括节假日在内？选择是（是）或否（否）。", vbYesNo) = vbYes' 4. 自定义选择是否要在周六周日排班includeWeekends = MsgBox("是否包括周末在内？选择是（是）或否（否）。", vbYesNo) = vbYes' 输出结果到工作表Dim ws As WorksheetSet ws = ThisWorkbook.Sheets.AddDim currentDate As DatecurrentDate = startDateDim rowCounter As IntegerrowCounter = 1Do While Month(currentDate) = Month(startDate)If (includeWeekends Or (Weekday(currentDate) <> 1 And Weekday(currentDate) <> 7)) And (includeHolidays Or Not (IsHoliday(currentDate))) Thenws.Cells(rowCounter, 1).Value = currentDatews.Cells(rowCounter, 2).Value = peopleNames((rowCounter - 1) Mod numPeople + 1)rowCounter = rowCounter + 1End IfcurrentDate = currentDate + 1LoopMsgBox "排班表生成完成！"
End SubFunction IsHoliday(dt As Date) As Boolean' 在这里可以添加节假日判断的逻辑，例如国家法定节假日等' 这里简化为没有节假日的情况IsHoliday = False
End Function