利用 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))
  

• [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用 wordXP 实现自动排班 相关文章：
• ·利用插件来校验XHTML是否符合Web标准
• ·Web2.0在中国步入歧途 缺赢利模式VC有错
• ·利用UNIX的TFTP和RCP配置路由器
• ·黑客如何利用文件包含漏洞进行网站入侵
• ·利用iTextSharp生成Pdf一个小例子
• ·ASP.Net利用CSS实现多界面的方法
• ·利用XMLHTTP无刷新添加数据
• ·异域风情 奥地利美丽风景集
• ·网站优化:怎么利用Tags进行SEO
• ·利用expression实现界面对象的批量控制
• 利用 wordXP 实现自动排班 相关软件
• ·魂之利刃4公布宣传片
• ·NDS《胜利11人DS 中文汉化版》模拟器
• ·《超级马利奥64 DS》模拟器下载
• ·《毛利元就三箭之誓》试玩
• ·NDS《哈利波特和凤凰令》模拟器
• ·亚历山大·别利亚耶夫作品集V1.0
• ·《哈利波特与凤凰社》PC版试玩
• ·秘书长——一场正义与腐败的权利博弈
• ·法拉利赛车2 汉化版
• ·《命令与征服3泰伯利亚战争》全版本修改器全集

上一篇:17.6.2 Accessors

下一篇:安装，启动与卸载Mysql系统服务

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐