VBA很简单中工资条的问题

inameit

工资条.rar (5.68 KB, 下载次数: 216)

2016-2-16 11:16 上传

点击文件名下载附件

买了VBA很简单这本书，里面有工资条的内容，比较感兴趣，但是还是有些问题。
附件中的excel是模拟的工资条。如果希望达到如下的效果，程序怎么写？
1，增加按钮
2，当按钮按下时，为所有行增加表头，变成 表头+内容+表头+内容的格式。 但是不确定有多少行。 书中说可以用do while 来使用。

麻烦大神写下代码，我先开始学习看懂代码把...

看见星光

1. Sub ddd()
   
2. For i = [a1].CurrentRegion.Rows.Count To 3 Step -1
   
3.     Rows(1).Copy
   
4.     Rows(i).Insert Shift:=xlDown
   
5. Next
   
6. End Sub
   

复制代码

rligong

在开发工具种插入Activex控件，代码如下。
    Application.ScreenUpdating = False
   
    Dim I As Long
        For I = Range("a65535").End(xlUp).Row To 3 Step -1
        Rows(I).Insert
        Range(Cells(I, 1), Cells(I, 5)) = Range("A1:E1").Value
    Next
    Application.ScreenUpdating = True

inameit

看见星光 发表于 2016-2-16 11:25

可以使用
点击一次之后每行都有表头了，但是如果误操作再点击第二次，然后首行还是一个表头 但是其他的变成3个表头了。
有什么方法可以杜绝误操作吗？比如查看第三行如果有表头了就停止，或者只能执行一次？

看见星光

inameit 发表于 2016-2-16 11:41
可以使用
点击一次之后每行都有表头了，但是如果误操作再点击第二次，然后首行还是一个表头 但是其他的 ...

Sub ddd()
If [a3].Value = "序号" Then Exit Sub
For i = [a1].CurrentRegion.Rows.Count To 3 Step -1
    Rows(1).Copy
    Rows(i).Insert Shift:=xlDown
Next
End Sub

inameit

rligong 发表于 2016-2-16 11:32
在开发工具种插入Activex控件，代码如下。
    Application.ScreenUpdating = False
   

可以使用
点击一次之后每行都有表头了，但是如果误操作再点击第二次，然后首行还是一个表头 但是其他的变成3个表头了。
有什么方法可以杜绝误操作吗？比如查看第三行如果有表头了就停止，或者只能执行一次？

inameit

看见星光 发表于 2016-2-16 11:43
Sub ddd()
If [a3].Value = "序号" Then Exit Sub
For i = [a1].CurrentRegion.Rows.Count To 3 Step - ...

又来麻烦你了 可以  后续的点击就没有反映了。

假如我我现在有三个sheet 都是工资表（依据工总分类，分别为sheet1，sheet2，sheet3）格式一样，首行是表头 下面的是内容。
现在想在sheet4中创建一个按钮，点击之后sheet1，2，3自动执行增加表头的操作，这几个sheet的操作相对独立。
这个能实现吗？

rligong

inameit 发表于 2016-2-16 11:45
可以使用
点击一次之后每行都有表头了，但是如果误操作再点击第二次，然后首行还是一个表头 但是其他的 ...

5楼已经给出解决方法了，增加一个判断。

TWENTY

先mark一下，明天细看

TWENTY

先mark一下，明天细看