注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

奕克

爱家人爱工作爱生活

 
 
 

日志

 
 

利用VBA自动制作单位工资条  

2010-07-02 12:49:51|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
         今天看单位的绩效考核单,发现每个人只有分数没有抬头,就想起了我给学生上office编程的入门第一课的例子:单位工资条制作,现在将其写成日志,供有需要的同志使用:
          我手头的原始工作表如下:
利用VBA自动制作单位工资条 - wucccsk - wucccsk的博客
          要求第一行必须为空行,用于分隔每个人的工资条,第二行开始为工资条抬头,可以任意n行,设置好格式。
          最终运行完VBA程序后的目标工作表如下:
利用VBA自动制作单位工资条 - wucccsk - wucccsk的博客
             删除完前几行抬头后,就可以打印出来剪切分发了。
           
             制作方法如下,进入该工作表所在工作簿,打开工具菜单-》宏子菜单-》宏,或直接按ALT+F8键。进入如图的宏菜单:
利用VBA自动制作单位工资条 - wucccsk - wucccsk的博客
           选择编辑按钮,进入VBA环境,输入如下的代码:
 
Sub Macro1()
Title = 3
Worksheets(1).Select
i = Worksheets(1).UsedRange.Rows().Count + 1
For j = i To Title + 1 Step -1
    Rows("1:" & Title).Select
    Selection.Copy
    Rows(j & ":" & j).Select
    Selection.Insert Shift:=xlDown
Next
End Sub
 

要解释一下的该代码第一行title=3表示工资条抬头加空行一共3行,如果你是只有2行,改为title=2即可。代码中的worksheets(1)表示工资条在第一工作表中,如果你在第二个,则改为worksheets(2),即可。
 
最终的VBA环境结果如图:
利用VBA自动制作单位工资条 - wucccsk - wucccsk的博客
然后点击运行菜单中的运行子过程,或工具栏上面的放映按钮即可。
 
好的,享受一下VBA给你带来的方便,程序写的仓促,欢迎各位debug。。。。
  评论这张
 
阅读(127)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017