抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

星月5313

支持共享精神。我也是菜鸟啊

wudingyong

那天下了原版，没想到几天不到，都进化到第4代，再下，谢谢了，楼主辛苦了。

lbl016

Sub 过渡()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
Sheets("汇总").Rows("2:65536").Clear
For i = 2 To Sheets.Count
    With Sheets(i)
            k = .[a65536].End(xlUp).Row
            Set rng = .Range("a6:l" & k)
            j = Sheets("过渡").[a65536].End(xlUp).Row + 1
            rng.Copy Sheets("过渡").Range("a" & j)
        End With
        Next
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
End Sub

Sub 汇总()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
    Sheets("汇总").Rows("2:65536").Clear
Dim Arr1, Arr2
Dim N As Integer
Arr1 = Split("A,B,C,D,e,f,g,i,j,l", ",")
Arr2 = Split("b,k,l,c,d,h,m,n,o,p", ",")
For N = LBound(Arr1) To UBound(Arr1)
    With Worksheets("汇总")
        Worksheets("过渡").Columns(Arr1(N)).Copy .Columns(Arr2(N))
    End With
Next N
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlAutomatic
End Sub
我现在是把各分表数据通过代码集中到“过渡”上，然后再通过“过渡”用代码按条件生成 "汇总"，我想请高手帮我合并两个代码为一个代码不用“过渡”直接把各分表数据按汇总条件生成 "汇总"。

[ 本帖最后由 lbl016 于 2010-4-11 08:03 编辑 ]

huangzhijie

多谢楼主能百忙之中为小菜鸟们赶制学习工具，有了这个工具相当于有了一个翻译，真是如虎添翼，哦！说错了，是小菜鸟有了飞翔的羽翼

风123456

谢谢楼主的资料，这对我们的新学者很有帮助！
顺便请教楼主一个问题呀，我们如何运用VBA程序将表格中的复制、粘贴、剪切、选择性粘贴以及下拉复制给屏蔽掉呀？谢谢楼主帮帮忙呀！

chinaltl

已经下载了，还没看，先顶一下先，最近刚好想VBA编程，想问问一般多长时间可以编一些简单的程序。

lbl016

原帖由 kevinchengcw 于 2010-4-10 22:08 发表
我发给你的邮件收到了吗,在我这里测试已经可以了

谢谢了！打印已经不用刷新了，但还有个问题，为什么点击打印手册按钮时每次要点两次才能打印呢？

kevinchengcw

原帖由 风123456 于 2010-4-11 01:18 发表
谢谢楼主的资料，这对我们的新学者很有帮助！
顺便请教楼主一个问题呀，我们如何运用VBA程序将表格中的复制、粘贴、剪切、选择性粘贴以及下拉复制给屏蔽掉呀？谢谢楼主帮帮忙呀！

附件已屏闭了复制粘贴，运行test宏可恢复，不过下拉填充暂时还未解决

kevinchengcw

原帖由 lbl016 于 2010-4-11 08:03 发表

谢谢了！打印已经不用刷新了，但还有个问题，为什么点击打印手册按钮时每次要点两次才能打印呢？

把打印按钮那里替换成这样就不需要按两次了

Private Sub CommandButton1_Click()
    For i = 1 To f_ShCOunt
        If Me.Controls("CheckBox" & i) Then Sh = Sh & " " & Me.Controls("CheckBox" & i).Caption
    Next
    aa = Split(Mid(Sh, 2), " ")
    For n = LBound(aa) To UBound(aa)
        If Trim(aa(n)) <> "" Then Sheets(aa(n)).PrintOut
    Next n
End Sub

xlb10299

支持分享，感谢楼主，道一声 谢谢