利用 wordXP 实现自动排班

许多工作岗位需要每天或每月排一次班,如何用WORD实现自动排班?笔者曾对此做过一些研究,不尽人意.

在一位网友(chewinggum(口香糖·把减肥列入下一个五年计划) )提供了很不错的代码(http://community.csdn.net/Expert/topic/4304/4304006.xml?temp=.7863428),稍做了一些改动,感觉效果还可以.

新建WORD文档,ALT+F11进入IDE界面.添加模块1并进行如下操作:

Thisdocument加入下面代码

Private Sub Document_Open()
Main
End Sub

模块1加入下面代码:

Option Explicit

Dim LunarInfo(0 To 149) As Long
Dim SolarMonth
Dim Gan
Dim Zhi
Dim Animals
Dim SolarTerm
Dim sTermInfo
Dim nStr1
Dim nStr2
Dim nStr3
Dim MonthName
Dim sFtv
Dim lFtv
Dim wFtv

Sub Main()

Application.ScreenUpdating = False
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
Dim member   As String
Dim m() As String
    Dim InputYear As Integer         '输入年
    Dim InputMonth As Integer        '输入年
   
    Dim intTableRows As Integer     '表格的列数
    Dim intMonthDays As Integer        '该月的天数
    Dim intWeekDay As Integer       '星期几
    Dim intFirstDayWeek As Integer  '第一天是星期几
    Dim i As Integer
   

   
    Initialize  '初始化数据
member = InputBox("输入年月如" & Format(Date, "yyyy-mm"), "提示", Format(Date, "yyyy-mm"))
   
    InputMonth = CInt(Right(member, 2))
    InputYear = CInt(Left(member, 4))
    member = InputBox("请输入值班者名单", "提示", "赵一伤,钱二败,孙三毁,李四摧,周五输,吴六破,郑七灭,王八衰,鹤笔翁,鹿仗客")
    m = Split(member, ",")
    For i = 0 To UBound(m)
    m(i) = i + 1 & " " & m(i)
    Next
    member = InputBox(Join(m, vbCrLf), "请选择上月最后一位值班者编号", "1")
   
    '计算表格的列数
    intMonthDays = SolarDays(InputYear, InputMonth)
    intFirstDayWeek = Weekday(InputYear & "-" & InputMonth & "-1")
    intTableRows = (intMonthDays + intFirstDayWeek - 1)
    If intTableRows / 7 <> Int(intTableRows / 7) Then

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:新一代开源系统ubuntu，免费寄送光盘。

下一篇:17.2 Class members