Office中国论坛/Access中国论坛

标题: [求助]关于EXCEL的宏 [打印本页]

作者: konami12 时间: 2006-3-31 18:31
标题: [求助]关于EXCEL的宏
各位达人,近日我发现一段关于打工资条的宏代码,如下:
　Sub 工资条()
　　 '
　　 ' 工资条打印宏 Macro
　　 ' 记录的宏 2005-5-12
　　 '
　　 '
　　 k = 2
　　 For i = 2 To 6
　　 j = i + k
　　 Rows("2:1").Select
　　 Selection.Copy
　　 Rows(j).Select
　　 Selection.Insert Shift:=xlDown
　　 k = k + 2
　　 Next
　　 End Sub
[attach]16793[/attach]

请问各位达人如何在每个人名下面插入如图的一条蓝色底纹?怎么将循环止于最后一个名字的记录(工资条不可能只有几个人)?代码应该怎么改?感激不尽!

[此贴子已经被作者于2006-3-31 11:23:04编辑过]

作者: qhp-soft 时间: 2006-4-5 09:42
由于上传限制只能链接了.这个例子正合适你:

:

[url=http://www.qhpsoft.com/Download/cx.rar]<a href="http://www.qhpsoft.com/Download/gzgl.rar" target="_blank" >http://www.qhpsoft.com/Download/gzgl.rar[/url]
1.单击"工具"--"宏"--"安全性",把"安全级"设为无或低.
2.关闭Excel,再重新打开.就可以录入了

还有不懂请发邮件给我qhp_soft@126.com

--
论坛是我们成长的家园，我们要共同爱护好、建设好这个家园。同时欢迎大家光临我
的主页：<a href="http://www.qhpsoft.com/" target="_blank" ><a href="http://www.qhpsoft.com/" target="_blank" >http://www.qhpsoft.com

作者: qhp-soft 时间: 2006-4-5 09:50
Sub 工资条()
　　
　　 k = 2
　　 For i = 2 To 6 '你只要改6就行了.最后一条是多少就改为多少.
　　 j = i + k
　　 Rows("2:1").Select
　　 Selection.Copy
　　 Rows(j).Select
　　 Selection.Insert Shift:=xlDown
　　 k = k + 2
　　 Next
　　 End Sub
你的代码我没试,但我知道改6就行了.

=============================================================

以下是我优化制作工资条主要代码(也是原来做的工资管理程序中生成工资条的代码):

Dim k As Integer
Dim Y As Integer
Dim R As Integer
k = 2
Y = 3

'表2的第1条内容为表1的第1行（为工资条标题行）

Sheets(2).Rows(1).Value = Sheets(1).Rows(1).Value

'第1行为工资条标题外，第2行至100行为工资记录
For i = 2 To 100

'表2第k(变量）行的内容为表1的第i(变量）内容。这里K为双数
Sheets(2).Rows(k).Value =Sheets(1). Rows(i).Value

'表2第Y(变量）行的内容为表1的第1行（为工资条标题行）内容。这里Y为单数
Sheets(2).Rows(Y).Value = Sheets(1).Rows(1).Value
k = k + 2'变量k起始值为2
Y = Y + 2'变量y起始值为3
Next i

Sheets(2).Rows(Y - 2).Value = ""

MsgBox "工资条报表制作完毕！", 48, "提示"

还有不懂请发邮件给我qhp_soft@126.com

--
论坛是我们成长的家园，我们要共同爱护好、建设好这个家园。同时欢迎大家光临我
的主页：[url=http://www.qhpsoft.com/]<a href="http://www.qhpsoft.com/" target="_blank" >http://www.qhpsoft.com[/url]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)